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1. PURPOSE 

THE PURPOSE OF THE SCA INSTRUCTION FUNCTION TEST IS TO CHECK THE OPERATING 
PERFORMftNCE OF THF SCA INSTRUCTION SET. EACH INSTRUCTION IS CHECKED OUT 
INDIVIDUALLY AND THEN IN MOST CASES CHECKED OUT WITH COMBINATIONS OF OTHER 
SCA INSTRUCTIONS. 



2. REQUIREMENTS 

2.1*** PROGRAM PREPEOUISITES 

THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR. THE 
DIAGNOSTIC MONITOR USES 1.5 K STORAGE WORDS AND THIS PROGRAM USES 
1.5 K STORAGE WORDS. 
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2.2*** EQUIPMENT PREREQUISITES 

1. SET DATA TERMINAL SWITCH IN THF TEST POSITION. (SEE NOTE) 

2. SET STR SWITCH TO STR POSITION OR BSC POSITION IF BI-SYN OPTION 
IS SELECTED. 

3. SET C.E. MODE SWITCH TO OFF POSITION. 

4. SET SCA ALARM SWITCH TO ON POSITION. 

5. SET BAUD SELECTOR SWITCH TO 600, 1200, 2000, 2400 OR 4800. 

6. CHECK TO SEE THAT JUMPERS ARE INSTALLED AS SHOWN BELOW. 
INSTALL OR REMOVE JUMPERS AS REQUIRED. MARK ON THIS PAGE 
ANY JUMPERS THAT ARE CHANGED FOR THIS TEST, AND RESTORE 
TO ORIGINAL CONFIGURATION AFTER COMPLETION OF TEST. 



y K2D08-K2B08 

X'L2D04-L2D08 

M2B04-M2008 

D6005-M2D10 
D6006-06D08 



INSTALLED 

INSTALLED 

INSTALLED (NOT RFQUIREO IF 

IS CONNECTED) 

INSTALLED 

REMOVED 



A DIAL-UP DATA SET 



NOTE.. REFER TO LOGIC PAGE AD003 FOR CUSTOMER OPTION JUMPERS, 



3. OPERATING PROCEDURE 

**CAUTION* LOAD AND GO OPERATION CANNOT BE USED ON SYSTEMS WITH 2 MICRO-SECOND 
CORE SPEED OR IE OPERATION IS TO BE IN 8SC MODE. REFER TO 
SECTION 3.2.3 FOR PROPER SELECTION OF OPERATING OPTIONS. 

PROGRAM STOP SWITCH SHOULD NOT BE USED TO HALT PROGRAM. 
IF THIS SWITCH IS USED, SCA INTERRUPTS MAY CONTINUE TO 
OCCUR AFTER PROGRAM IS STOPPED. 

THESE OPERATING PROCEDURES APPLY TO SINGLE OROGRAM OPERATION ONLY. 
FOR OVERLAP OPERATION REFER TO SECTION 3.2.3 OF THE 1130 OAGNOSTIC 
MONITOR II DOCUMENTATION. 

3.1*** PROGRAM LOADING 

STANDARD MONITOR LOADING PROCEDURES APPLY. 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DETAILS. 



1. 
2. 



SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 



SET BIT SWITCH 15 OFF - 



ON - 



3. 

4. 



LOAD AND GO (CANNOT 6F USED ON S>f STEMS 
WITH 2 MICRO-SECOND MEMORY SPEED OP IF 
OPERATION IS TO BE IN BSC MODE) 
TO SPFXIFY OPTIONS BEFORE RUNNING. 
(SEE SECTION 3.2.3) 

IF HALTED AFTER LOADING, SELECT PROGRAM 
OPTIONS THEN TURN OFF HALT SWITCH OR 
FOLLOW NORMAL RESTART PROCEDURE 
(SECTION 3.5) 



LOAD DIAGNOSTIC MONITOR AND SCA PROGRAM INSTRUCTIONS FT. 
SELECT PROGRAM OPTIONS, IF DESIRED. 
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3.2*** PROGRAM OPERATION. 

STANDARD MONITOR OPERATING PROCEDURES APPLY. 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

OFTAILS. 

3.2.1 PROGRAM CONTROL - FUNCTION 



1. 
2. 



SET SWITCHES 0-7 TO 01. 

SET SWITCHES 8-15 AS DESIRED. 



SWT 



FUNCTION 



8 RESTART 

t ROUTINE START MESSAGE 

10 LOCK ON FUNCTION 

11 LOOP PROGRAM 

12 LOOP ON ERROR 

13 BYPASS ERROR PRINTOUT 

14 HALT ON ERROR 

15 HALT 



3. PRESS INT REO KEY ON CONSOLE. 
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3.2.2 ROUTINE SELECTION - FUNCTION 1 

THE SELECTPD ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED. 
1. TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TO 41. 

B. SET ROUTINE NUMBER IN SWITCHES 12-15. 

THE FOILOWING ROUTINES WILL RUN SEQUENTIALLY AND STOP AFTER 
THE LAST ROUTINE IF NO ROUTINE IS SELECTED. 



RTN 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

E 

F 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
lA 
IB 
IC 
10 
IE 
IF 
20 
21 
22 



DESCRIPTION 



PROGRAM RESET 

ALARM ON ... RESET 

ALARM OPE 

ALARM ON 

ALARM OFF (TURNS OFF ALARM, TURNED ON BY ROUTINE 4. 

FNO OPERATION 

ENABLE SCA 

DISABLE SCA 

ENABLE ... DISABLE 

START/STOP TIMER 

START/STOP ... START/STOP TIMER 

LOAD SYNC/IDLE REGISTER 

WRITE BUFFER 

READ BUFFER 

SPT MASTER MODE 

SET MASTER MODE ... START/STOP TIMER 

SET SLAVE MODE 

SET SLAVF MODE ... START/STOP TIMER 

SET MASTER MODE ... SET SLAVE MODE 

START READ 

START READ . 

SET MASTER MODE ... 

SET MASTER MODE ... 

SET 7 BIT OPERATION 

SET 6 BIT OPERATION 



START/STOP TIMER 
... START READ 
. START READ . 



START/STOP TIMER 



END OPERATION 



START READ 

TRANSMIT SYNC 

LOAD SYNC/IDLE REGISTER 



TRANSMIT SYNC 



LOAD SYNC/IDLE REG ..TRANSMIT SYNC .. 

LOAD SYNC/IDLE REG .. TRANSMIT SYNC . 

START WRITE 

LOAD SVNC/IDLE REGISTER 

START WRITE ■ 



START/STOP TIMER 
,ENO OPERATION 



.. START WRITE 
WRITE BUFFER ... END OPERATION 



SET SCA DIAGNOSTIC MODE 



THIS OPTION WILL BE USED TO TROUBLE SHOOT FAILURES IN CONJUNCTION 
WITH SW FUNCTIONS 2 AND 3. 

C. PRESS INT REO. KEY ON CONSOLE. 

2. TO RESET ROUTINE SELECTION SET AS IF SELECTING ROUTINE ZERO. 
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3.2.3 SCA PROGRAM OPTIONS - FUNCTION 2 
I. TO SET PROGRAM OPTIONS 

A. SET SWITCHES 0-7 TO 81. 

B. SET SWITCHES 12-15 AS DEOIREO. 



SHT 
SWT 11 



FUNCTION 



. THIS OPTION IS FOR TWO MICRO-SECOND MEMORY SPEED. 
SELECT THIS OPTION WHEN THE 1130 MEMORY SPEED IS 
? MICRO-SECONDS. 
IGNORE <OFF) FOR 1130. ...4 MICRO-SFC MEMORY SPEED. 

SWT 17 .... DIAGNOSTIC RUN. .(00 NOT SELECT IF RUNNING OVERLAP) 

THIS OPTION MAKES ANALYSIS OF THE 
DIAGNOSTIC WORDS. BECAUSE OF THE 
CRITICAL TIMING INVOLVED IN SENSING 
THESE TRIGGERS WHILE THEY ARE BEING SET 
AND CLEARFOt THIS OPTION IS NOT 
RECOMMENDED DURING OVERLAP. 

SWT 13 .... NO RESET.. (DO NOT SELECT IF RUNNING OVERLAP! 

THIS OPTION ALLOWS THE DELETION OF THE 
RESET ROUTINE (ROUTINE 01) AFTER 
EXECUTING EACH OF THE OTHER ROUTINES. 
ROUTINE 01 TRAPS ANY UNEXPECTED TIMEOUT 
INTERRUPTS, DUE TO A CIRCUIT FAILURE. 
THIS CUTS PROGRAM RUN TIME TO 3 MIN. 

SWT 14 FAST PASS. .(DO NOT SELECT IF RUNNING OVERLAD) 

THIS OPTION ALLOWS A 250 MSEC ROUTINE 
RUN TIME FOR THOSE ROUTINES WHERE THE 
TIMEOUT OR AUDIBLE ALARM FUNCTIONS ARE 
NOT EXPECTED. PROG RUN TIME IS 1 MIN. 
45 SEC. 

NOTE..- IF SWS 13 AND 14 ARE SELECTED, RUN TIME IS 55 SEC 
IF SWS 13 AND 14 ARE NOT SELECTED, RUN TIME IS 
APPROXIMATELY 5 MIN. 

SWT 15 BI-SYN ..(CAN BE SELECTED IN OVERLAP) 

THIS OPTION ALLOWS THE SCA TO OPERATE 
IN THE BINARY SYNCHRONOUS MODE. THIS 
OPTION INITIATES A SELF-MODIFICATION 
TO THE TEST PROGRAM. THE PROGRAM 
MODIFICATIONS ALTER ROUTINE INSTRUCTIONS 
USING DSW ON DIAGNOSTIC WORDS THAT 
WILL BE OF A DIFFERENT VALUE DUE TO 
BI-SYN MODE. DESELECTING THIS OPTION 
INITIATES A SELF-MODIFICATION TO THE 
TEST PROGRAM, THAT WILL CHANGE EFFECTED 
DSW AND DIAGNOSTIC WORDS SO AS TO 
OPERATE IN THE STR MODE. RELOADING 
THE PROGRAM IS NOT NECESSARY WHEN 
CHANGE MOOES FROM STR TO BI-SYN OR 
FROM BI-SYN TO STR. 



C. PRESS INT REQ KEY ON CONSOLE. 
2. TO RESET PROGRAM OPTIONS, SET 0-7 TO 81 WITH 12 THRU 15 
OFF AND PRESS INT REQ KEY. 
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3.2.4 SCA SCOPE LOOP OPTION - FUNCTION J 
1. TO SET SCOPE LOOP OPTIONS 



A. SFT SWITCHES 0-7 TO CI. 

B. SET SWITCHES 8 THRU 15 AS DESIRED. 

NOTE..,. IF TIMEOUT IS EXPECTED, SCOPE LOOP OPTION WILL HAVF NO 
EFFECT ON PROGRAM OPERATION. SWS CAN BE SET TO ANY 
COMBINATION. 



SW 



FUNCTION 



8 . 

9 . 

10 . 

11 . 

12 . 

13 . 

14 . 

15 . 



7 SECOND ROUTINE DELAY 
1 SECOND ROUTINE DELAY 
.5 SECOND ROUTINE DELAY 
.25 SECOND ROUTINE DELAY 
.125 SECOND ROUTINE DELAY 
.0625 SECOND ROUTINE DELAY 
.03125 SECOND ROUTINE DELAY 
.015625 SECOND ROUTINE DELAY 



C. PRESS INT REQ. KEY ON CONSOLE. 

2. TO RESET DELAY, SET 0-7 TO CI AND B-15 TO 7ERn AND PRESS 
INT REG. KEY. 



3.3*** PROGRAM HALTS 
3.3.1 NORMAL HALTS 



IhALT no. DESCRIPTION 
.(B REG). 


RESTART 
ACTION 


. 3001 . PROGRAM STOP OR ADDRESS STOP , 
. 3002 . H«LT ON ERROR 


PRESS START 
PRESS START 
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3.3.2 ERROR HALTS 



.HALT NO. 


DESCRIPTION 


RESTART 


.(B REGJ. 




ACTION 


'. 30FI '. 


CHECK SUM ERROR ON FIRST 
CARD OF LOADER 


RELOAD 


. 30F2 . 


READER DSM ERROR WHEN 
LOADING LOADER 


RELOAD 


. 30F3 . 


CARD 2 OF LOADER DID NOT 
LOAD 


RELOAD 


. 30F4 


CAN NOT CLEAR CORE - DUE TO . 
ERROR IN ADDRESSING UPPER 
CORE. 




. 30F5 


READER CHECK WHEN LOADING 


NPRO THEN PLACE CARDS 




MONITOR OR TEST PROGRAM 


RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 


. 30F6 


MONITOR DID NOT LOAD 


! RELOAD 


. 30F7 


CHECK SUM WHEN LOADING 
MONITOR 


RELOAD 


. 30F8 


READER NOT READY 


MAKE READER READY 


. 30F9 


INVALID INTERRUPT WHICH WILL 
NOT RESET 


! PRESS RESET AND START '. 


. 30FA 


CONSOLE PRINTER HANG UP - 
BUSY WILL NOT GO OFF 


FIX THE CONSOLE PRINTER . 



3.4*** PROGRAM TERMINATION 

IF LOOP PROGRAM HAS NOT BEEN SPECIFIED, THE PROGRAM WILL TERMINATE 
AT THE END OF ROUTINE 22. 

IF ANY ROUTINE IS SELECTED THAT ROUTINE WILL LOOP AND WILL NOT 
TERMINATE. 



3.5*** RESTART 

1. TURN OFP SWITCHES 0-7. 

2. TURN ON SWITCH 8. 

3. SET DESIRED CONTROL IN SWITCHES 9-14. 

4. PRFSS INTERRUPT REQUEST KEY. 
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PRINTOUTS 

ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 

(MESSAGE) 
(MFSSAGEl 



APPNN OORR AAAA 

OR 

FPPNN OORR AAAA 



WHERE A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE PIO OF THE PROGRAM CAUSING THE MESSAGE 

THIS WILL BE EITHER 00 FOR MESSAGES 
ORIGINATED BY MONITOR OR 18 FOR 
MESSAGES ORIGINATED BY THIS PROGRAM. 

NN IS THE MESSAGE SEQUENCE NUMBER 

RR IS THE ROUTINE NUMBER 

AAAA IS THE ADDRESS OF THE ROUTINE 

MESSAGE IS ANY VARIABLE INFORMATION 



4.1*** STATUS MESSAGES 
AOOOO 



NUM PID AORS RELF 
XXXX XXXX XXXX XXXX 



LO 



AOOOl 



THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR). THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER. 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADEDt 
AND THE RELOCATION FACTOR. 

SWS PIO 
XXXX XXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ. 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM, THE WORD HALT WILL FOLLOW THE 
MESSAGE. 



A1800 OORR AAAA 



ROUTINE START MESSAGE - IF SWITCH 9- FUNCTION IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. 



A1801 OORR AAAA 



XXXX XXX 
01 AG RUN 



XX XXXXX 
NO RESET 



XXXX XXXX 
FAST PASS 



XX XXX 
BI SYN 



X XXXXX 
2 MICRO 



A180? OORR AAAA 



THIS MESSAGE WILL BE PRINTED OUT WHENEVER A NEW SCA PROGRAM 
OPTION IS SELECTED. (FUNC. SW2) ONLY THOSE OPTIONS SELECTED WILL 
BE PRINTEn OUT. IF ALL OPTIONS ARE DESELECTED, THE PRINT AREA 
WILL BE BLANK. 

XXXXX XXXX 
SCOPE LOOP 

THIS MFSS6GF WILL BE PRINTED OUT WHENEVER A NEW SCOPE LOOP OPTION 
IS SELFCTEO. 
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A1003 



RFSTORF SYSTEM TO NORMAL 

THIS MFSSAGE IS PRINTED OUT TO REMIND C.E. TO RESTORE 
JUMPERS IF CHANGED FOR TEST, AND RESTORE SYSTEM TO NORMAL. 



A. 2*** ERROR MESSAGES 

EOOOI 



SWS FNVLD 

xxxx 



F0003 



E0004 



F0005 



THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 

OVR CORE 

THE PROGRAM, WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORF. LOADING WAS TERMINATED. 

CKSUM 

A CHECK SUM ERROR HAS DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 

1. A CARD IS MISSING OR IS OUT OF SEQUENCF. 

2. THFRF IS AN EXTRA CARD IN THE DECK. 

3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 

5. DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 

WHEN THIS ERROR OCCURS, ATTEMPT TO RELOAD THE PROGRAM. 

OOON XXXX 

THIS ERROR WILL OCCUR WHEN AN INTERRUPT OCCURS, BUT THE ILSW 
WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSC. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



NOTE SCA ERROR MESSAGES 



WHENEVER AN SCA ERROR MESSAGE IS BEING PRINTED OUT, THE SCA ALARM 
IS TURNED ON. 

THE C.E. BITS CAN BE JUMPERED, AT C.E. DISCRETION, TO ANY POINT IN 
THE SCA CIRCUITRY. IF THESE BITS ARE NOT WIRED, THEY WILL BE SET 
TO A I. ISEF LOGIC FC732, NOTE 2). 

IF ALL OSW ANALYSIS APPEAR GOOD AND MANY FAILURES IN DIAGNOSTIC WORDS 
OR MANY DSW FAILURES AND DIAGNOSTIC WORD APPEAR GOOD, TAKE INTO 
CONSIDERATION THE READ DSW OR THE SENSE DIAGNOSTIC WORD COMMANDS 
ARE FAILING. 
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E1801 OORR AAAA 



DHl DW2 OSW ON/F F/ON *CE* INT ERR 
XXXO XXOO XXXO XXOO XXOO OXXO 

AT LEAST 1 INTERRUPT EXPECTED AND RECEIVED. 



DWI = STORED CONTENTS OF DIAGNOSTIC WORD I. 

DW2 = STORED CONTENTS OF DIAGNOSTIC WORD 2. 

OSW = STORED CONTENTS OF DSW. 
ON/F = DSW INTERRUPT BITS THAT WERE ON AND SHOULD BE OFF. 
F/ON = OSW INTERRUPT BITS THAT WERE OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC WORD 2. (ON OR OFFI 



INT ERR 



THE CALCULATED DSW INTERRUPT BITS DID NOT 
COMPARE WITH RECEIVED DSW INTERRUPT BITS. 



REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



E1802 OORR AAAA 



OWl DW2 OSM ON/F F/ON *CE* 
XXXO XXOO XXXO XXOO XXOO OXXO 



INT ERR 



AT LEAST 1 INTERRUPT EXPECTED, AND NONE RECEIVED. 

OWl = STORED CONTENTS OF DIAGNOSTIC WORD I. 

DW2 = STORED CONTENTS OF DIAGNOSTIC WORD 2. 

DSW = STORED CONTENTS OF DSW. 
ON/F = DSW INTERRUPT BITS THAT WERE ON AND SHOULD BE OFF. 
F/ON = DSW INTERRUPT BITS THAT WERE OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC WORD 2. ION OR OFF) 

INT ERR = THE CALCULATED DSW INTERRUPT BITS DID NOT COMPARE 
WITH THE RECEIVED DSW INTERRUPT BITS. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



E1B03 OORR AAAA 



OWl DW2 DSW ON/F F/ON *CE* 
XXXO XXOO XXXO XXOO XXOO OXXO 



INT ERR 



NO INTERRUPTS EXPECTED, AND AT LEAST 1 RECEIVED. 

DWI = STORED CONTENTS OF DIAGNOSTIC WORD I. 

DW2 = STORFD CONTENTS OF DIAGNOSTIC WORD 2. 

DSW = STORED CONTENTS OF DSW. 
ON/F = OSW INTERRUPT BITS THAT WERE ON AND SHOULD BE OFF. 
F/ON = nSW INTERRUPT BITS THAT WERE OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC WORD 2. ION OR OFF) 

INT ERR = THE CALCULATED DSW INTERRUPT BITS DID NOT COMPARE 
WITH THF RECEIVED OSW INTERRUPT BITS. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF FRROR. 
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El set OORR AAA A 



INT ERR RESET 



DWl DW2 DSW ON/F F/ON ♦CF* 
XXXO XXOO XXXO XXOO XXOO OXXO 

AT LEAST 1 INTERRUPT EXPECTED AND RECEIVED. 



OWl = STORED CONTENTS OF DIAGNOSTIC WORD I. 

DH2 = STORED CONTENTS OF DIAGNOSTIC WORD 2. 

dsw = STORED CONTNETS OF DSW. 
ON/F = DSW INTERRUPT BITS THAT WERE ON AND SHOULD BE OFF. 
F/ON = DSW INTERRUPT BITS THAT WERE OFF AND SHOUVO BE ON. 
*CE* = CE BITS OF DIAGNOSTIC WORD 2. JON OR OFFI 

INT ERR RESET = AN INTERRUPT ERROR WAS FOUND AFTER 
PROGRAMED RESET. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS 
OF ERROR. 



F1805 OORR AAAA 



OWl 0W2 WAS S/B ON/F F/ON *CF* DSW ERR 
XXXO XXOO XXXO XXXO XXXO XXXO OXXO 



OWl = STORED CONTENTS OF DIAGNOSTIC WORD 1. 

DW2 = STORED CONTENTS OF DIAGNOSTIC WORD 2. 

WAS = STORED CONTENTS OF DSW. 

S/B = CALCULATEO CONTENTS OF DSW. 
ON/F = OSW BIT THAT WERE ON AND SHOULD BE OFF. 
F/ON = DSW BIT THAT WERE OFF AND SHOtlLO BE ON. 
*CF* = CE BITS OF DIAGNOSTIC WORD 2. (ON OR OFFI 

OSW FRR = THE CALCULATED DSW DID NOT COMPARE WITH THE 
RECEIVED OSW. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



F1806 OORR AAAA 



OWl DW2 WAS S/B ON/F F/ON *CE* DSW ERR 
XXXO XXOO XXXO XXXO XXXO XXXO OXXO 



RESET 



DWl = STORED CONTENTS OF DIAGNOSTIC WORD 1. 

0W2 = STORED CONTENTS OF DIAGNOSTIC WORD 2. 

WAS = STORED CONTENTS OF OSW. 

S/8 = CALCULATEO CONTENTS OF DSW. 
ON/F = OSW BIT THAT WERE ON AND SHOULD BE OFF. 
F/ON = OSW BIT THAT WERE OFF AND SHOULD BE ON. 
*r,F* = CE BITS OF DIAGNOSTIC WORD 2. ION OR OFFI 

DSW ERR RESET = OSW WAS FOUND IN ERROR AFTER PROGRAMED RESET, 

RFFFR TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OR ERROR. 
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010CT67 
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010CT69 
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E1807 OORR AAAA 



DSW 

0W2 

WAS 

S/B 

ON/F 

F/ON 

*CP* 



DSW DW2 IWAS IS/B ON/F F/ON *CE* OWl ERR 
XXXO XXOO XXXO XXXO XXXO XXXO OXXO 

STORED CONTENTS OF OSW. 

STORED CONTENTS OF DIAGNOSTIC WORD 2. 

STORED CONTENTS OF DIAGNOSTIC WORD 1. 

CALCULATFO CONTENTS OF DIAGNOSTIC WORD 1. 

DIAGNOSTIC WORD 1 BITS THAT WERE ON AND SHOULD BE OFF. 

DIAGNOSTIC WORD 1 BITS THAT WERE OFF AND SHOULD BE ON. 

CE BITS OF DIAGNOSTIC WORD 2. (ON OR OFF) 

DWl ERR = THE CALCULATED DIAGNOSTIC WORD 1 DID NOT COMPARE 
WITH RECEIVED DIAGNOSTIC WORD 1. 



REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



E1808 OORR A«AA 



DSW 

0W2 

WAS 

S/B 

ON/F 

F/ON 

*r,E* 



DSW DW2 IWAS IS/B ON/F F/ON ♦CE* DWl ERR 
XXXO XXOO XXXO XXXO XXXO XXXO OXXO 



RESET 



STORED CONTENTS OF OSW. 

STORED CONTENTS OF DIAGNOSTIC WORD 2. 

STORED CONTENTS OF DIAGNOSTIC WORD 1. 

CALCULATED CONTENTS OF DIAGNOSTIC WORD 1. 

DIAGNOSTIC WORD 1 BITS THAT WERE ON AND SHOULD BE OFF. 

DIAGNOSTIC WORD 1 BITS THAT WERE OFF AND SHOULD BE ON. 

CE BITS OF DIAGNOSTIC WORD 2. (ON OR OFF) 



DWl ERR 



RESET = DIAGNOSTIC WORD I WAS FOUND IN ERROR AFTER 
PROGRAM RESET. 



RFFFR TO niAGNQSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



E1809 OORR AAAA 



DSW OWl 2WAS 2S/B ON/F F/ON *CF* DW2 ERR 
XXXO XXXO XXOO XXOO XXOO XXOO OXXO 



OSW = STORED CONTENTS OF OSW 

OWl = STORED CONTENTS OF DIAGNOSTIC WORD I. 

WAS = STORED CONTENTS OF DIAGNOSTIC WORD 2. 

S/B = CALCULATEO CONTENTS OF DIAGNOSTIC WORD 2. 
ON/F = DIAGNOSTIC WORD 2 BITS THAT WERE ON AND SHOULD BE OFF. 
F/ON = DIAGNOSTIC WORD 2 BITS THAT WERF OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC WORD 2. (ON OR OFF) 

DW2 ERR = THE CALCULATED DIAGNOSTIC WORD 2 DID NOT COMPARE 
WITH RECEIVED DIAGNOSTIC WORD 2. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



E180A OORR AAAA 



nsw 

DWl 

WAS 

S/R 

ON/F 

F/ON 

*CF* 



DSW DWl 2WAS 2S/B ON/F F/ON *CE* DW2 ERR 
XXXO XXXO XXOO XXOO XXOO XXOO OXXO 



RESET 



STORED CONTENTS OF DSW 

STORED CONTENTS OF DIAGNOSTIC WORD 1. 

STORED CONTENTS OF DIAGNOSTIC WORD 2. 

CALCULATED CONTENTS OF DIAGNOSTIC WORD 2. 

DIAGNOSTIC WORD 2 BITS THAT WERE ON AND SHOULD BE OFF. 

DIAGNOSTIC WORD 2 BITS THAT WFRE OPF AND SHOULD BF ON. 

CE BITS OF DIAGNOSTIC WORD 2. (ON OR OFF) 



DW2 ERR RESET = DIAGNOSTIC WORD 2 WAS FOUND IN ERROR AFTFR 
PROGRAM RESET. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



DATE 
EC NO. 



15JUN67 
420317 



010CT67 
420374 



01APR68 
420411 



15SEP68 
420416 



01JUL69 
571013 



010CT69 
571066 



PROG ID 
PAGF 



03 18-* 
6A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA PROGRAM INSTRUCTIONS FUNCTION TEST STR/BSC 



PART NO. 2243557 
PAGE 7 



ElflOB OORR AAAA 



DWl 0W2 DSW ON/F F/ON *CE* 
XXXO XXOO XXXO 0000 0000 0000 



INT ERR 



INT ERR = THE OSW BIT HERE FOUND NOT TO BE IN ERROR. BUT AT tEAST 
1 INTERRUPT HAS EXPECTED, AND NONE HAS RECEIVED. MAKE 
SURE C.E. INTERRUPT DELAY SH IS OFF. IF INTERRUPT 
DELAY SW IS OFF, GO TO NET NUM. FC731AN4. 



5. COMMENTS 



5.1*** PROGRAM PHILOSOPHY 



THE SCA INSTRUCTION FUNCTION TEST HAS DESIGNED TO CHECKOUT THE SCA 
INSTRUCTION SET. EACH COMMEND IS CHECKED OUT INDIVIDUALLY AND IN 
MOST CASES, CHECKED OUT IN VARIOUS COMBINATIONS HITH OTHER COMMANDS. 
THE PROGRAM TAKES INTO CONSIDERATION VARIOUS CUSTOMER OPTIONS 
AVAILABLE IN STR MODE AND BINARY SYNC MODE. 

VARIOUS SCA PROGRAM OPTIONS ARE ALSO AVAILABLE BECAUSE OF THE NATURE 
OF THE SCA OPERATION. THE MOST IMPORTANT FACTOR BEING, THAT A TIME- 
OUT INTERRUPT MAY OCCUR 3 SECONDS AFTER A SCA COMMAND HAS BEEN 
IMPROPERLY EXECUTED. BECAUSE OF THESF POSSIBLE TIMEOUTS AND INTER- 
MITTENT ERRORS, EACH ROUTINE IS ANALYZED FOR 4 SECONDS BEFORE ITS 
TERMINATION. AFTER THE ROUTINE HAS BEEN TERMINATED, THE RESET 
ROUTINE IS EXECUTED AND ANOTHER 4 SECOND ANALYSIS CHECK TAKES PLACE 
FOR RESET OF THE SCA CIRCUITRY. 

THREE SCA PROGRAM OPTIONS ARE AVAILABLE TO REDUCE PROGRAM RUN TIME, 
BUT SACRIFICING THE ABILITY TO TRAP TIMEOUT ERRORS. THESE ARE, 

1. FAST PASS (FUNC 2 - SH 14) 

THIS OPTION ANALYZES ROUTINES HHERE NO TIMEOUT IS 
EXPECTED OR NO ALARM CHECK BEING MADE, FOR .250 
SECONDS. 

2. NO RESET (FUNC 2 - SH 13) 

THIS OPTION BYPASSES RUNNING OF RESFT ROUTINE AFTER EACH 
ROUTINE EXECUTION. 

3. FAST PASS AND NO RESET (FUNC 2 - SHS 13 AND 14) 

THIS OPTION ALLOHS BOTH THE NO RESET AND FAST PASS OPTION 
TO BE RUN AT SAME TIME. THIS OPTION CUTS PROGRAM RUN 
TIME TO ABOUT 55 SECONDS. 

THE DIAGNOSTIC MODE OPTION (FUNC 2 - SH 12) ALLOHS A MORE EXTENSIVE 
'check on THE COMMAND OPERATION. BUT BECAUSE OF THE CRITICAL TIMING 
INVOLVED WHEN SENSING THE DIAGNOSTIC HOROS, THIS OPTION SHOULD NOT 
BE SELECTED HHEN RUNNING OVERLAP. UNLESS DIAGNOSTIC MODE IS 
SELECTED, ANALYSIS IS ONLY MADE ON OSH. 

THE SCOPE LOOP OPTION ALLOHS THE SELECTION OF THE RATE AT HHICH 
ANALYSIS WILL BE MADE DURING A R0UTIN6. THIS RATE ALSO DETERMINES 
THE ROUTINE RUN TIME. THE SCOPE LOOP OPTION IS NOT AVAILABLE TO 
ROUTINES HHERE TIMEOUT INTERRUPTS ARE EXPECTED. 

THE SCOPE LOOP OPTION IS ONLY AVAILABLE IF A ROUTINE THAT HAS BEEN 
SELECTED. (FUNCTION 2) 

THE PROPER USE OF THIS OPTION IS TO LOOP THE SELECTED FAILING ROUTINE 
AND THEN EXECUTE THE DESIRED SCOPE LOOP OPTION TO SET ROUTINE LOOP 
RATE. 
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5.2*** RnUTlNE DESCRIPTION 

ROUTINE 01 ... PROGRAM RESET 

THIS ROUTINE CHECKS THE ABILITY OF THE SCA RESFT COMMAND TO 
ESTABLISH INITIAL RESET CONDITIONS OF THE SCA CIRCUITRY. 
ALL DIAGNOSTIC HORO TRIGGERS AND DSW TRIGGERS SHOULD BE TURNED 
OFF, WITH THE EXCEPTION OF THE SENO/RFCEIVE RUN TRIGGER. THIS 
ROUTINE IS EXFCUTFO AS THF SECOND HALF OF ALL OTHFR ROUTINES 
EXCFPT ROUTINES 04 AND 05 IF THE NO RESET PROGRAM OPTION HAS 
NOT BEEN SELECTED, (FUNCTION 2, BIT SW 13). THE NO RESET 
PROGRAM OPTION IS NOT APPLICABLE TO THIS ROUTINE. 

ROUTINE 02 ... ALARM ON 

THIS ROUTINE CHECKS THE ABILITY TO TURN ON THE SCA AUDI ABLE 
ALARM. THE ALARM IS THEN RESET BY A PROGRAM RESET. THF 
NORMAL ALARM ON TIME IS 4 SECONDS AND A FAILURE TO RESET IT IS 
EVIDENT BY THE ALARM STAYING ON FOR 1? SECONDS OR MORE. MAKE 
SURE THF SCA ALARM SWITCH IS TURNED ON FOR THIS ROUTINE. THE 
FAST PASS PROGRAM OPTION IS NOT APPLICABLE TO THIS ROUTINE. 

ROUTINE 03 ... ALARM OFF 

THIS ROUTINE ENSURES THAT EXECUTION OF THE ALARM OFF COMMAND 
DOES NOT BRING UP UNDESIRABLE LEVELS IN THE SCA CIRCUITRY. 

ROUTINE 04 ... ALARM ON 

THIS ROUTINE TURNS ON THE SCA AUDIBLE ALARM. THE ALARM IS 
NORMALLY TURNED OFF BY THE EXECUTION OF ROUTINE 04, IF NORMAL 
ROUTINE SFOUFNCE IS TAKING PLACE (4 SECONDS LATER). MAKE SURE 
THE SCA ALARM SWITCH IS TURNED ON FOR THIS ROUTINE. THE FAST 
PASS AND NO RESET PROGRAM OPTIONS ARE NOT APPLICABLE TO THIS 
ROUTINE. 

ROUTINE 05 ... ALARM OFF 

THIS ROUTINE NORMALLY TURNS OFF THE SCA ALARM TURNED ON BY 
ROUTINE 04. IF NORMAL ROUTINE SEQUENCE IS BEING EXFCUTFO, A 
FAILURE IS EVIDENT IF ALARM IS ON LONGER THAN 4 SECONDS. 

ROUTINE 06 ... END OPERATION 

THIS ROUTINE ENSURES THAT THE EXECUTION OF THE ENOOP COMMAND 
DOES NOT BRING UP UNDESIRABLE LEVELS IN THE SCA CIRCUITRY. 
IF DIAGNOSTIC MODE IS SELECTED, THE SETTING OF THE ENOOP 
TRIGGER IS CHECKED. 



ROUTINE 07 ... ENABLE SCA 

THIS ROUTINE CHECKS THE ENABLE COMMAND. 
SHOULD COME ON. 



BIT 6 OF THF DSW 



ROUTINE 08 ... DISABLE 

THIS ROUTINE ENSURES THAT THE EXECUTION OF THF DISABLE COMMAND 
DOES NOT BRING HP tJNDESIRABLE LEVELS IN THE SCA CIRCUITRY. 
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ROUTINE 09 ... ENARLF/niSABLE 

THIS ROUTINE CHECKS THE ABILITY OF THE DISABLE COMMAND TO RESET 
THE ENABLE TRIGGER. THE ENABLE DSW BIT SHOULD NOT COME ON. 

RnUTINE OA ... START/STOP TIMER 



ROUTINE II ... SET SLAVE MODE 

THIS ROUTINE CHECKS THAT THE SETTING OF THE SCA TO THP SLAVF 
MODE CAUSES A TIMEOUT INTERRUPT, AND TURNS ON RECEIVE RUN, BUSY, 
AND READY DSW BITS. THE FAST PASS PROGRAM OPTION IS NOT 
APPLICABLE TO THIS ROUTINE. 



IN STR MODE ... 

THIS ROUTINE ENSURES THAT THE EXECUTION OF THE START/STOP TIMER 

COMMAND DOES NOT BRING UP UNDESIRABLE LEVELS IN THE SCA CIRCUITRY 

IN BI SYN MODE ... 

EXECUTING THE START/STOP TIMER INSTRUCTION IN BINARY SYNC MODE 
WILL ALLOW THE PROGRAM TIMER TO OPERATE. A TIMEOUT INTERRUPT 
WILL OCCUR. 

ROUTINE OB ... START/STOP .... START/STOP TIMER 

THIS ROUTINE ENSURES THAT THE EXECUTION OF 2 START/STOP TIMER 
COMMANDS DO NOT BRING UP UNDESIRABLE LEVEL IN THE SCA CIRCUITRY. 



ROUTINE 12 ... SET SLAVE MODE ... START/STOP TIMER 



IN STR MODE ... 

THIS ROUTINE CHECKS THAT THE TIMEOUT INTERRUPT EXPECTED AS THE 
RESULT OF SETTING SLAVF MODE IS INHIBITED BY THE START/STOP 
TIMER COMMAND. THE BUSY, READY, AND RECEIVE RUN DSW BITS SHOULD 
COME ON. 

IN BI SYN MODE ... 

THIS ROUTINE CHECKS THAT THE TIMEOUT INTERRUPT EXPECTED AS THF 

RESULT OF SETTING SLAVE MODE IS NOT INHIBITED BY THE 

START/STOP TIMER COMMAND. 

A TIMEOUT INTERRUPT WILL OCCUR. 



ROUTINE OC ... LOAD SYNC/IDLE REGISTER 

THIS ROUTINE ENSURES THAT THE EXECUTION OF LOAD SYNC/IDLE 
COMMAND DOES NOT BRING UP UNDESIRABLE LEVELS IN THE SCA 
CIRCUITRY. 

ROUTINE OD ... WRITE BUFFER 

THIS ROUTINE ENSURES THAT THE EXECUTION OF THE WRITE BUFFER 
COMMAND DOES NOT BRING UP UNDESIREO LEVELS IN THE SCA CIRCUITRY. 

ROUTINE OF ... READ BUFFER 

THIS ROUTINE ENSURES THAT THE EXECUTION OF THE READ BUFFER 
COMMAND DOES NOT BRING UP UNOESIRED LEVELS IN THE SCA CIRCUITRY. 



ROUTINE 13 



ROUTINE 14 



SET MASTER MODE ... SET SLAVE MODE 

THIS ROUTINE CHECKS THE ABILITY OF THE SET SLAVE MODE COMMAND 
TO CONDITION THE SCA CIRCUITRY FOR SLAVE MODE FROM MASTER MODE. 
A TIMEOUT INTERRUPT IS EXPECTED AND RECEIVE/RUN, BUSY AND READY 
DSW BITS SHOULD BE TURNED ON. THE FAST PASS PROGRAM OPTION IS 
NOT APPLICABLE TO THIS ROUTINE. 



START READ 

THIS ROUTINE CHECKS THE ABILITY OF THE START READ COMMAND TO 
GENERATE A TIMEOUT INTERRUPT AND TURN ON RECEIVE RUN, BUSY, 
AND READY DSW BITS. THE FAST PASS PROGRAM OPTION IS NOT 
APPLICABLE TO THIS ROUTINE. 



ROUTINE 15 



START READ 



START/STOP TIMER 



ROUTINE OF 



SET MASTER MODE 

THIS ROUTINE CHECKS THAT THE SETTING OF THE SCA TO MASTER MODE 
CAUSES A TIMEOUT INTERRUPT, TURNS OFF RECEIVE RUM AND SETS BUSY 
AND READY BITS IN THE DSW. THE FAST PASS OPTION IS NOT 
APPLICABLE TO THIS ROUTINE. 



ROUTINE 10 



SET MASTER MODE 



START/STOP TIMER 



IN STR MODE ... 

THIS ROUTINE CHECKS THAT THE TIMEOUT INTERRUPT EXPECTED AS THE 
RESULT OF SETTING MASTER MODE, IS INHIBITED BY THE START/STOP 
TIMER COMMAND. THE BUSY AND READY DSW BITS SHOULD COME ON 
AND RECEIVE RUN DSW BIT SHOULD BE TURNED OFF. 

IN BI SYN MODE ... 

THIS ROUTINE CHECKS THAT THE TIMEOUT INTERRUPT EXPECTED AS THE 

RESULT OF SETTING MASTER MODE, IS NOT INHIBITED BY THE 

START/STOP TIMER COMMAND. 

A TIMEOUT INTERRUPT WILL OCCUR. 



IN STR MODE ... 

THIS ROUTINE CHECKS THE ABILITY OF THE START/STOP TIMER 
COMMAND TO INHIBIT THE TIMEOUT INTERRUPT ORIGINALLY SET IN 
MOTION BY THE START READ COMMAND. THE RECEIVE RUN, BUSY AND 
READY DSW BITS SHOULD BE TURNED ON. 

IN BI SYN MODE ... 

THIS ROUTINE CHECKS THAT THE TIMEOUT INTERRUPT EXPECTED AS THE 
RESULT OF THE START READ COMMAND DOES OCCUR AND THAT IT IS NOT 
INHIBITED BY THE START/STOP TIMER COMMAND. 



ROUTINE 16 ... SET MASTER MODE 



START READ 



THIS ROUTINE CHECKS THE ABILITY OF THE START READ COMMAND TO BE 
EXECUTED PROPERLY WHEN THE SCA IS SET TO MASTER MODE. A TIME- 
OUT INTERRUPT IS EXPECTED AND THE BUSY AND READY DSW BITS SHOULD 
BE TURNED ON. THE FAST PASS PROGRAM OPTION IS NOT APPLICABLE 
TO THIS ROUTINE. 
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RPDTINF 17 



SFT MASTFR MODF 



START PEAn 



START/STOP TIMFR 



IN STR Mnnp ... 

THIS ROUTINE CHECKS THE ABILITY OF THE START/STOP TIMER TO 
INHIBIT THE TIMEOUT INTERRUPTS ORIRINAtLY SET IN MOTION BY THE 
SET MASTER MODfi AN START READ COMMANDS. THE BUSY AND READY 
OSW BITS SHOUtn BE TURNED ON. 



ROUTINE Ifi 



IN BI SYN MODE ... 

THIS ROUTINE CHECKS THAT THE TIMEOUT INTERRUPT EXPECTED AS THE 

RESULT OF THE SFT MASTER MODE AND START READ COMMANDS DOES 

OCCUR AND THAT IT IS NOT INHIBITED BY THE START/STOP TIMER 

COMMAND. 

SET 7 BITS OPERATION 

THIS ROUTINF ENSURES THAT THP SET 7 PITS COMMAND DOFS NOT BRING 
UP UNDESIRABLE LEV/ELS IN THE SCA CIRCUITRY. 



ROUTINE 19 ... SET 6 BITS OPERATION 

THIS ROUTINE ENSURES THAT THE SFT 6 BITS COMMAND DOES NOT 
BRING UP UNDESIRABLE LEVELS IN THE SCA CIRCUITRY. 



ROUTINE lA 



START READ 



END QPFRATION 



THIS ROUTINF CHECKS THE ABILITY OF THE END OPERATION COMMAND 
TO TERMINATE THE START READ OPERATION AND INHIBIT THE TIME- 
OUT INTERRUPT BEFORE IT OCCURS. THE READY AND RECEIVE/RUN 
DSW BITS SHOULD BE TURNED ON. 



ROUTINE 18 ... TRANSMIT SYNC 



IN STR MOOF ... 

THIS ROUTINE CHECKS THE ABILITY OF THE TRANSMIT SYNC COMMAND 
TO GENERATE A WRITE RESPONSE INTERRUPT AND A TIMEOUT INTERRUPT. 
IT SHOULD ALSO TURN ON CHECK, BUSY, AND READY DSW BITS. THE 
FAST PASS PROGRAM OPTION IS NOT APPLICABLE TO THIS ROUTINE. 

IN 81 SYN MODE .. . 

THIS ROUTINE CHFCKS THE ABILITY OF THE TRANSMIT SYNC COMMAND 
TO GENERATE A WRITE RESPONSE INTERRUPT AND A TIMEOUT INTERRUPT. 
THE SAME nsw, OIAG WORDS BITS ARE SET THAT WERE SET IN STR MODE 
EXCEPT THF IDLE CHARACTER TRIGGER BIT IN DWl. IDLF CHAR TRIG 
IS LFFT OFF. 

ROUTINE IC ... LOAD SYNC/ IDLE REGISTER ... TRANSMIT SYNC 

IN STR MODE ... 

THIS ROUTINF CHECKS THE ABILITY OF THE TRANSMIT SYNC COMMAND 

TO BE PROPERLY EXFCUTEO AFTFR THE SYNC REGISTER HAS BEEN LOADED. 

THE WRITE RESPONSE AND TIMEOUT INTERRUPT SHOULD BE GENERATED 

AND THE CHECK, BUSY, AND READY DSW BITS SHOULD BE TURNED ON. 

THE FAST PASS PROGRAM OPTION IS NOT APPLICABLE TO THIS ROUTINE. 

IN BI SYN MODE .. . 

THIS ROUTINE OPERATES THE SAMF AS OFSRIBED ABOVE IN THE STR 
SECTION EXCEPT THE IDLE CHARACTER TRIGGER BIT IN DIAG WORD 1 
IS LFFT OFF. 
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ROUTINE ID ... LOAD SYNC/IDLE REGISTER ... TRANSMIT SYNC 



START/STOP TIMFR 



IN STR MODE ... 

THIS ROUTINE CHECKS THE ABILITY OF THE START/STOP TIMER 
COMMAND TO INHIBIT THE WRITE RESPONSE AND TIMEOUT INTERRUPTS. 
THE RECEIVE/RUN DSW BIT SHOULD RF TURNED ON. 

IN BI SYN MODE ... 

THE ROUTINF CHECKS THE ABILITY OF THF LOAD SYNC/IDLE REGISTER AND 
TRANSMIT SYNC COMMANDS TO GENERATED THE WRITE RESPONSE AND 
TIMEOUT INTERRUPTS. THE START/STOP TIMER COMMAND SHOULD NOT 
INHIBITE TIMEOUT. THF WRITE RESPONSE, CHECK, TIMEOUT, BUSY, 
READY AND RCV RUN DSW BITS SHOULD BE TURNED ON. 



ROUTINE IE 



LOAD SYNC/IDLE REGISTER 



TRANSMIT SYNC 



END OPERATION 



THIS ROUTINE CHECKS THE ABILITY OF THE END OPERATION COMMAND TO 
TERMINATE THE TRANSMIT SYNC OPERATION. THE TIMEOUT AND WRITE 
RESPONSE INTERRUPTS SHOULD BE INHIBITED AND THE RECEIVE/RUN DSW 
BIT TURNED ON. 

ROUTINE IF ... START WRITE 

THIS ROUTINE CHECKS THE ABILITY OF THE START WRITE COMMAND TO 
GENERATE A WRITE RESPONSE INTERRUPT AND TURN ON THE CHECK, BUSY, 
READY, AND RECEIVE RUN DSW BITS. 

ROUTINE ?0 ... LOAD SYNC/IDLE REGISTER ... START WRITE 

THIS ROUTINE CHECKS THE ABILITY OF THE START WRITE COMMAND TO 
BE EXECUTED PROPERLY AFTER THE LOADING OF THF SYNC/IDLE REGISTER. 
A WRITE RFSPONS"^ INTERRUPT SHOULD BE GENERATED AND THF CHECK, 
BUSY, READY, AND RECEIVE/RUN OSW BITS SHOULD BE TURNED ON. 



ROUTINE ?1 .. 



START WRITE 



WRITE BUFFER 



END OPERATION 



THIS ROUTINE CHECKS THE ABILITY OF END OPERATION COMMAND TO 
TERMINATE THF START WRITE OPERATION. THE WRITE RESPONSE 
INTERRUPT SHOULD BE INHIBITED AND THE CHFCK 
AND RECEIVE/RUN DSW DITS SHOULD BE TURNED ON. 

POUTINF ?2 ... SET SCA DIAGNOSTIC MODE 

THIS ROUTINF CHECKS THE ABILITY OF THE SET DIAGNOSTIC MODE 
COMMAND TO GENERATE READ RESPONSE AND WRITE RESPONSE INTERRUPTS, 
THF CHc^CK AND RECEIVE/RUN DSW BITS SHOULD BE TURNED ON. 
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5.3*«* DIAGNOSTIC REFERENCE TABLE 
ERROR BIT REFERENCE 
ERR BIT BIT POSITION OSW ERROR DWl ERROR 



DW2 ERROR 



8 READ RESP SYNC TRIG .... CLK GATE 

4 I WRT RESP . IDLE CHAR .... SYNC CNTR 

? 2 CHECK .... CHAR CMPT 1ST TRANS 

1 ■» .......... TIMEOUT .. END OP PHS CNTR 



4 ANS REO .. OIAG MODE .... RCV TAG 

!^ BUSY TIMER TR CHAR PHS 

6 ENABLE ... 3 SEC TIMER 

> READY .... 1.5 SEC TIMER 



8 



RCV RUN .. SEND DATA 



ROUTINE 01 


COMMAND 


FUNCTION 


MODIFIER 




RESET 


STR WRT 


9 




OSW 


ERR 


DWl ERR 



012345678 



0W2 ERR 



012345678 012345 



ALARM 



STR 



S/B ON 


N 


1 • • • 

• ■ • 

F F F 


• 

F 


F 


... 
... 
F F F 


X 

• 

F 


• 
• 

F 


• 

F 


• • 

F F 


• • 

• • 

F F 


• • • 

• • • 

F F-F 


• 


• 
■ 

F 


F F 


• 
• 

F 


• 
• 

F 


• 

F 




F 


C C C 


C 


c 


C C C 


C 


C 


C 


C C 


C C 


C C C 




C 


C C 


C 


C 


C 




T 


3 3 3 


3 


3 


3 3 3 


2 


3 


5 


6 3 


3 3 


3 3 6 




6 


1 2 


5 


5 


3 






5 5 5 


5 


5 


3 4 6 


1 


2 


3 


4 2 


I 4 


4 4 3 




4 


1 1 


2 


3 


2 




N 


1 I 1 


1 


1 


1 1 1 


1 


1 


1 


1 1 


I 1 


1 1 1 




1 


1 1 


1 


I 


1 




II 


BAB 


A 


B 


AAA 


A 


B 


B 


B A 


B A 


ABA 




B 


A A 


B 


B 


B 




M 


ALB 


M 


c 


BOX 


V 


C 


Y 


M R 


E R 


V P L 




L 


T E 


H 


X 


M 






2 2 2 


2 


2 


4 2 4 


6 


2 


4 


2 2 


2 2 


2 4 4 




2 


2 2 


4 


4 


2 


BI SYN 




• • ■ 


• 


. 


• • • 


. . 


■ • 


. 


• • 


• • 


• • • • 




• 


• • 


• 


• 


« 


S/B ON 


• 


• • • « 


* 


. 


• • • 


X . 


• • 


• 


. • • 


• • 


• • • < 


• • 


• 


• • 


• 


• 


• 




COMMENTS 

































THIS ROUTINE CHECKS FOR RESET CONDITION OF THE SCA CIRCUITRY, 
IT SHOULD RF ABLF TO TRAP SOLID AND INTERMITTENT PROBLEMS IN 
THIS AREA. IF READY DSW BIT IS ON, CHECK SET UP. 
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THIS ROUTINE TURNS ON THE ALARM AND THE RESET AT END OF THE 4 
SECOND DELAY TURN IT OFF. IF ALARM STAYS ON FOR ABOUT 8 SECONDS, 
GO TO NET NUM. FC321TL4. IF NO ALARM, MAKE SURE ALARM SW IS ON. 
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THIS ROUTINE TURN ON ALARM AND THE RESET IS INHIBITED. THE ALARM 
SHOULD BE ON FOR 4 SECONDS AND TURNED OFF BY ROUTINE 05. IF 
ALARM DOFS NOT COME ON, MAKE SURE ALARM SW IS ON. 



THIS ROUTINE CHECKS THE END OPERATION COMMAND. 
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THIS ROUTINE TURNS OFF ALARM WHICH WAS TURN ON BY ROUTINE 04. 
A FAILURE HAS OCCUREO, IF ALARM STAYS ON LONGER THAN 4 SECONDS. 



THIS ROUTINE CHECKS SETTING OF THE ENABLE DSW BIT. IF nATA SET 
CABLE IS NOT PLUGGED INTO DATA SET, AN ANS REQ INT MAY OCCUR 
BECAUSE ANS RPO LINE IS NOT TERMINATED. 
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THIS ROUTINE CHECKS THAT XIO DISABLE DOES NOT BRING UP UNDESIREO 
LEVELS IN THE SCA CIRCUITRY. 



THIS ROUTINE CHECKS THAT XIO START/STOP DOES NOT CAUSE A TIMEOUT 
INTERRUPT IN STR MODE. IF A TIMEOUT INTERRUPT OCCURS* MAKE SURE 
STR MODE SW IS IN THE STR POSITION. 
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ROUTINE OB 



COMMAND 

START/STOP 
START/STOP 



FUNCTION 

CONTROL 
CONTROL 



MODIFIER 

10 
10 



OSW ERR 
012345678 



DMl ERR 
12345678 



STR 



DH2 ERR ALARM 

12 3 4 5 



S/B ON X 



FFFFFFFFF 



FFFFFFFFF 



CCCCCCCCC CCCCCCCCC 



THIS ROUTINE TURNS ON THE ENABLE TRIGGER AND THEN CHECKS THAT AN 
XIO DISABLE RESFT IT. 



T 3333 3 3332 

555553461 
N lllllllll 

U BABABAAAA 
M ALBMCBQXV 
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61 SYN 

S/B ON X 
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F F F F F F 
CCCCCC 
1 6 1 2 5' 5 
14 112 3 
111111 
B B A A B B 
L L T E H X 
4 2 2 2 4 4 
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COMMENTS 



THIS ROUTINE CHECKS THAT 2 CONSECUTIVE XIO START/STOP 
INSTRUCTIONS 00 NOT CAUSE A TIMEOUT INTERRUPT, 



DATE 


15JUN67 


010CT67 


01APR68 


15SEP68 


01JUL69 


010CT69 


EC NO. 


420317 


420374 


420411 


420416 


571013 


571066 



PROG ID 
PAGE 
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EC NO. 
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420374 



01APR68 
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PAGE 
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IBM HAINTFNANCr OIAGNOSTIC PPOGRAM FOR THF 1130 SYSTFM 
SCA PROGRAM INSTRUCTIONS FUNCTION TFST STR/RSC 



PART NO. 2243567 
PAGE 13 
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PART NO. 2243567 
PAGE 13A 
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THIS ROUTIMF CHECKS THAT XIO SVNC/IDLF DOES NOT BRING UP 
UNOESIPED LEVELS IN THE SCA CIRCUITRY. 
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ROUTINE OE COMMAND FUNCTION MODIFIER 
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THIS ROUTINE CHECKS THAT XIO READ BUFFER DOES NOT BRINC, UP 
UNOESIRED LEVELS IN THE SCA CIRCUITRY. 



ROUTINE OF 
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THIS ROUTINE CHECKS THAT XIO WRITE BUFFER DOES NOT BRING UP 
UNOESIRED LEVELS IN THE SCA CIRCUITRY. 



THIS ROUTINE CHECKS THAT XIO MASTER CLEARS RECEIVE/RUN OSW BIT 
AND SETS TIMEOUT, BUSY, AND READY DSW BITS. IF DATA SET IS NOT 
IN TEST, THIS WILL BE THE FIRST ROUTINE TO FAIL. (DSW BIT 7) 
THIS ERROR WILL OCCUR IF THE 2 MIC OPTION WAS NOT SELECTED ON 
A 2 MIC MEMORY. 



DATE 
EC NO. 



15JUN67 
420317 



01OCT67 
420374 



01APR68 
420411 



15SEP68 
420416 



01JUL69 
571013 



010CT6P 
571066 



PROG ID 
PAGE 
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DATE 
EC NO. 
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420317 
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420411 
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571013 
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571066 



PROG ID 
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IBM MAINTFNANCE DIAGNOSTIC PROGRAM FOR THF 1130 SYSTCM 
SCA PROGRAM INSTRUCTIONS FUNCTrON TEST STR/BSC 



PART NO. 224356 7 
PAGE I* 



IBM MAINTENANCe DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA PROGRAM INSTRUCTIONS FUNCTION TFST STR/BSC 



PART NO. 2243567 
PAGE l*A 



ROUTINE 10 



COMMAND 

MASTER 
START/STOP 



FUNCTION 

STR RO 
CONTROL 



MODIFIER 

15 

10 



ROUTINE 12 



COMMAND 



FUNCTION 



MODIFIER 



SLAVE STR RD lA 
STAPT/STOP CONTROL 10 



OSW ERR DWl ERR DH2 ERR ALARM 

012345678 012345678 012345 

STR ...., 

S/BON.. X.X *xIII*IIII*I '. 

N FFFFFFFFF FFFFFFFFF FFFFFF F 

E CCCCCCCCC CCCCCCCCC CCCCCC C 

T ^33333332 356333336 161255 3 

555553461 234214443 141123 2 

N I 1 1 1 I 1 1 I 1 I 1 1 1 1 1 1 1 1 I I 1 1 I 1 I 

U BABABAAAA BBBABAABA BBAABB B 
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222224246 242222244 422244 2 
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^/8 ON X.X X I I I I ! ! ! I * ' 

COMMENTS 

THIS ROUTINE CHECKS THAT XIO START/STOP PREVENTS THE TIMEOUT 
INTERRUPT SET IN MOTION BY XIO MASTER. 



STR 



DSW F!"> 
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S/B ON X . X X 



DWl ERR 
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COMMENTS 



X X 
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THIS ROUTINE CHECKS THAT XIO START/STOP PREVENTS THE TIMEOUT 
INTERRUPT SFT IN MOTION BY XIO SLAVE. 



"nilTINE 11 



COMMAND 
SLAVE 



FUNCTION 
STR RD 



MODIFIER 
14 



ROUTINE 13 



COMMAND 

MASTER 
SLAVE 



FUNCTION 

STR RO 
STR RD 



MODIFIER 

15 

14 



STR 
S/B ON 
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N 
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S/B ON 



OSW FRR DM1 ERR DW2 ERR ALARM 

01234567B 012 3 45678 012345 

FFFFFFFFF FFFFFFFFF fffFFF F 

CCCCCCCCC CCCCCCCCC CCCCCC C 
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COMMENTS 
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• ••X»X«XX« #•«„■» _«__.__^ 



COMMENTS 



THIS ROUTINE CHECKS THAT XIO SLAVE SETS TIMEOUT, BUSY, AND READY 
DSW BITS. 



THIS ROUTINE CHECKS THAT XIO SLAV^ RESFTS RFC/RUN DSW BIT AFTFR 
IS WAS CLEARED BY XIO MASTER. 
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ROUTINE 14 
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THIS ROUTINE CHECKS THAT XIO START READ SETS TIMEOUT, BUSY, AND 
READY DSW BITS. 
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THIS ROUTINE CHECKS THAT XIO START/STOP PREVENT THE TIMEOUT 
INTERRUPT SET IN MOTION BY XIO START READ. 



DATE 


15JUN67 
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01APR68 
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EC NO. 
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PROG ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA PROGRAM INSTRUCTIONS FUNCTION TEST STR/BSC 



PART NO. 2243567 
PAGF 15A 



ROUTINE 16 


COMMAND 




FUNCTION 


MODIFIER 




MASTER 




STR RO 


15 




START RD 




STR RD 







DSW 


FRF 
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OWl ERR 



DW2 ERR ALARM 

012345678 012345678 012345 

STR 

S/B ON X.X.X 

N FFFFFFFFF FFFFFFFFF FFFFFF 

F CCCCCCCCC CCCCCCCCC CCCCCC 
T 333333332 356333336 161255 

555553461 234214443 14112 3 

N lllllllll lllllllll 111111 

U BABARAAAA BBBABAABA BBAABB 

M ALBMC BOXV CYMRERVPL LLTFHX 
222??4246 242222 2 44 422244 

BI SYN 

S/R ON X.X.X 

COMMENTS 

THIS ROUTINE CHECKS THAT XIO START READ IS EXECUTED PROPERLY IN 
MASTER MODE. 



ROUTINE 17 



COMMAND 



FUNCTION 



MASTER STR RD 

START RD STR RD 

START/STOP CONTROL 



MODIFIER 

15 


10 
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012345678 012345678 012345 
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S/B ON X.X X 

N FFFFFFFFF FFFFFFFFF FFFFFF P 
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U BABABAAAA BBBABAABA BBAABB 8 

M ALBMCBOXV CYMRERVPL LLTEHX M 
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S/B ON .X.X X 

COMMENTS 

THIS ROUTINE CHECKS THAT XIO START/STOP PREVENTS THE TIMEOUT 
INTERRUPT SET IN MOTION BY XIO START READ IN MASTFR MODE. 
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THIS ROUTINE CHECKS THAT XIO SET 
LEVELS IN THE STR CIRCUITRY. 



7 DOES NOT BRING UP UNDESIRABLE 
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THIS ROUTINE CHECKS THAT XIO SET 7 DOES NOT BRING UP UNDESIRABLE 
LEVELS IN THE STR CIRCUITRY. 
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ROUTINE lA 
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FUNCTION 


MODIFIER 




START RO 


STR RO 
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COMMENTS 



THIS ROUTINE CHECKS THAT THE END OP COMMAND PREVENT THE TIMEOUT 
INTERRUPT SFT IN MOTION BY XIO START READ. 
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THIS ROUTINE CHECKS THAT XIO SYNC SETS TIMEOUT AND WRITE RESPONSE 
INTERRUPT nSW BITSt AND SET CHECK, BUSY, AND READY DSW BITS. 

IF C.E. SW IS TURNED ON, THIS WILL BE FIRST ROUTINE TO FAIL. 
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THIS ROUTINE CHECKS THAT XIO SYNC OPERATES PROPERLY AFTER 
TRANSFERTNG INTO SYNC/IDLE REGISTER. 
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THIS ROUTINE CHECKS THAT XIO START/STOP PREVENTS TIMEOUT AND 
WRITE RESPONSE INTERRUPTS SET IN MOTION BY XIO SYNC. 



DATE 
EC NO. 
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IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA PROGRAM INSTRUCTIONS FUNCTION TEST STR/BSC 
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PAGE 17A 
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THIS ROUTINE CHECKS THAT XIO END OP PREVENTS TIMEOUT AND WRITE 
RESPONSE INTERRUPTS SET IN MOTION BY XIO SYNC. 
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ROUTINE 20 


COMMAND FUNCTION 


MODIFIER 






SYNC/IDLE XIO MRT 


13 






START WRT STR HRT 







' 


OSM ERR 


DWl ERR 


0U2 ERR 



012345678 012 345678 012345 



STR ... 

S/B ON...XX..X.XX 



• X««*«*A 



X X . X X X 



BI SYN 
S/B ON 



ROUTINE 22 COMMAND FUNCTION MODIFIER 
01 AG MODE CONTROL 12 

DSW ERR OWl ERR 



0W2 ERR 



ALARM 



012345678 012345678 012345 

ST« • 

S/B ON. .XXX X ..X.X...X XX. XXX 
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F 
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F 
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F 


F 


F 


F 


F F 


F 


F 


F F 


F 


F 


F F 


F 


F 


F 


F 


E C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C C 


C 


C 


C C 


C 


C 


C C 


C 


C 


C 


C 


T 3 


3 


3 


3 


3 


3 


3 


3 


2 


3 


5 


6 3 


3 


3 


3 3 


6 




6 t 


2 


5 


5 


3 


5 


5 


5 


5 


5 


3 


4 
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3 
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B 


A 
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B 
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Y 
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L 
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E 
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X 
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2 
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2 
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• 
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• 
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S/B ON 
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. . X 



X X 
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ALARM 
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2 
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2 



THIS ROUTINE CHECKS THAT XIO START WRITE IS EXECUTED PROPERLY 
AFTER LOADING THE SYNC/IDLE REGISTER. 



THIS ROUTINE CHECKS THAT XIO DIAGNOSTIC MODE CAUSES READ AND 
WRITE INTERRUPTS, AND ALSO SET CHECK DSW BIT. 



ROUTINE 21 




COMMAND 




FUNCTION 




MODIFIER 






















START 


WRT 


STR 


WRT 



































WRT 


BUFFER 


XIO 


WRT 



































END 


OP 




CONTROL 
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OSW ERR 










DWl ERR 








0W2 


ERR 




ALARM 











2 


3 


4 
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2 
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6 


7 
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4 
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. 
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« • 


• 
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• 
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2 
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• 
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• • 
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THIS ROUTINE CHECKS THAT XIO END OP PREVENTS THE WRITE RESPONSE 
INTERRUPT SET IN MOTION BY XIO START WRITE. 
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050C 



ORG 



♦G1500 
EQUATE TABLE 



0160 

0161 

0162 

0163 

0164 



0165 

0166 

0167 

0168 



017A 
018A 
019A 
OlAA 
OIBA 
OIBB 
OIBC 
OIBD 



05 DC 





0318 


05DD 





0000 


05DE 





0000 


05DF 





0000 


05E0 





0000 


05E1 





0000 


05E2 





0000 


05E3 


1 


0707 


05E4 


1 


07D7 


05E5 


1 


0707 


05E6 





FFFF 



* THIS TABLE EQUATES TEST PROGRAM LABELS 

* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* ADDRESSES. 

♦ 



* 


MON ITOR 


ENTRY ADDRESSES 


BEGIN 


EQU 


/160 


BEGIN ROUTINE 


START 


EQU 


BEGINEl 


SUPERVISOR ROUTINE 


ERROR 


EQU 


STARTtl 


ERROR LOG ROUTINE 


LOG 


EQU 


ERRDRCl 


STATUS LOG ROUTINE 


END 

^ 


EQU 


LOGCl 


END ROUTINE 


* 


MONITOR 


CONTROL 


WORD ADDRESSES 


RTNSM 


EQU 


ENO&l 


ROUTINE START SM 


ERLCK 


EQU 


ENDC2 


LOCK ON ERR CONTROL 


LOG BY 


EQU 


ENDC3 


I/O BUSY SW ADDRS 


RLCF 

* 


EQU 


ENDe4 


RELOC FACTOR ADDRS 


* 


INTERRUPT TRANSFER VECTOR ADDRESSES 


ILO 


EQU 


/17A 


INTERRUPT LEVEL 


ILl 


EQU 


IL0E16 


INTERRUPT LEVEL 1 


IL2 


EQU 


IL1&16 


INTERRUPT LEVEL 2 


IL3 


EQU 


IL2ei6 


INTERRUPT LEVEL 3 


IL4 


EQU 


IL3G16 


INTERRUPT LEVEL 4 


ROTY 


EQU 


IL4S1 


CON/PRINT REQUEST 


RQKB 


EQU 


RQTYEl 


USE KEYBOARD REQUEST 


SVKB 


EQU 


RQKBEl 


KB SERVICE REQUEST 


* 


* 




SCA INSTRUCTION FT 



* PROGRAM STATUS TABLE 

*♦♦****♦♦******♦*********♦♦«**♦***«*♦*»*♦♦♦♦♦ 

* 

/0318 PROGRAM ID 

/OOOO ROUTINE NUMBER 

/OOOO ROUTINE ADDRESS 

PROGRAM CONTROL 

ROUTINE SELECTION 

OPTION SELECTION SW 

RTN SCAN OPTION 

STRT LOOP PROGRAM 

STRT RESTART ADDRESS 

STRT ENTRY SET IN MN/LINE 

/FFFF TERMINATOR 



PID 


DC 


RIO 


DC 


RAD 


DC 


SWO 


DC 


SWl 


DC 


SW2 


DC 


SM3 


DC 




DC 




DC 


MLSCF 


DC 



DC 



* LOCK ON FUNCTION ROUTINE 



LD SWO 

OR WITH MON LOCK SW 

CHECK BIT 10 

BR IF NOT LOCK/FUNC 



05E7 





OOOO 




* 
LOCK 


DC 




/OOOO 


05E8 


1 


C400 


05DF 




LO 


L 


SWO 


05EA 





EC80 


0166 




OR 


I 


ERLCK 


05EC 





lOOA 






SLA 




10 


05E0 


1 


4C90 


05E7 




BSC 


I 


LOCK,- 



31800020 
31800030 
31800040 
31800050 
31800060 
31800070 
31800080 
31800090 
31800100 
31800110 
31800120 
31800130 
31800140 
31800150 
31800160 
31800170 
31800180 
31800190 
31800200 
31800210 
31800220 
31800230 
31800240 
31800250 
31800260 
31800270 
31800280 
31800290 
31800300 
31800310 
31800320 
31800330 
31800340 
31800350 
31800360 
31800370 
31300380 
31800390 
31800400 
31800410 
31800420 
31800430 
31800440 
31800450 
31800460 
31800470 
31800480 
31800490 
31800500 
31800510 
31800520 
31800530 
31800540 
31800550 
31800560 
31800570 
31800580 
31800590 
31800600 
31800610 
31800620 
31800630 
31800640 
31800650 
31800660 
31800670 
31300680 
31800690 



05EF 1 C400 05F5 
05F1 1 4CA0 05F5 
05F3 1 4C80 05E7 
05F5 OOOO 



05F6 4480 0160 
05F8 1 050C 



LOAD LOOP ADDRS 
LOOP ON LAST FUNC 

IF LOOP ADDRS NOT 
LOCK/ERR LOOP ADR. 



LO L LOOP 

BSC I LOOP.Z 

BSC I LOCK 
LOOP DC *-♦ 

* 

* TEST INITIALIZATION 

* 

BEGN BSI I BEGIN MON INITIALIZATION 
DC PID PST TABLE 



* START OF TEST AND SINGLE PASS INITIALIZE 

* 

***♦*♦****♦*♦***♦*♦*♦♦****♦*♦***♦*♦*♦***»♦*** 

* PROGRAM WAIT 

* 

* THIS ROUTINE IS USED BY THE TEST PROGRAM 

* TO MARK TIME WHILE WAITING FOR AN INTERRUPT 

* TO OCCUR. 

♦ 



05F9 





OOOO 




05FA 





1000 




05FB 





COFE 




05FC 





DOFC 




05FD 


1 


C400 


05E1 


05FF 





lOOB 




0600 





4810 




0601 





7003 




0602 





C0F6 




0603 





1001 




0604 





00F4 




0605 





0834 




0606 





E83F 




0607 





D03E 




0608 





0835 




0609 





0836 




060A 





C03C 




060B 





E838 




060C 





0037 




0600 





C03A 




060E 





E836 




060F 





0035 




0610 


1 


6 700 


0616 


0612 


1 


6F00 


05E5 


0614 





4480 


0161 


0616 


1 


74FF 


05F9 


0618 





70EC 




0619 





0822 




061A 


I 


C400 


0834 


061C 





4820 




061D 





7002 




061E 


1 


OCOO 


08A6 


0620 


1 


4400 


0824 


0622 





7029 





WCNT 


DC 







WAIT COUNTER 


DELY3 


DC 




/lOOO 


DELAY CONSTANT 


WAIT3 


LD 




DELY3 


LO 4 SEC CONSTANT 




STO 




WCNT 


SET IN WAIT COUNTER 




LD 


L 


SW2 


LD RTN OPTION SWT 




SLA 




11 


CK FOR 2 MICRO SPEED 




BSC 




- 


SKIP IF ON 




MDX 




WAITl 


BRANCH 




LD 




WCNT 


LD WAIT COUNT 




SLA 




1 


DOUBLE IT 




STO 




WCNT 


LO 4 SEC CONSTANT 


WAITl 


XIO 




DSWSE 


SENSE DSW 




OR 




DSWAL 


SAVE DSW DATA 




STO 




DSWAL 






XIO 




RDIAl 


READ OIAG WORD 1 




XIO 




RDIA2 


READ OIAG WORD 2 




LO 




DIAWl 






OR 




DUAL 


SAVE OIAG 1 DATA 




STO 




DUAL 






LO 




0IAW2 






OR 




0I2AL 


SAVE DIAG 2 DATA 




STO 




DI2AL 






LDX 


L3 


WAITB 


SET UP MON RETURN 




STX 


L3 


MLSCF 






BSI 


I 


START 


GO TO MONITOR 


WAITB 


MDX 


L 


WCNT,-1 


REDUCE WAIT COUNT 




MDX 




WAITl 


GO BACK TO DELAY 




XIO 




OSWSN 


SENSE RESET DSW 




LD 


L 


RSTNO 


LOAD NO RESET SW 




BSC 




Z 






MDX 




WAITBEIO 


BYPASS RESET 




XIO 


L 


RESET 


EXECUTE RESET 




BSI 


L 


DLVTM 


DELAY 




MDX 




SNDSW 


GO MAKE ANALYSIS 



* INTERRUPT 

* THE MONITOR RETURNS CONTROL TO THIS ROUTINE 

* AFTER DETECTING A SCA INTERRUPT. 



31800700 
31800710 
31800720 
31800730 
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318011T0 
31801180 
31801190 
31801200 
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31301220 
31801230 
31801240 
31801250 
31801260 
31801270 
31801280 
31801290 
31801300 
31801310 
31801320 
31801330 
31801340 
31801350 
31801360 
31801370 
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0623 





0000 


0624 





0817 


0625 





E820 


0626 





DOIF 


0627 





0816 


0628 





0817 


0629 





COIE 


062A 





E81A 


062B 





0019 


062C 





COIA 


0620 





E816 


062E 





D015 


062F 





6R1B 


0630 





C019 


0631 





4820 


0632 





7005 


0633 





7000 


0634 




0000 


0634 





1000 


0635 





1000 



0636 1 4400 0824 
0638 1 4C80 0623 



063A 




0000 


063A 





0000 


063B 





5700 


063C 





0000 


0630 





5701 


063 E 


1 


0647 


063F 





5201 


0640 


1 


0648 


0641 





5202 


0642 





0000 


0643 





0000 


0644 





0000 


0645 





0000 


0646 





0000 


064 7 





0000 


0648 





0000 


0649 





0000 


064A 





0000 


064B 





0000 



INTR 


DC 




/OOOO 






XIO 




DSWSN 


SENSE DSW 




OR 




DSHAL 


SAVE DSW DATA 




STO 




DSWAL 






XIO 




RDIAl 


SENSE DIAG WO 1 




XIO 




R0IA2 


SENSE DIAG WD 2 




LO 




DIAW2 


LO DIAG WD 2 




OR 




DI2AL 


SAVE DIAG 2 OATA 




STO 




DI2AL 






LD 




DlAWl 


LD DIAG 1 WD 




OR 




DUAL 


SAVE OIAG I DATA 




STO 




DUAL 






STX 




PRTPN 


TURN ON INTRPT SW 




LO 




LOPSW 


CHK IF INT EXPECTED 




BSC 




Z 






MDX 




EXINT 


INTRPT WAS EXPECTED 




MDX 




MODOl 


SKIP 




BSS 


E 







HODOl 


NOP 

NOP 






PROG MODIFICATION 01 


4c 


XIO 


L 


RESET FOR 


STR 


* 


NOP 


FOR BI SYN 






BSI 


L 


OLYTH 


DELAY 


EXINT 


BSC 


I 


INTR 


RETURN TO SAVED AOOR 


^*****ti1c***^*if:************************** 


* 


IQCC 


f 


STORAGE , 


AND SWS FOR INTRPT RTN 


*♦♦♦*♦♦**#♦****♦***♦*******♦♦*****«****♦*♦**♦ 


♦ 


BSS 


E 







OSWSE 


DC 
DC 





/5700 


SENSE DSW 


DSWSN 


DC 
DC 





/5701 


SENSE DSW RESET 


RDIAl 


DC 
DC 




OIAWl 
/5201 


READ DIAG WORD I 


R0IA2 


DC 
DC 




DIAW2 
/5202 


READ DIAG WORD 2 


DIAWD 


DC 




*-* 


COMBINED DIAG WORDS 




DC 




♦-* 


I AND 2 MODIFIED 


DUAL 


DC 




*-» 


DIAG 1 OATA 


DI2AL 


DC 




•-♦ 


DIAG 2 OATA 


DSWAL 


DC 




*-* 


DSW DATA 


DIAWl 


DC 




*-* 


SAVED DIAG 1 


DIAW2 


DC 




*-* 


SAVED DIAG 2 


CADSW 


DC 




*-* 


SAVED DSW 


LOPSW 


DC 




*-* 


EXP INTRPT SW 


PRTPN 


DC 




*-* 


PRINT PEND SW 



* 

♦ SET UP DATA ANALYSIS 

LOAD DSW OATA 
STORE DSW OATA 
LO DIAG 2 DATA 



064C 





C0F9 




SNOSW LD 




DSWAL 


064D 





DOFB 




STO 




CAOSW 


064E 





C0F6 




LO 




0I2AL 


064F 





1890 




SRT 




16 


0650 





1010 




SLA 




16 


0651 





1086 




SLT 




6 


0652 





1001 




SLA 




1 


0653 





E8F0 




OR 




DUAL 


0654 





nSFD 




STD 




DIAWD 


0655 


I 


4400 


0OF6 


BSI 


L 


SRVSN 


0657 


1 


4400 


0BC7 


BSI 


L 


INTAN 


0659 


1 


4C00 


09A1 


BSC 


L 


CONAN 



COMBIND OIAG l£2 

STORE IN SAVED OIAG 

SERVICE SENSED WD 

MAKE INTRPT ANAL 

GO MAKE ANALYSIS 

********************************************* 



DATE 
EC NO. 



15JUN67 
420317 



01JUL69 
571013 



31801380 

31801390 

31801400 

31801410 

31801420 

31801430 

31801440 

31801450 

31801460 

31801470 

31801480 

31801490 

31801500 

31801510 

31801520 

31801530 

31801540 

31801550 

31801560 

31801570 

31801580 

31801590 

31801600 

31801610 

31801620 

31801630 

31801640 

31801650 

31801660 

31801670 

31801680 

31801690 

31801700 

31801710 

31801720 

31801730 

31801740 

31801750 

31801760 

31801770 

31801780 

31801790 

31801800 

31801810 

31801820 

31801830 

31801840 

31801850 

31801860 

31801870 

31801880 

31801890 

31801900 

31801910 

31801920 

3180L930 

31801940 

31801950 

31801960 

31801970 

31801980 

31801990 

31802000 

31802010 

31802020 

31802030 

31802040 

31802050 



PROG ID 
PAGE 



0318-0 
2 



DATF 
EC NO. 











» 










31802060 












♦♦***<!****«***♦*♦***«♦«******«*♦♦**♦****♦♦♦«♦ 


31802070 












* 






CONTROL ROUTINE 


31802080 












4r:»«:«:tr4c^4:«:^*«»»*:^:<c4c4<««4t««««4i«4i«4i4:««««4i4t4i*^:»A:(<* 


31802090 












* THIS ROUTINE CHECKS 


SWITCHES AND CONTROLS 


31802100 












* THE 


SEQUENCE IN WHICH TEST ROUTINES ARE RUN 


31802110 












♦****' 


!!**♦*»**♦****»♦*♦***«******♦***♦»*♦*♦♦♦* 


. 31802120 












* 










31802130 




065.B 





0000 




CNTRL 


DC 




/OOOO 




31802140 




065C 




C400 


05E0 




LO 




SWl 




31802150 




065E 




4C08 


066A 




BSC 




CN20,£ 


BRANCH IF NO RTN SELECTED 


31802160 




0660 




D400 


05DD 




STO 




RID 


SAVE NEW RTN NUMBER 


31802170 




0662 




905B 






S 




RIDCK 




31802180 




0663 




4C08 


0674 




BSC 




CN30,e 


BR IF VALID RTN 


31802190 




0665 




1810 






SRA 




16 




31802200 




0666 




D400 


05E0 




STO 




SWl 


IF INVALID RTN GO 


31802210 




0668 




0400 


050D 




STO 




RID 


TO RTN ONE 


31802220 




066A 




7401 


0500 


CN20 


MDX 




RIO.l 


AOV TO NEXT RTN 


31802230 




066C 




1010 






SLA 




16 




31802240 




0660 




D400 


05E2 




STO 




SW3 


CLEAR FUNCTION 3 


31802250 




066F 




C400 


05DD 




LD 




RIO 




31802260 




0671 




904C 






S 




RIDCK 




31802270 




0672 




4C30 


0684 




BSC 




ENMSG, -Z 


PRINT RESTORE MSG 


31802280 




0674 




6780 


0500 


CN30 


LOX 


13 


RID 




31802290 




0676 




C700 


069B 




LD 


L3 


RTTBL-1 


FETCH RETURN AORS 


31802300 




0678 




0400 


05DE 




STO 




RAD 




31802310 




067A 




0400 


05F5 




STO 




LOOP 


LOAD LOOP RTN AODR. 


31802320 




067C 




D400 


05E5 




STO 




MLSCF 


SET MLSCF FOR RETURN 


31802330 




067E 





D400 


0165 




STO 




RTNSW 




31802340 




06R0 


1 


4400 


06C5 




BSI 




CKOPT 


CK FOR FUNC 2 S 3 


31802350 




0682 





4480 


0161 


♦ 


BSI 




START 


GO TO MONITOR 


31802360 
31802370 




0684 





630C 




ENMSG 


LOX 


3 


12 


CLR PRINT TABLE 


31802380 




0685 





1010 






SLA 




16 




31802390 




0686 


1 


0700 


0B73 




STO 


L3 


TABLE-1 




31802400 




0688 





73FF 






MDX 


3 


-1. 




31802410 




0689 





70FC 






MDX 




ENMSGe2 




31802420 




068A 




D400 


05D0 




STO 




RIO 


RESET RTN 10 


31802430 




06 8C 




6700 


OBOD 




LOX 


L3 


NMSG 




31802440 




068F 




6F00 


0B77 




STX 


L3 


TABLES3 


SET ALPHA MSG 


31802450 




0690 




6303 






LDX 


3 


3 




31802460 




0691 




6F00 


0R74 




STX 


L3 


TABLE 


SET UP MSG ID 


31802470 




0693 




OCOO 


0830 




XIO 




BZON 


EXECUTE ALARM ON 


31802480 




0695 




4480 


0163 




BSI 




LOG 


GO TYPE MESSAGE 


31802490 




0697 




0B74 






DC 




TABLE 




31802500 




0698 




OCOO 


0832 




XIO 




BZOFF 


EXECUTE ALARM OFF 


31802510 




069A 





4480 


0164 


* 


BSI 




END 


END PROGRAM 


31802520 
31802530 












«:♦***♦*♦*♦♦♦**♦*♦*******♦*♦♦*♦♦****•**♦****** 


31802540 












* 






ROUTINE 


SEQUENCE TABLE 


31802550 












«*««*♦***♦♦**»***♦*«»♦**♦*♦♦****♦*»**♦♦♦***»* 


31802560 












* 










31802570 




069C 




0836 




RTTBL 


DC 




RTOl 




31802580 




0690 




0«3E 






DC 




RT02 




31802590 




069E 




0843 






DC 




RT03 




31802600 




069F 




0848 






DC 




RT04 




31802610 




06A0 




0850 






DC 




RT05 




31802620 




06A1 




0858 






DC 




RT06 




31802630 




06A2 




0850 






DC 




RT07 




31802640 


■ 


06A3 




0863 






OC 




RT08 




31802650 




06A4 




0868 






OC 




RT09 




31802660 




06A5 




086F 






OC 




RTOA 




31802670 




06A6 




0877 






DC 




RT06 




31802680 




06A7 




087D 






DC 




RTOC 




31802690 




06A8 




0883 






DC 




RTOD 




31802700 




06A9 




08BB 






DC 




RTOE 




31802710 




06AA 




08C0 






DC 




RTOF 




31802720 




06AB 




oac7 






DC 




RTIO 




31802730 




15JUN67 01JUL69 












PROG ID 
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06AC 1 08D2 






DC 




RTll 


06AD 1 0809 






DC 




RT12 


06AE 1 08E<i 






DC 




RT13 


06AF I 08EC 






DC 




RT14 


06BO 1 08F3 






DC 




RT15 


06B1 I 08FE 






DC 




RT16 


06B2 1 0906 






DC 




RT17 


0683 1 0915 






DC 




RT18 


06B4 1 091B 






DC 




RT19 


06B5 1 0932 






DC 




RTIA 


0fcR6 1 093B 






DC 




RTIB 


06B7 I 0944 






DC 




RTIC 


06B8 1 094E 






DC 




RTIO 


06B9 1 0961 






DC 




RTIE 


06BA 1 096F 






DC 




RTIF 


06BB 1 0978 






DC 




RT20 


06BC I 0982 






DC 




RT21 


06BD 1 0991 




LRTN 


DC 




RT22 






*********************** 


06BE 0022 




* 
RIDCK 


DC 




LRTN-RTTB 


06BF 0000 




S2WAS 


OC 




*-♦ 


06C0 0000 




S3WAS 


DC 




*-♦ 


06C1 1 7401 ( 


B70F 


SAVEl 


MOX 


L 


RSTSW,ei 


06C3 0001 




KOOOl 


OC 




/OOOl 


06C4 0000 




FSTCK 

* 
CKOPT 


DC 




♦-* 


06C5 0000 




DC 




*-* 


06C6 C0F8 






LO 




S2WAS 


06C7 I F400 


05E1 




EOR 


L 


SW2 


06C9 4820 






BSC 




r 


06CA 703A 




* 


MOX 




S2PNT 


06CB 1 C400 


05E1 


LD 


L 


SW2 


06CD lOOC 






SLA 




12 


06CE I 4428 


076A 




BSI 




DIAMD.eZ 


0600 I C400 


05E1 




LD 




SW2 


0602 lOOD 






SLA 




13 


0603 1 4428 


0770 




BSI 




NORST.GZ 


0605 COEB 






LD 




SAVEl 


0606 1 D400 


07E6 




STO 




RSOFF 


0608 C0E9 






LO 




SAVE161 


0609 1 0400 


07E7 




STO 




RSOFF 61 


060B 1 C400 


05E1 




LO 




SW2 


0600 lOOE 






SLA 




14 


060E 1 4428 


077B 




BSI 




FASTI, 6Z 


06E0 6700 


1000 




LDX 


L3 /lOOO 


06E2 1 6F00 


05FA 




STX 


L3 DELY3 


06E4 1 C400 


05E1 




LD 




SW2 


06E6 lOOF 






SLA 




15 


06E7 1 4428 


0CB5 




BSI 




BISYN.CZ 


06E9 I C400 


05E1 




LO 




SH2 


06EB lOOF 






SLA 




15 


06EC 1 4410 


or 62 




BSI 




STR,- 


06EE CODl 






LO 




S3WAS 


06EF 1 F400 


05E2 




EOR 




SW3 


06FI 4820 






BSC 




Z 


06F2 704E 




4c 


MOX 




S3PNT 


06F3 1 C400 


05F2 


MOPNT LD 




SW3 


06F5 1 0400 


06C0 




STO 




S3WAS 


06F7 4820 






BSC 




Z 


06F8 7002 






MOX 




SCOPE 


06F9 1 4C80 


06C5 


OPRTN BSC 

4^ 




CKOPT 


06F8 1 C400 


05DE 


SCOPE LD 




RAD 


06F0 90C5 






S 




KOOOl 


06FE 00C5 






STO 




FSTCK 



SW2 WAS 
SM3 HAS 
ALLOW RESET 



LOAD SW2 WAS 
COMPARE WITH SW2 NOW 
CHK FOR CHANGE 
SET UP TO PRINT OPTS 

LD RTN OPTION SW 
CHK FOR DIAGNOSTIC 
SET UP DIAG MD 
LD RTN OPTION SW 
CHK FOR ALT RESET 
SET UP FOR NO RESET 
ALLOW RESET 



LD RTN OPTION SW 
CHK FOR FAST PASS 
SET UP FAST PASS 

RESTORE NORMAL DELAY 
LD RTN OPTION SW 
CK FOR BI SYN 
GO SET UP BI SYN 
LO RTN OPTION SW 
CK FOR STR 
GO SET UP STR 
LOAD SW3 WAS 
COMPARE WITH SW3 NOW 

SET UP TO PRINT 
SCOPE LOOP 
LD SCOPE OPT SH 
STORE IN SW3 WAS 

CK WHAT TIME BASE 
EXIT TO RETURN 

CK IF TIMEOUT EXP 



31802740 

31802750 

31802760 

31802770 

31802780 

31802790 

31802800 

31802810 

31802820 

31802830 

31802840 

31802850 

31802860 

31802870 

31802880 

31802890 

31802900 

31802910 

31802920 

31802930 

31802940 

31802950 

31802960 

31802970 

31802980 

31802990 

31803000 

31803010 

31803020 

31803030 

31803040 

31803050 

31803060 

31803070 

31803080 

31803090 

31803100 

31803110 

31803120 

31803130 

31803140 

31803150 

31803160 

31803170 

31803180 

31803190 

31803200 

31803210 

31803220 

31803230 

31803240 

31803250 

31803260 

31803270 

31803280 

31803290 

31803300 

31803310 

31803320 

31803330 

31803340 

31803350 

31803360 

31803370 

31803380 

31803390 

31803400 

31803410 



06FF 1 C480 06C4 


LO 


I FSTCK 


0701 90C1 


S 


KOOOl 


0702 1 4C10 0761 


BSC 


L SCOPl,- 


0704 70F4 


MOX 


OPRTN 


0705 630C 


S2PNT LOX 


3 12 


0706 1010 


SLA 


16 


0707 1 D700 0B73 


STO 


L3 TABLE-l 


0709 73FF 


MOX 


3 -I 


070A 70FC 


MOX 


S2PNTE2 


070B 1 C400 05E1 


LD 


L SW2 


070D lOOB 


SLA 


11 


070E I 4428 0791 


BSI 


L LOGll.EZ 


0710 1 C400 05F1 


LO 


L SW2 


0712 lOOC 


SLA 


12 


0713 1 442 8 079B 


BSI 


L L0G12,eZ 


0715 1 C400 05E1 


LD 


L SW2 


0717 lOOD 


SLA 


13 


0718 1 4428 07A5 


BSI 


L L0G13,&Z 


07 1 A I C400 05E1 


LO 


L SW2 


071C lOOE 


SLA 


14 


07 ID 1 442 8 07AF 


BSI 


L L0G14,6Z 


071F 1 C400 05E1 


LO 


L SW2 


0721 lOOF 


SLA 


15 


0722 1 442 8 0789 


BSI 


L L0G15,eZ 


0724 1 C400 05E1 


LO 


L SW2 


0726 D098 


STO 

4> 


S2WAS 


0727 1 6700 0AF6 


LOGOl LDX 


L3 LOGIA 


0729 1 6F00 0B77 


STX 


L3 TABLE63 


072B 6301 


LOX 


3 1 


072C 1 6F0O 0874 


STX 


L3 TABLE 


072E 6300 


LDX 


3 


072F 1 6F00 0B76 


STX 


L3 TABLE62 


0731 1 OCOO 0830 


XIO 


L BZON 


0733 4480 0163 


BSI 


'l LOG 


0735 1 0B74 


DC 


TABLE 


0736 1 OCOO 0832 


XIO 


L BZOFF 


0738 6316 


LDX 


3 22 


0739 1 C400 OAFA 


CLLOG LO 


L LOGlB-1 


073B 1 0700 0AF5 


STO 


L3 tOGlA-1 


0730 73FF 


MOX 


3 -1 


073E 70FA 


MOX 


CLLOG 


073F I 4C00 06CB 


BSC 


L CK0PT66 


0741 1 C400 05E2 


S3PNT LO 


L SW3 


0743 1 0400 06C0 


STO 


L S3WAS 


0745 4820 


BSC 


Z 


0746 7001 


MOX 


LOGO 2 


0747 70A6 


MOX 

•iff. 


NOPNT 


0748 630C 


L0G02 LDX 


3 12 


0749 1010 


SLA 


16 


074A 1 0700 0B73 


STO 


L3 TABLE-l 


074C 73FF 


MDX 


3 -1 


0740 70FC 


MOX 


1060262 


074E 1 6700 OAFO 


LDX 


L3 A0R5 


0750 1 6F00 0B77 


STX 


L3 TABLEe3 


0752 6302 


LDX 


3 2 


0753 1 6F00 0R74 


STX 


L3 TABLE 


0755 6300 


LOX 


3 


0756 1 6F00 0B76 


STX 


L3 TABLEE2 


0758 1 OCOO 0830 


XIO 


L BZON 


075A 4480 0163 


BSI 


I LOG 


075C 1 0B74 


' DC 


TABLE 


075D 1 OCOO 0832 


XIO 


L BZOFF 


075F 1 4C00 06F3 


BSC 


L NOPNT 



SUBTRACT 1 
NO, ALLOW LOOP 
EXIT TO RETURN 

CLEAR PRINT TABLE 



LD RTN OPTION SWT 
CK FOR 2 MICRO SPEED 

LOAD SW2 

CHK DIAG RUN ON 

tOAD SW2 

CHK NO RESET ON 

LOAD SW2 

CHK FAST PASS ON 

LOAD SW2 

CHECK FAR BI SYN 

LOAD SW2 

STORE IN SW2 WAS 

SET UP ALPHA MSG 

SET UP MSG 10 

SET UP MODIFIERS 

EXECUTE ALARM ON 
GO LOG MESSAGE 

EXECUTE ALARM OFF 
CLEAR OUT MSG TABLE 



GO EXECUTE OPTIONS 

LOAD SW3 

STORE IN SW3 WAS 

CHK IF ON 

LOG SCOPE LOOP 

CHK FOR SCOPE OPTION 

CLEAR MSG TABLE 



SET UP ALPHA MSG 
SET UP MSG 10 



EXECUTE ALARM ON 
GO PRINT MESSAGE 

EXECUTE ALARM OFF 
SET UP SCOPE LOOP 



31803420 

31803430 

31803440 

31803450 

31803460 

31803470 

31803480 

31803490 

31803500 

31803510 

31803520 

31803530 

31803540 

31803550 

31803560 

31803570 

31803580 

31803590 

31803600 

31803610 

31803620 

31803630 

31803640 

31803650 

31803660 

31803670 

31803680 

31803690 

31803700 

31803710 

31803720 

31803730 

31803740 

31803750 

31803760 

31803770 

31803780 

31803790 

31803800 

31803810 

31803820 

31803830 

31803840 

31803850 

31803860 

31803870 

31803880 

31803890 

31803900 

31803910 

31803920 

31803930 

31803940 

31803950 

31803960 

31803970 

31803980 

31803990 

31804000 

31804010 

31804020 

31804030 

31804040 

31804050 

31804060 

31804070 

31804080 

31804090 



DATE 
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PROG ID 
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0761 


1 


C4no 


05F2 


SCOPl 


LD 


L 


SW3 




SET UP SCOPE DELAY 


31804100 


0763 





4320 






BSC 




Z 




CHK IF DELAY SELECTED 


31804110 


0764 





7001 






MOX 




scnp2 






31804120 


0765 





7093 






MOX 




nPRTN 




EXIT TO RETURN 


31804130 


0766 





1004 




SCOP? 


SLA 




4 






31804140 


0767 


1 


0400 


05FA 




STt) 


L 


0ELY3 






31804150 


0769 





708F 




* 


MOX 




OPRTN 




FXIT TO RETURN 


31804160 
31804170 


076 A 





0000 




DIAMO 


OC 




*-* 






31804180 


076B 


1 


7401 


09AB 




MDX 


L 


DIASW, 


El 


TURN ON DIAG MODE SW 


31804190 


0760 





1000 






NOP 










31804200 


n76F 


I 


4C80 


076A 


* 


BSC 


I 


DIAMD 




FXIT TO RETURN 


31804210 
31804220 


0770 





0000 




NORST 


DC 




*-♦ 






31804230 


0771 


1 


C400 


0C2E 




LO 


L 


KIOOO 




LOAD NOP 


31804240 


0773 


1 


0400 


07E6 




STO 


L 


RSOFF 




PREVENT RESET 


31804250 


0775 


1 


D400 


07E7 




STO 


L 


RSOFFEl 




31804260 


0777 


1 


7406 


0770 




MDX 


L 


NORST, 


£6 


MODIFY RETURN 


31804270 


0779 


1 


4C80 


0770 


♦ 


BSC 


I 


NORST 




EXIT TO RETURN 


31804280 
31804290 


077R 





0000 




FASTI 


DC 




*-* 






31804300 


077C 


1 


C400 


05DE 




LD 


L 


RAD 




LD RTN ADDRESS 


31804310 


077E 


1 


9400 


06C3 




S 


L 


KOOOl 






31804320 


0780 


I 


0400 


06C4 




STO 


L 


FSTCK 






31804330 


0782 


1 


C480 


06C4 




LD 


I 


FSTCK 




CHK FOR NO TIMEOUT 


31804340 


0784 


1 


9400 


060 3 




S 


L 


KOOOl 




SUBTRACT 1 


31804350 


0786 


1 


4C18 


078A 




BSC 


L 


FAST2, 


£- 


NO, FAST PASS OK 


31804360 


0788 


1 


4C80 


077B 


* 


BSC 


I 


FASTI 




EXIT TO RETURN 


31804370 
31804380 


078A 





6700 


0100 


FAST2 


LOX 


L3 


/OlOO 




SET UP 250 MSEC ANAL 


31804390 


078C 


1 


6F00 


05FA 




STX 


L3 


DELy3 






31804400 


078E 


1 


7404 


077B 




MDX 


L 


FASTI, 


£4 


MODIFY RETURN EXIT 


31804410 


0790 





70F7 




* 


MDX 




FAST2- 


•2 


EXIT TO RETURN 


31304420 
31804430 


0791 





0000 




LOG 11 


DC 




♦-♦ 






31804440 


0792 





6304 






LOX 


3 


4 




LD 2 MIC SPO MSG 


31804450 


0793 


1 


C700 


0702 




LO 


L3 


EILOG- 


-I 




31804460 


0795 


1 


0700 


0B07 




STO 


L3 


LOGIE- 


■1 




31804470 


0797 





73FF 






MOX 


3 


-l 






31804480 


0798 





70FA 






MDX 




L0G11E,2 




31804490 


0799 


I 


4C80 


0791 


* 


BSC 


I 


LOGU 




EXIT TO RETURN ADOR 


31804500 
31804510 


079B 





0000 




L0G12 


DC 




*-* 






31804520 


079C 





6304 






LOX 


3 


4 




LD OIAG RUN FOR MSG 


31804530 


079D 


1 


C700 


07C2 




LD 


L3 


AILOG- 


-1 




31804540 


079F 


1 


D700 


0AF5 




STO 


L3 


LOGIA- 


■1 




31804550 


07A1 





73FF 






MDX 


3 


-l 






31804560 


07A2 





70FA 






MDX 




LOG1262 




31804570 


07A3 


I 


4C80 


079B 


* 


BSC 


1 


L0G12 




EXIT TO RETURN AODR 


31804580 
31804590 


07A5 





0000 




LOG 13 


DC 




♦ -♦ 






31804600 


07A6 





6304 






LOX 


3 


4 




LD NO RESET FOP MSG 


31804610 


07A-' 


1 


C700 


07C6 




LD 


L3 


BILOG- 


-I 




31804620 


0769 


1 


0700 


OAFA 




STO 


L3 


LDGIB- 


-1 




31804630 


07AB 





73FF 






MOX 


3 


-1 






31804640 


07AC 





70FA 






MDX 




L0G13&2 




31804650 


07An 


1 


4C80 


07A5 


* 


BSC 


I 


L0G13 




EXIT TO RETURN AODR 


31804660 
31804670 


07AF 





0000 




LOG 14 


DC 




*-« 






31804680 


0760 





6305 






LOX 


3 


5 




LD FAST PASS FOR MSG 


31804690 


07BI 


1 


C700 


07CA 




LO 


L3 


CILOG- 


-1 




31804700 


07B3 


I 


0700 


OAFF 




STO 


L3 


LHGIC- 


-1 




31804710 


7R5 





73FF 






MDX 


3 


-1 






31804720 


07R6 





70FA 






MDX 




L0G14e2 




31804730 


07R7 


1 


4C8n 


07AF 


* 


BSC 


I 


L0G14 




EXIT TO RETURN ADOR 


31804740 
31804750 


07R9 





0000 




LOG 15 


DC 




*-* 






31804760 


07PA 





6303 






LOX 


3 


3 




LOAD BI SYN FOR MSG 


31804770 
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2243555 
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a7RB 1 C700 07CF 

07BD 1 D700 0B04 

07RF 73FF 

07C0 70FA 

07C1 1 4C80 07R9 

07C3 327? 

07r4 3E16 

n7C5 216? 

07C6 B276 

a7r7 7652 

07C8 216? 

07C9 369A 

07CA 369E 

07CB 123E 

n7CC 9A9E 

07CD 2156 

07CE 3E9A 

07CF 9A21 

07D0 1A72 

07D1 219A 

07D2 A676 

07D3 2108 

0704 2172 

07D5 221E 

07D6 6252 



0707 6300 

0708 1 6F00 OSOD 
07DA 1 6500 0623 
07DC 6D00 0189 
07DE 700A 



07nF 0000 

07F0 0000 

07E1 I OCOO 0832 

07F3 COFB 

07E4 4820 

07F5 7003 

a7E6 1 7401 07DF 

07E3 700? 

07F9 6300 

07EA 6BF4 

07EB 1010 

07FC 6306 

07En 1 D700 0B7F 



AIL 



* 
?IL 



CIL 



♦ 
OIL 



* 
EIL 



LO 

STO 

MOX 

MDX 

BSC 

OG DC 
DC 
DC 
DC 

OG OC 
DC 
DC 
DC 

OG OC 
DC 
DC 
DC 
OC 

OG OC 
DC 
DC 

OG OC 
OC 
OC 
DC 



L3 OlLOG-1 
L3 LQGlO-l 
3 -1 

L0G15E2 
T L0G15 

/37?2 
/3E16 
/2162 
/8276 

/76S? 
/2162 
/369A 
/369E 

/123E 
/9A9E 
/?156 
/3E9A 
/9A21 

/1A22 
/219A 
/A676 

/21D8 
/2172 
/221E 
/6252 



FXIT TO RETURN 

DI 

AG 

R 

UN 

NO 

R 

ES 

ET 

FA 

ST 

P 

AS 
S 

BI 
S 
YN 

2 
M 

IC 
RO 



* 
* 

* 

* 

* 



T 
I 
I 
P 
M 

*** 

* 

STR 



INITIALISATION ROUTINE 

HIS ROUTINE PERFORMS THE REQUIRED 
NITIALIZATION FOR RESTART OF THE PROGRAM. 
T LOADS THE FIRST ROUTINE OR THE DESIRED 
OUTIME VIA SELECT SWITCHES INTO THE 
AINLINE SEQUENCE CONTROL FIELD. 



T LDX 3 

STX L3 RIO 

LOX LI INTR 

STX LI ILl-1 
MDX OFFl 



RESET ROUTINE NO. 

SET UP INTRPT AODR 
TURN OFF PROG SWS 



TURN OFF ALL SWITCHES 



* 

♦ 

*** 

* 

RSTSW OC 

♦ 

OFF DC 
XIO 
LD 
BSC 
MOX 
f^F MDX 
MDX 



RSn 



*-♦ 



RZOFF 

RSTSW 

Z 

OFFl 

RSTSW, £1 

0FF2 



OFFl LOX 
STX 



3 

3 RSTSW 



OFF? SLA 16 

LDX 3 6 
nFF3 STO L3 DIAXl-1 



PROG RESET SW 

ENTRY AND SAVE AREA 
EXECUTE ALARM OFF 
LO PROG RESET SW 

SW ON , GO TO OFFl 
TURN ON RESET SW 



TURN OFF PROG RESET 
CLEAR ACC. 



31804780 
3ia04790 
31804800 
31804810 
31804820 
31804830 
31804840 
31804850 
31804860 
31804870 
31804880 
31804890 
31804900 
31804910 
31804920 
31804930 
31804940 
31804950 
31804960 
31804970 
31804980 
31804990 
31805000 
31805010 
31805020 
31805030 
31805040 
31805050 
31805060 
31805070 
31805080 
31805090 
31R05100 
31805110 
31805120 
31805130 
31805140 
31805150 
31805160 
31805170 
31805180 
31805190 
31805200 
31805210 
31805220 
31805230 
31805240 
31805250 
31805260 
31805270 
31805280 
31805290 
31805300 
31805310 
31805320 
31805330 
31805340 
31805350 
31805360 
31805370 
31805380 
31805390 
31805400 
31805410 
31805420 
31805430 
31805440 
31805450 



DATE 
EC NO. 
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PROG ID 
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4A 
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07EF 


O 


73FF 






MOX 


3 -I 








31805460 


O7F0 





70FC 






MDX 


0FF3 








31805470 


07F1 





630A 






LDX 


3 10 








31805480 


07F2 


I 


D700 


0641 


0FF4 


STO 


L3 DIAHD-1 








31805490 


07F4 





73FF 






MDX 


3 -1 








31805500 


07F5 





70FC 






MDX 


0FF4 








31805510 


07F6 





5302 






LDX 


3 2 








31805520 


07F7 


1 


0700 


0A41 


0FF5 


STO 


L3 DSWWl-1 








31805530 


07F9 





73FF 






MDX 


3 -1 








31805540 


07FA 





70FC 






MDX 


0FF5 








31805550 


OTFB 





6303 






lOX 


3 3 








31805560 


07FC 


1 


0400 


09AB 


0FF6 


STO 


L TRGWD-1 








31805570 


07FE 





73F-F 






MOX 


3 -1 








31805580 


07FF 





70FC 






MDX 


0FF6 








31805590 


0800 


1 


0400 


0888 




STO 


L DSWXX 








31805500 


0802 


1 


0400 


08B9 




STO 


L DIAXX 








31805510 


0804 


1 


0400 


09F3 




STO 


L MKSWl 








31805620 


0806 


1 


0400 


09F4 




STO 


L MKSW2 








31805530 


0808 


1 


0400 


09F5 




STO 


L MKSW3 








31805540 


080A 


I 


0400 


09AB 




STO 


L DIASW 








31805550 


080C 


1 


0400 


0834 




STO 


L RSTNO 








31805550 


080E 





6700 


1000 




LDX 


L3 /lOOO 








31805570 


0810 


1 


6F00 


05FA 




STX 


L3 0ELY3 


RESTORE 


DELAY 


31805680 


0812 


1 


C400 


0C2E 




LO 


L KIOOO 


LOAD 


NOP 




31805690 


0814 


1 


44Q0 


06C5 




RSI 


L CKOPT 


CK FOR SW 2 AND 3 


31805700 


0816 


1 


4400 


05 E7 




as I 


L LOCK 


CK LOCK, 


LOOP/ERR FNC 


31805710 


0818 





COOA 






LO 


LOOPE 


LD LOOP 


ON ERR SW 


31805720 


0819 





6300 






LDX 


3 








31805730 


081A 





6B08 






STX 


3 LOOPE 


CLR 1 


LOOP 


' ON ERR SM 


31805740 


081B 


1 


4CA0 


05F5 




BSC 


I LOOP.Z 


LOOP 


IF 


SW IS ON 


31805750 


0810 


1 


C400 


07DF 




LO 


L RSTSW 








31805750 


08 IF 


1 


4C30 


0838 




BSC 


L RT01S2,-Z 


BRANCH TO RESET RTN 


31805770 


0821 


1 


4400 


065B 




BSI 


L CNTRL 








31805780 


0823 





0000 




LOOPE 

* 
* 


DC 


*-♦ 


LOOP 


ON 


ERROR SW 


31805790 
31805800 
31805810 










«*«:»*«««*«:» «4i«*««**«»*««««#**«4l*«:» 4:* «4<**4l4l*4c« 


31805820 










♦ 


TIME 


DELAY - 140 MSEC 






31805830 










iHf*^^^^*^,^^^^i^:t^^^m****1^^*^^**^H^^i**^r**^^****^^**iHi 


31805840 










* 












31805850 


0824 





0000 




DLYTM 


DC 


*-* 








31805850 


0825 





630C 






LOX 


3 12 








31805870 


0826 





6B05 






STX 


3 TMDLY 








31805880 


0827 


1 


74FF 


082C 




MOX 


L TMDLY, -1 








31805890 


0829 





70F0 






MOX 


♦-3 








31805900 


082A 


1 


40 80 


0824 


♦ 


BSC 


I DLYTM 








31805910 
31805920 


082C 





0000 




TMDLY 
* 


DC 


♦-* 








31805930 
31805940 










***«******»****»***4t«##****#*»*»#**;^*****<,** + 


31805950 










♦ 




1130 SCA 


lOCC 






31805960 










«4:«)ji:^*:«<[««4i«4i»«*4r4l«*«««:ti«:(t««*«««««# <[««:» ^*«4[»« 


31805970 










♦ 












31805980 


082E 




0000 






BSS 


E 








31805990 


082E 





0010 




ENDOP 


DC 





END OP 




31806000 


082F 





5404 






DC 


/5404 








31805010 


0830 





0000 




RZON 


DC 





TURN 


ON 


ALARM 


31806020 


0831 





5102 






DC 


/5102 








31806030 


083? 





0000 




B70FF 


DC 





TURN 


OFF 


ALARM 


31806040 


0R33 





5101 






DC 


/5101 








31806050 


0R34 





0000 




RSTNO 


DC 


*-* 


NO RESET 


SW 


31806060 










«4:4:4<4i«c«««:«c*:^«««:»*4c4c«c:«:««4c4:«4:«*4e4:4:*:{i4i:«4:««««ft:ti«:jt 


31806070 










* 












31805080 










*«c««:»*4c«*^;»«#«4'4t«««4:*4:«4<«4<*««**«««*««**«4<«:4c«« 


31805090 










* 




ROUTINE 01 








31806100 










*«4i«***«««4i4<«* «««***« «4i^4c4i:«c«^4c«^t««:^*«:4:*«4c««4i 


31805110 










* 












31806120 


0835 





0001 






DC 


1 








31805130 



DATE 
EC NO. 



15JUN67 
420317 



01JUL69 
571013 



PROG ID 
PAGE 



0318-0 
5 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA PROGRAM INSTRUCTIONS FUNCTION TEST STR/BSC 



PART NO. 2243565 
PAGE 5A 



0836 1 OCOO 08A6 
0833 C84F 
0839 D87E 
083A 1 7401 07DF 
n83C 7023 



083D 0002 
083E C849 
083F D378 

0840 08FF 

0841 701E 



0842 0001 

0843 C844 

0844 0873 

0845 08FC 

0846 7019 



0ft47 0002 

0R48 C83F 

0849 D86E 

0fl4A 1 7401 07DF 

0a4C 6BE7 

0840 08E2 

084E 7011 



084F 0001 

0850 C837 

0851 0866 

0852 1 7401 070F 

0854 63DF 

0855 oanc 

0856 7009 



0857 n 0001 
08Sa C831 
0859 D85E 
0P5A 0803 
OPSR 7004 



n85C 0001 

08 50 C82E 

085E 0859 

0R5F 0848 

0860 1 4C00 05FB 



RTOl XIO L RESET 
LOD DSWOl 
STD DSWXX 

MOX L RSTSW, 61 
MDX RTNGO 



EXECUTE RESET 

SET UP ANALYSIS DATA 

TURN ON PROG RESET 
BRANCH TO .DELAY 



* ROUTINE 02 

* 

DC 2 

RT02 LDD OSWOl SET UP ANALYSIS DATA 

STD DSWXX 

XIO BZON EXECUTE BUZZ ON 

MOX RTNGO BRANCH TO DELAY 
* 

* ROUTINE 03 

* 

DC 1 

RT03 LDD OSWOl SET UP ANALYSIS DATA 

STO DSWXX 

XIO BZOFF EXECUTE BUZZ OFF 

MDX RTNGO BRANCH TO DELAY 
* 

* ROUTINE 04 

* 

DC 2 

RT04 LOD DSWOl 

STO DSWXX 
MOX L RSTSW, £1 

STX RSTNO 

XIO BZON 

MOX RTNGO 

* ROUTINE 05 

* 

DC 1 

RT05 LDD DSWOl 

STD DSWXX 

MDX L RSTSW, £1 

STX RSTNO 

XIO BZOFF 

MOX RTNGO 
* 

* ROUTINE 06 

* 

DC 1 

RT06 LOO DSW02 SET UP ANALYSIS DATA 

STO DSWXX 

XIO ENDOP EXECUTE ENDOP 

MOX RTNGO BRANCH TO DELAY 
♦ 

* ROUTINE 07 
* 

DC 1 

RT07 LOD DSW03 SET UP ANALYSIS DATA 

STD DSWXX 

XIO ENABL EXECUTE ENABLE 
RTNGO BSC L WAIT3 BRANCH TO DELAY 



SET UP ANALYSIS DATA 

TURN ON PROG RESET 
SET NO RESET SW 
EXECUTE BUZZ ON 
BRANCH TO DELAY 



SET UP ANALYSIS DATA 

TURN ON PROG RESET 
SET NO RESET SW 
EXECUTE BUZZ OFF 
BRANCH TO DELAY 



31806140 
31806150 
31805160 
31806170 
31806180 
31806190 
31806200 
31805210 
31806220 
31806230 
31805240 
31805250 
31805250 
31805270 
31806280 
31805290 
31805300 
31806310 
31806320 
31806330 
31806340 
31805350 
31806360 
31805370 
31806380 
31806390 
31806400 
31806410 
31805420 
31806430 
31806440 
31805450 
31805460 
31806470 
31806480 
31806490 
31806500 
31806510 
31806520 
31805530 
31806540 
31805550 
31805560 
31805570 
31806580 
31806590 
31806600 
31806610 
31806620 
31805530 
31805640 
31806550 
31805660 
31806570 
31806680 
31805690 
31805700 
31805710 
31805720 
31805730 
31806740 
31806750 
31806750 
31805770 
31805780 
31805790 
31805800 
31805810 
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PAGE 



2243565 
6A 



0862 0001 

0863 C824 

0864 D853 

0865 0844 

0866 70F9 



0867 0001 

0868 CeiF 
0a6P D84E 
086A 083D 
086B 083E 
086C 70F3 



0860 1000 



086F C81F 
086F D848 
0870 7001 
0872 0000 

0872 1000 

0873 1000 



0874 0837 

0875 70EA 



0876 0001 

0877 C810 

0878 Da3F 
087<5 0832 
087A 0831 
0878 .0 70F4 



0°7C 0001 

08 7') C80A 

nR7F 0839 

0»7F 1 OCnO 0=)'7 

0881 70nF 



0882 0001 
onq3 C804 
nqn4 D033 



♦*♦♦****♦♦♦♦♦*♦♦*♦*♦***♦****♦**♦******«■****** 

* ROUTINE 08 

♦ 

DC 1 

RT08 LOO OSWOl SFT UP ANALYSIS OATA 

STD OSWXX 

Xin DISAR PXFCUTE OISABLF 

MDX RTNGO BRANCH TO OELAY 
♦ 

* ROUTINE 09 



1 



OSWOl 
DSWXX 
ENABL 
DISAB 
RTNGO 



SET \)P ANALYSIS O'TA 

EXECUTE ENA8' E 
EXECUTE DISABLE 
BRANCH TO )t-LAY 



DC 
RT09 LDD 
STO 
XIO 
XI 
MDX 

* ROUTINE OA 

♦ 

PROG MODIFICATION 02 
1 FOR STR 
FOR RI SYM 

0SW04 SET UP ANALYSIS DATA 
OSWXX 

MOD03 SKIP 


PROG MODIFICATION 03 



FOR STR 

LOPSW FOR BISYN 

STST EXECUTE START/STOP 

RTNGO BRANCH TO OELAY 



M0D02 NOP 

* DC 

* DC 
RTOA LDD 

STD 
MDX 
BSS 
M0D03 NOP 
NOP 

* NOP 

* STX 
XIO 
MDX 

* ROUTINE OB 

* 

DC 1 

RTOB LOO DSWOl 

STD OSWXX 

XIO STST 

XIO STST 

MDX RTNGO 
* 

* ROUTI^!E nc 

********************************************* 
* 

DC I 
RTOC LDD DSWOl SET [}!> ANALYSIS DATA 

STD nswxx 

Xin L SIRFG EXECUTE SYNC/IDLF 

"DX RTNGO BRANCH TO DELAY 

* 

* ROUTINE 00 

* 

DC 1 

RTOD LDD DSWOl SET UP ANALYSIS DATA 
STD DSWXX 



SET UP ANALYSIS DATA 

EXECUTE START/STOP 
EXECUTF START/STOP 
BRANCH TO DELAY 



31806820 
31806830 
31306840 
31806850 
31806360 
31306870 
31806880 
31806890 
31806900 
31806910 
31806920 
31806930 
31806940 
31806950 
31806960 
31806970 
31806980 
31806990 
31807000 
31807010 
31807020 
31807030 
31807040 
31807050 
31807060 
31807070 
31807080 
31807090 
31807100 
31807110 
31807120 
31807130 
31807140 
^1807150 
31807160 
31807170 
31807180 
31807190 
31807200 
31807210 
31807220 
31807230 
31807240 
31807250 
31807260 
31807270 
31807280 
31807290 
31807300 
31807 310 
31807320 
31807330 
31807340 
31307350 
31 807360 
31807370 
31807380 
31807390 
31807400 
31807410 
31807420 
31807430 
31807440 
31807450 
31807460 
31807470 
31807480 
31807490 



0885 





0878 


XIO 




WRCAT 




EXECUTE WRT BUFFER 


31807500 


0886 





7009 


MDX 

* 




RTNGO 




BRANCH TO OELAY 


31807510 
31807520 








»♦♦*♦♦♦♦♦*♦»♦♦*********»************«»♦♦***** 


31807530 








♦ PREDETERMIN! 


ED VALUES FOR SCA OS>J AND DIAG 


31807540 








* WORDS. THESE VALUES ARF PRINTED AS S/B, 


31807550 








* WHEN AN i 


ERROR EXIST. 




31807560 








* THE DIA 1 


WORD IS THE VALUE FOR DIAGNOSTIC 


31807570 








* WORDS 1 . 


AND 


2 COMBI^JEO. 


318075 80 








♦**♦♦*«♦**♦*♦*«*»*****»***♦**♦«**♦**♦****«*♦« 


31807590 








* 










31807600 


0388 




0000 


BSS 


E 








31807610 


0888 





0080 


DSWOl DC 




/0080 






31807520 


0889 





0000 


DIAOl DC 




/OOOO 






31807630 


088A 





0080 


DSW02 DC 




/0080 






31807640 


0888 





1000 


0IA02 DC 




/lOOO 






31807650 


088C 





0280 


DSW03 DC 




/0280 






31807660 


088D 





0000 


0IA03 DC 




/OOOO 






31807670 


088E 





0080 


DSW04 DC 




/0080 






31807680 








♦ MODIFIED 


TO 


/1080 


FOR 


BISYN 


31807690 


083F 





0400 


0IA04 DC 




/0400 






31807700 


0890 





1500 


DSW05 DC 




/1500 






31807710 


0891 





0000 


DIA05 DC 




/OOOO 






31807720 


0892 





1580 


DSW06 DC 




/1580 






31807730 


0893 





0000 


DIA06 DC 




/OOOO 






31807740 


0894 





0500 


DSW07 DC 




/0500 






31807750 








* MODIFIED 


TO 


71500 


FOR 


RI SYM 


31807760 


080S 





0400 


0IA07 DC 




/0400 






31807770 


0896 





0580 


DSW08 DC 




/0580 






31807780 








* MODIFIED 


TO 


/1580 


FOR 


31 SYM 


31807790 


0897 





0400 


DIA08 DC 




/0400 






31807800 


0R98 





0180 


0SW09 DC 




/0180 






31807810 


0899 





1000 


0IA09 DC 




/lOOO 






31807820 


089A 





7580 


DSKIO DC 




/7580 






31807830 


089B 





ElEE 


DIAIO DC 




/EIFE 






31807840 








* MODIFIED 


TO 


/AlFF 


FOR 


". ISYN 


31807850 


0«9C 





0580 


DSWll DC 




/0580 






31807860 








« MODIFIED 


TO 


/7580 


FOR 


RI SYN 


31807870 


089n 





E4EC 


DIAll DC 




/E4EC 






31807880 








* MODIFIED 


TO 


/A4EE 


FOR 


RISYN 


31807890 


08OF 





0080 


DSW12 DC 




/0080 






31807900 


oa9F 





1020 


DIA12 DC 




/1020 






31807910 


O^AO 





6580 


DSW13 DC 




/6580 






31807920 


08A1 





20FE 


DIA13 DC 




/20EE 






31807930 


08A2 





2080 


0SW14 DC 




/2080 






31807940 


n8A3 





1020 


DIA14 DC 




/1020 






31807950 


08A4 





F080 


DSW15 DC 




/E080 






31807960 


08A5 





28EE 


DIA 15 DC 




/28EF 






31807970 
31307980 








****«**«*«****«**« *r**»***Jr*>!:***t*****i!***<r*^* 


31807990 








* 




1130 


SCA 


lOCC 


31808000 








*♦«*****♦*«*♦********«******.*******«****«** a* 


31808010 








* 










31808020 


n8A6 




onoo 


BSS 


E 






• 


31808030 


08 A6 





0000 


RESET DC 









PROGRAMED RESET 


31808040 


08A7 





5540 


DC 




/5540 






31808050 


08 A" 





0000 


FNA81 DC 









ENABLE CAT 


31808060 


08 A9 





5480 


DC 




/54ao 






31808070 


ORAA 





0000 


DISAP DC 









DISABLE CAT 


31808080 


0Q4B 





5440 


DC 




/5440 






31808090 


08 AC 





0000 


ST5T nc 









START/STOP TIMEOUT 


31808100 


08 AD 





5420 


DC 




/5420 






31808110 


08AE 


1 


08B7 


WRCAT nc 




SEND 




WRITE BUFFER 


31808120 


08AF 





5100 


DC 




/5100 






31808130 


0880 


1 


08R6 


ROC AT DC 




RCVED 




READ BUFFER 


31308140 


0881 





5700 


DC 




/5700 






31808150 


OS 8? 





0000 


MASTR DC 









MASTER, RFC RUN ON 


31308160 


08P3 





5601 


DC 




/5601 






31808170 
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2243565 
7A 



0PB4 





0000 


SLAVE 


DC 





0BB5 





5602 




DC 


/5602 


08B6 





0000 


PCVED 


DC 


♦-♦ 


08B7 





FOOD 


SEND 


DC 


/FOOO 


08B8 





0000 


nswxx 


OC 


♦-* 


08B9 





0000 


ni Axx 


DC 


♦-* 



08BA 0001 
08BB C8CC 
OSaC D8fB 
OBBD 08F2 
08BE 7060 



08BF 0000 
08C0 C8CF 
08C1 0BF6 
0BC2 1 7401 064A 
08C4 OBED 
08C5 7059 



08C6 0000 
08C7 C8CC 
08C8 D8EF 
08C9 7000 
08CA 0000 
08CA 1000 
08CR 1000 



08CC 08E5 
OBCO 1 4400 0824 
08CF 08DC 
0800 704 E 



0801 0000 

0802 C8BF 
08D3 n8E4 
0804 1 7401 064A 
0806 0800 
08D7 7047 



onna o looo 



0809 C8BC 
080A 0800 
080B 7000 



SLAVE, REC RUN OFF 

SCA RECIEVEO WOPO 
PATTERN 11110000 
nSW SHOULD/BE 
OIAG WORD SHUO/BE 

1:tt^^r^if*::^^^i*t ******************************** 

* ROUTINE OE 

^t^^^^^^^^i^t:^^^******************************* 

* 

OC 1 
RTOE LDD DSWOl SET UP ANALYSIS DATA 

STD OSWXX 

XIO ROCAT EXECUTE READ CAT 

MDX RTNTO BRANCH TO DELAY 

* 
tt^^t***************************************** 

* ROUTINE OF 

tt******************************************** 
* 

DC 

RTOF LDD DSM05 SET UP ANALYSIS DATA 

STD DSWXX 

MDX L LOPSW.ei TURN ON EXP INT SW 

XIO MASTR EXECUTE MASTFR 

MDX RTNTO BRANCH TO DELAY 

* 

********************************************* 

* ROUTINE 10 
^,***^l^:*************************************** 

* 

DC 
RTIO LDD DSW07 

STD OSHXX 

MDX MDD04 

BSS E 
M0D04 NOP 

NOP 

* NOP 

* STX L 
XIO 

RSI L 
XIO 
MDX 

♦ 
^1,***^*************************************** 

* ROUTINE 11 

»♦♦♦♦♦***♦♦♦♦*»♦**»***♦*********♦**♦****♦♦♦** 
* 

DC 

RTII LDD 0SW06 SET UP ANALYSIS DATA 
STO DSWXX 

MOX L LOPSW.EI TURN ON EXP INT SW 
XIO SLAVE EXECUTE SLAVE 
MDX RTNTO BRANCH TO DELAY 

♦ 

********************************************* 

* ROUTINE 12 

********************************************* 
* 

M0D05 NOP PROG MODIFICATION 05 

* OC 1 FOR STR 

* DC FOR BI SYN 

RT12 LOO 0SW08 SET UP ANALYSIS DATA 
STO DSWXX 
MDX M0006 SKIP 



SET UP ANALYSIS DATA 

SKIP 

PROG MODIFICATION 04 



FOR STR 

LOPSW FOR BI SYN 

MASTR EXECUTE MASTER 

OLYTM 80 MSEC DELAY 

STST EXECUTE START STOP 

RTNTO BRANCH TO DELAY 



31808180 

31808190 

31808200 

31808210 

31808220 

31808230 

31808240 

31808250 

31808260 

31808270 

31808280 

31808290 

31808300 

31808310 

31808320 

31808330 

31808340 

31808350 

31308360 

31808370 

31808380 

31808390 

31808400 

31808410 

31808420 

31808430 

31808440 

31808450 

31808460 

31808470 

31808480 

31808490 

31808500 

31808510 

31808520 

31808530 

31808540 

31808550 

31808560 

31808570 

31808580 

31808590 

31808600 

31808610 

31808620 

31808630 

31808640 

31808650 

31808660 

31808670 

31808680 

31808690 

31808700 

31808710 

31808720 

31808730 

31808740 

31808750 

31808760 

31808770 

31808780 

31808790 

31808800 

31808810 

31808820 

31808830 

31808840 

31808850 



iqoc 0000 

OP DC 1000 

ORon 1000 



OSOF 0RD5 

A81F 1 4400 0P?4 

ORPl 0«CA 

nSE? 703C 



0RE3 ooon 

0PE4 C8A0 

0RF5 D8D7 

0BF6 1 7401 064A 

08E8 08C9 

0BF9 08CA 

OREA 7034 



ORFR 0000 

OPFC C«A5 

OBED DRCA 

OOFP ( Ti^oi 0f>4A 

OBFO 0R33 

OflFl 70?n 



OBF? 1000 



0BF3 CRA? 
08F4 DnC3 
0RF5 7000 

neF6 0000 

0flF6 1000 
OflF7 1000 



08F8 0fl2B 

0RF9 1 4400 0'^24 

08FB 08Pn 

OBFC 7022 



f>p.pr, f) 0010 

"PFF n c"<n 

03Ff: o«n« 

0900 1 7/,ni 0')4A 

090? ORftF 

0903 0P2O 

0904 701A 



PROG MODIFICATinN 06 



SET UP ANALYSIS OATA 

TURN ON FXP INT SW 
EXECUTE MASTFR 
EXECUTF SLAVE 
BRANCH TO DFL AY 



BSS F 

"nnof, NOP 

NHP 

* NOP FOR STR 

* SIX L LOPSW FOP niSYN 

XIO SLAVE EXECUTE SLAVE 
BSI L OLYTM 80 MSEC DELAY 
Xn STST EXECUTE START STOP 
MOX RTNTO BRANCH TO DELAY 

* 

**************** ******************^ *********'* 

* ROUTINE 13 
********************************************* 

* 

OC 
PT13 ion DSW06 

STO nswxx 

MOX L LOPSW, &1 

XIO MASTR 

Xin SLAVE 

MOX RTNTO 
* 
********************************************* 

* ROUTINE 1'* 

********* *********************i'* ************* 

* 

nc 

P.Tl^ LOT nSW06 SET UP ANALYSIS OATA 

STD nswxx 

MDX L LOPSW, fil TURN ON FXP INT SW 
Xin STRD EXECUTE START READ 
MDX RTNTO BRANCH TO DELAY 

* 

************************ If ******************** 

* ROUTINE 15 
********************************************* 

* 

PROG MdOIFlCATION 07 
I FOR STR 
FOR BI SYN 

DSWOP SET UP ANALYSIS OATA 
OSWXX 

MODOR SKIP 


PROr, MD-^IFICATION 08 



Hnno7 NIP 

* nc 

* DC 
RT15 LOO 

STD 
MOX 
BSS 
MODOR NOP 
NIP 

* NOP FOR STR 

* STX L LOPSW FOR BI SYN 

Xin STRD EXECUTF START PFAO 
PSI L OLYTM RO MSEC DELAY 
Xin STST EXECUTF START/STOP 
wnv RTNTO PRftNCH TO OFL AY 

♦ 

********************************************* 

* ROUTINE lf> 

********************************************* 
* 

nc 

PT16 LOD nSWOS 
STO DSWXX 

MOX L LOPSW, 11 
Xin MASTR 

Xin STPn 

MDX RTNTO 
♦ 
^************************ ********* *********** 

* ROUTINE 17 
********************************************* 



SET UP ANAl YSIS DATA 

TUi'N n*'! EXP INT SW 
l-XFCUTE RFCIFVF MOOE 
EXECUTE START Rf=An 
BRANCH TO DELAY 



31808860 

31808870 

31808880 

3180P390 

31808900 

31808910 

31808920 

31808930 

31808940 

31808950 

31808960 

31808970 

31808980 

31808990 

31809000 

31809010 

31809020 

31809030 

31809040 

31809050 

31809060 

31809070 

31809080 

31809090 

31809100 

31809110 

31809120 

31809130 

31809140 

31809150 

31809160 

31809170 

31809180 

31809190 

31809200 

31809210 

31809220 

31809230 

31809240 

31809250 

31809260 

31809270 

31809280 

31809290 

31809300 

31809310 

31809320 

31809330 

31809340 

31809350 

31809360 

31809370 

31809380 

31809390 

31809400 

31809410 

31809420 

31809430 

318P9440 

31509450 

31809460 

31809470 

31809480 

31R09490 

31809500 

31809510 

31809520 

31809530 



DATE 
EC NO. 



15JUN67 
420317 



01JUL69 
571013 



PROG ID 
PAGE 



0318-0 

7 



DATE 
EC NO. 



15JUN67 
420317 



01JUL(S9 
571013 



PROG 10 
PAGE 



0318-0 
7A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM F0»? THE 1130 SYSTEM 
SCA PROGRAM INSTRUCTIONS FUNCTION TEST STR/BSC 



PART NO. 2243555 
PAGE e 



IBM MAINTPNANCP niAGNOSTIC PPOC.RAM FOR THE 1130 SYSTEM 
SCA PR0r,RA>1 INSTRUCTIONS FUNCTION TEST STR/BSC 



PART NO. 
PAGE 



22435^5 
9A 



0905 





1000 




MnD09 


NOP 










* 


DC 










* 


DC 


0906 


1 


CCOO 


0R94 


RT17 


LDI) 


090R 





DRAF 






STD 


0909 





7000 






MDX 


090A 




0000 






BSS 


090A 





1000 




MOOlO 


NOP 


090B 





1000 




* 


NOP 

NOP 
STX 


090C 


1 


ocoo 


08B2 




XIO 


090E 





0815 






XIO 


090F 


I 


4*00 


0R24 




BSI 


0911 


1 


OCOO 


ORAC 




XIO 


0913 





700B 






MDX 



0914 0001 

0915 1 CCOO 0888 

0917 D8A0 

0918 0815 

0919 7005 



091* 0001 
091B 1 CCOO 0888 
091D D89A 
091E 0800 
091F I 4C00 05FB 



0922 




0000 


092 2 


I 


0930 


0923 





5104 


0924 





0000 


0925 





5600 


0926 





0000 


0927 





5500 


0928 





0000 


0929 





5410 


092A 





0000 


092 B 





5408 


092C 





0000 


092D 





5402 


092E 





0000 


092F 





5401 


0930 





3900 



PROG MODIFICATION 09 

1 FOR STR 

FOR BI SYN 

L 0SW07 SET UP ANALYSIS DATA 

DSWXX 

MODIO SKIP 
E 

PROG MODIFICATION 10 

FOR STR 

L LOPSW FOR BI SYN 

L MASTR EXECUTE RECIEVE MODE 

STRD EXECUTE START READ 

L DLYTM 80 MSEC DELAY 

L STST EXECUTE START/STOP 

RTNTO BRANCH TO DELAY 



* ROUTINE 18 

♦*******•******♦♦♦**•♦*♦♦•*♦♦**♦♦*♦♦••♦♦♦♦#♦♦ 

♦ 



SET UP ANALYSIS DATA 

EXECUTE SET 7 
BRANCH TO DELAY 



DC 1 

RT18 LDD L DSWOl 

STD DSWXX 

XIO SETT 

MDX RTNTO 
« 

**♦****♦»*♦♦**♦*♦♦*»**♦*♦*••*♦♦**♦♦♦♦♦**♦♦♦»♦ 

♦ ROUTINE 19, 

DC 1 

RT19 LOO L OSWOl SET UP ANALYSIS DATA 

STO DSWXX 

XIO SET6 EXECUTE SET 6 

RTNTO BSC L WAIT3 BRANCH TO DELAY 
* 

•**♦♦**♦»*♦**♦♦♦♦**♦♦******»♦•*♦**»****»»♦♦*♦ 

♦ 1130 SCA lOCC 

BSS E 

SYNC/IDLE REG 

START READ 

START WRITE 

SYNCHRONIZE 

DIAGNOSTIC MODE 

SET 6 

SET 7 

IDLE CHARACTER 
**♦*♦****♦♦•*♦♦*♦♦****♦*♦♦*♦»*♦*♦♦*♦*♦*»♦♦♦♦* 

* 

♦ ROUTINE lA 

************** ****^*************^*,^t:^,^^:^^:i,^:^^ 





BSS 


E 


SIREG 


DC 


ICHAR 




DC 


/5104 


STRD 


DC 







DC 


/5500 


STRWR 


OC 







DC 


/5500 


SYNCH 


OC 







OC 


/5410 


DIAG 


DC 







OC 


/5408 


SET6 


OC 







DC 


/5402 


SETT 


DC 







DC 


/5401 


ICHAR 


DC 


/3900 



0931 0001 

0932 1 CCOO 0898 
0934 1 DCOO 08B8 
0936 08ED 



DC 1 

RTIA LOO L 0SW09 

STD L DSWXX 
XIO STRD 



SET UP ANALYSIS DATA 
EXECUTE START READ 



31309540 

31809550 

31809560 

31809570 

31809580 

31809590 

31909600 

31809610 

31809520 

31809630 

31309640 

31809550 

31809560 

31809570 

31809680 

31809690 

31809700 

31809710 

31809720 

31809730 

31809740 

31809750 

31809760 

31809770 

31809780 

31809790 

31309800 

31809810 

31809820 

31809830 

31809840 

31809850 

31809860 

31809870 

31809880 

31809890 

31809900 

31809910 

31809920 

31809930 

31809940 

31809950 

31809960 

31309970 

31809980 

31809990 

31310000 

31810010 

31810020 

31310030 

31810040 

31810050 

31810060 

31810070 

31810080 

31810090 

31810100 

31310110 

31810120 

31810130 

31810140 

31810150 

31810160 

31810170 

31810130 

31810190 

31810200 

31810210 



0937 1 OCOO 0R2E 
0939 TOE 5 



OQ34 0000 

0930 I CCOO nR9fl 

0"3D 1 nno nqRR 

0'53F I 7401 064A 

0O41 08Eft 

0'J4? 7onc 



0943 0090 

004'. I rroo 0R9A 

OT^,'. 1 nroo oppa 

094? 1 7401 OftAA 

ooiii ORn? 

094R ORor 

094C 7002 



094n lOOO 



094f 1 CCOO 089C 
09Sn 1 OCOO 08B8 

Toni 

oono 



XIO L FNOOP 
MOX RTNTO 



EXECUTE ENOnp 
BRANCH TO nSLAY 



nq")? 

0954 

0954 l^OO 

0955 1000 



0955 08CR 

0957 7000 

0958 nooo 

n9'5 8 1000 

0959 1000 



09'^A osrn 

09SO 1 4400 0R?4 

0950 1 OCOO OSAC 

09';p TORF 



*************************** ****#*if^f^-^^^^^^^^. 

* ROUTIMF IR 

*i--**********t***************^^^f^^^^^^:^^^^^^^ 
* 

OC 
PTIB LOn L OSWIO SET UP &M4LY$IS DATA 

STO L nswrx 

MOX L LPPSW.El TURN ON FXP INI SW 

XKI SYNCH EXECUTE SYNC 

MOX RTr^TO BRANCH TO OFLAY 

* 

********************** *i:****^Jf^:^:^^:f:^^.^^^^^^^f, 

* ROUTINE IC 
***************************** ****tf,^t.^l^^^^^^^ 



SET UP ANALYSIS DATA 

TUPN ON FXP INT SW 
EXECUTE SYNC/IOLF 
FXECUTF SYNC 
BRANCH TO DELAY 



OC 

"TIC LOn L DSWIO 

STO L OSWXX 

MOX L LQPSW.f. 1 

XIO SIREG 

Xin SYNCH 

»'DX RTNTO 
* 

*********************** *******t*************^ 

* ROUTINE 10 

**************************** *:^^^-^^^^^^^^^^^^^ 

* 

PROG MOOICICATION 11 
1 FOR STR 
FOR BI SYN 

0S»<11 SET UP ANALYSIS DATA 
DSWXX 
M0012 SKIP 



PROG MODIFICATION 1? 



L LOPSW FOP BI SYN 

SIREG EXECUTE SYNC/IDLE 

MrD13 SKIP 
F 



MO 1 I MQP 

* DC 

* nc 

"TIO LOD 
STO 

MOX 

RSS E 
MOni? NOP 
NOP 

* NOP FOR STR 

* STX 

xin 

MOX 

BSS 

MOD 13 NOP 

NOP 

* NOP FOR STR 

* MOX L MKSW3,1 FOR RI SYN 

XIO SYNCH EXECUTE SYNC 

RSI L DLYTM 80 MSEC DELAY 

XIO L STST EXECUTE START STOP 

MOX RTNTO RRANCH TO OFLAY 

* 

********************************* *********i)itt 

* ROUTINE IE 

**********************************!!, ,l!^^^:^^^^a 
* 



SET i|D A\!M YSI S 04TA 



0"'o 





ooni 




nc 




1 


096 1 


1 


CCOO 


OROF 


RTIE LOO 


L 


OSWl? 


096? 


1 


OCOO 


0RR8 


<;Tn 


L 


oswxx 


TQ/.t, 


1 


7401 


09F1 


MOX 


L 


MKSW1,»: 1 


OT'7 





OOBA 




XIO 




SIR-^G 


9f,q 





ORBF 




xin 




SYNCH 


09f.9 


1 


OCOO 


OP?E 


XIO 


L 


FNOOP 


096R 


1 


4400 


099A 


PSI 


L 


CHDLY 


0960 





70R1 




MOX 




RTNTO 



SET n^J^ mask <;w i 

EXECUTE SYNC/IOLF 
PXECUTE SYNC 
EXECUTE EMDOP 
DELAY 32 MSEC 
BRANCH TO DELAY 



******************************************** f! 



31810220 
31810230 
31810240 
31810250 
31810260 
31810270 
31810230 
31810290 
31810300 
31810310 
31810320 
31810330 
31810340 
31810350 
31810360 
31810370 
31810380 
31810390 
31810400 
31810410 
31810420 
31810430 
31810440 
31810450 
31810460 
31810470 
31810480 
31810490 
• 31810500 
31810510 
31810570 
31810530 
31810540 
31810550 
31810560 
31810570 
31810580 
31810590 
31810600 
31310610 
31310620 
31810630 
31810640 
31810550 
31810660 
31310670 
31810680 
31810690 
31310700 
31810710 
31310720 
31310730 
31810740 
31R10750 
31810760 
31 R 10770 
31S10730 
31810790 
31 SIOROO 
31810810 
31810820 
31810830 
31810940 
31810850 
31810860 
31310870 
31810880 
31810890 
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096E 





0001 




096F 


1 


CCOO 


08A0 


0971 


I 


DCOO 


08B8 


0973 


1 


7401 


064A 


0975 





08B0 




0976 





70A8 





0977 





0001 




0978 


1 


CCOO 


08A0 


097A 


I 


DCOO 


08B8 


097C 


1 


7401 


064A 


097E 





08A3 




097F 





08A6 




0980 





709E 





* ROUTINE IF 

* 

DC 1 

RTIF LDD L 0SW13 SET UP ANALYSIS DATA 

STD L DSWXX 

MDX L LOPSWfEl TURN ON EXP INT SW 

XIO STRWR EXECUTE START WRITE 

MDX RTNTO BRANCH TO DELAY 

* 

* ROUTINE 20 

*i^* ****************************************** 
* 

DC 1 

RT20 LDD L DSW13 

STD L DSWXX 

MDX L LOPSW.tl 

XIO SIREG 

XIO STRWR 

MDX RTNTO 
* 
********************************************* 

* ROUTINE 21 
********************************************* 

* 



SET UP ANALYSIS DATA 

TURN ON EXP INT SW 
EXECUTE SYNC/IDLE 
EXECUTE START WRITE 
BRANCH TO DELAY 



0981 





0001 






DC 




1 




0982 


1 


CCOO 


0aA2 


RT21 


LDD 


L 


0SW14 


SET UP ANALYSIS DATA 


0984 


I 


DCOO 


08B8 




STD 


L 


DSWXX 




0986 


1 


7401 


09F4 




MDX 


L 


MKSW2,ei 


SET DATA MASK SW 2 


0988 





089D 






XIO 




STRWR 


EXECUTE START WRITE 


0989 


1 


OCOO 


08AE 




XIO 


L 


WRCAT 


EXECUTE WRT BUFFER 


098B 


I 


OCOO 


082E 




XIO 


L 


ENDOP 


EXECUTE ENDOP 


098D 


1 


4400 


099A 




BSI 


L 


CHOLY 


DELAY 32 MSEC 


098F 





708F 




* 
***** 


MDX 




RTNTO 


BRANCH TO DELAY 










**************************************** 










* 






ROUTINE 22 












********************************************* 


0990 





0001 




* 


DC 




1 




0991 


1 


CCOO 


08A4 


RT22 


LDD 


L 


DSW15 


SET UP ANALYSIS DATA 


0993 


1 


DCOO 


0888 




STD 


L 


DSWXX 




0995 


1 


7401 


064A 




MDX 


L 


LOPSW.El 


TURN ON EXP INT SW 


0997 





0892 






XIO 




DIAG 


EXECUTE DIAG MODE 


0998 


1 


4C00 


05FB 


CHOLY 


BSC 


L 


WAIT3 


BRANCH TO DELAY 


099A 





0000 




DC 




♦-♦ 




099 B 





6700 


OEOO 


DLY 


LDX 


L3 


/OEOO 




099D 





73FF 






MDX 


3 


-1 




099E 





70FE 






MDX 




♦ -2 




099 F 


1 


4C80 


099A 




BSC 


I 


CHDLY 





********************************************* 

* CONTROL ANALYSIS 

* CONTROLS ANALYSIS OF RESULTS FOR 

* FUNCTION LAST EXECUTED 
********************************************* 

* 

LOAD S/8 nsw 



CHFCK IF DIAG MODE 
RESTORE PROGRAM SWS 
LOAD S/B DIAG WORDS 



09A1 


1 


C400 


08B8 


CONAN 


LD 


L 


DSWXX 


09A3 


1 


4410 


09AF 






BSI 


L 


STORl 


09A5 





COOS 








LD 




OIASW 


09A6 


1 


4C18 


07E1 






BSC 


L 


nFF61,K- 


09A8 


1 


C400 


0869 






LD 


L 


DIAXX 


09AA 





700A 




^ 




MDX 




ST0R2 


09AB 





0000 




01 

* 


[ASW 


DC 




*-* 



DIAGNOSTIC MODE SW 



31810900 
31810910 
31810920 
31810930 
31810940 
31810950 
31810960 
31810970 
31810980 
31810990 
31811000 
31811010 
31811020 
31811030 
31811040 
31811050 
31811060 
31811070 
31811080 
31811090 
31811100 
31811110 
31811120 
31811130 
31811140 
31811150 
31811160 
31811170 
31811180 
31811190 
31811200 
31811210 
31811220 
31811230 
31811240 
31811250 
31811260 
31811270 
31811280 
31811290 
31811300 
31811310 
31811320 
31811330 
31811340 
31811350 
31811360 
31811370 
31811380 
31811390 
31811400 
31811410 
31811420 
31811430 
31811440 
31811450 
31811460 
31811470 
31811480 
31811490 
31811500 
31811510 
31811520 
31811530 
31811540 
31811550 
31811560 
31811570 



09AC 0000 
09AD 0000 
09AE 0000 



09AF 0000 
09B0 DOFC 
09B1 1 4400 09BA 
09B3 I 4C80 09AF 



09B5 D0F7 
09B6 1 4400 09C7 
09B8 1 4400 07E0 



09BA 





0000 




09BB 


1 


C400 


0649 


09B0 


I 


F400 


08B8 


09BF 





DOEF 




09C0 





4820 




09C1 





7001 




09C2 





7002 




09C3 


1 


4400 


0A04 


09C5 


1 


4C80 


09BA 



09C7 
09C8 
09C9 
09CA 
09CB 
09CC 
09CD 
09CE 
09CF 
0900 
0901 
09D3 
0905 
0906 
09D7 
0903 
0909 
09nB 
09DD 
09DF 
09E0 
09E2 
09E3 
09E5 
09E6 
09EB 
09E9 
09EB 



0000 
C02A 
4820 
7012 
C028 
4820 
7015 
C026 
4820 

7018 

1 C400 
1 F400 
D0D6 
48.20 
7001 

7002 

1 4400 
1 4C80 
1 C400 

EOlO 

1 0400 

70EE 

1 C400 

FOOB 

1 D400 

70E8 

1 C400 



0642 

08B9 



0B20 
09C7 
0642 

0642 

0642 

0642 

0642 



***♦♦**♦***♦**♦*****♦********♦**♦****«*♦**♦♦♦ 

♦ STORAGE FOR CONTROL ANALYSIS 
********************************************* 

* 

TRGWn DC *-• DIAG WORD ERR. BITS 

STHD DC *-* STORED WORD 

DSWRD DC *-* DSW ERROR BITS 

* 

********************************************* 

* 

STORl DC *-♦ SAVED RETURN ADOR 
STO STWD STORE S/B DSW 
BSI L ANALl GO TO ANAL. 1 
BSC I STORl RETURN TO SAVED AODR 

* 

********************************************* 

* 

ST0R2 STO STWD STORE S/B DIAG WORD 
BSI L ANAL2 GO TO ANAL. 2 
BSI L OFF GO TO SW RESET RTN 

* 

********************************************* 

* CHECK TO SEE IF DSW ERROR EXISTS 
********************************************* 

* 



ANALl DC 

LD 

EOR 

STO 

BSC 

MDX 

MDX 
ANLOl BSI 

BSC 
* 
********************************************* 

* CHECK TG SEE IF DIAG TRIG ERROR EXISTS 

********************************************* 

* 





*-* 


L 


CADSW 


L 


DSWXX 




DSWRD 




Z 




ANLOl 




ANL0162 


L 


DSWAN 


I 


ANALl 



SAVED RETURN AODR 
LOAD SENSED DSW 
EOR WITH S/B DSW 
STORE IN DSW ERR BIT 
CHK IF ERR BITS ON 
ERR BITS ARE ON 
ERR BITS ARE NOT ON 
CHK WHICH BITS ON 
BRANCH TO RETURN ADR 



E006 



ANAL2 DC 
LD 
BSC 
MDX 
LD 
BSC 
MDX 
LD 
BSC 
MDX 

CKIT4 LD 
EOR 
STO 
BSC 
MDX 
MDX 

ANL02 BSI 
BSC 

DTMK2 LO 
AND 
STO 
MOX 

0TMK3 LO 
AND 
STO 
MDX 

DTMK4 LD 
AND 



*-* 

MKSWl 

Z 

0TMK2 

MKSW2 

Z 

DTMK3 

MKSW3 

Z 

DTMK4 

DIAWO 

DIAXX 

TRGWO 

Z 

ANL02 

ANL0262 

TRGAN 

ANAL2 

DIAWO 

MASK3 

OIAWD 

CKIT4 

DIAWD 

MASK4 

DIAWD 

CKIT4 

DIAWD 

MASK5 



SAVED RETURN ADOR 
LD DATA MASK SW 1 

GO MASK OUT DATA BIT 
LD DATA MASK SW 2 

GO MASK OUT DATA BIT 
LD DATA MASK SW 3 

BR TO DTMK4 
LOAD WAS DIAG WDS 
EOR S/B DIAG WORDS 
SET IN DIAG ERR BITS 
CHKIF ERR BITS ON 
ERROR BITS ARE ON 
ERR BITS ARE NOT ON 
GO TO TRIGGER ANAL 
BRANCH TO SAVED AODR 
LO WAS DIAG WD 
MASK OUT DATA BITS 
STORE IN DIAG WD WAS 
GO COMPARE DIAG WDS 
LO WAS DIAG WD 
MASK OUT DATA BITS 

GO COMPARE DIAG WDS 
LD WAS DIAG WD 
MASK OUT DATA BITS 



31811580 
31811590 
31811600 
31811610 
31811620 
31811630 
31811640 
31811650 
31811660 
31811670 
318116S0 
31811690 
31811700 
31811710 
31811720 
31811730 
31811740 
31811750 
31811760 
31811770 
31811780 
31811790 
3181 ISOO 
31811810 
31811820 
31811830 
31811840 
31811850 
31811860 
31811870 
31811880 
31811890 
31811900 
31811910 
31811920 
31811930 
31811940 
31811950 
31811960 
31811970 
31811980 
31811990 
31812000 
31812010 
31812020 
31812030 
31812040 
31812050 
31812060 
31812070 
31812080 
31812090 
31812100 
31812110 
31812120 
31812130 
31812140 
31812150 
31812160 
31812170 
31812180 
31812190 
31812200 
31812210 
31812220 
31812230 
31812240 
31812250 



DATE 
EC NO. 



l'SJUN67 
420317 



0IJUL69 
571013 



PROG ID 
PAGE 



0318-0 
9 



DATE 
EC NO. 



15JUN67 
420317 



01JUL69 
571013 



PROG 10 
PAGE 



0318-0 
9A 
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PART NO. 
PAGE 



2243565 
lOA 



09EC 


1 


D400 0642 


09EE 





70E2 


09EF 





OFFF 


09F0 





FF63 . 


09F1 





FF63 


09F2 





FEFF 


09F3 





nooo 


09F4 





0000 


09F5 





0000 



09F6 0000 
09F7 1 C400 09F3 
09F9 4820 
09FA 700? 
09FB 1 4C80 09F6 

09FD 1 C400 0649 

09FF 1 F400 09EF 

OAOl 1 0400 0649 

0AO3 70F7 



0A04 
0A05 
0A07 
OA09 



OAOB 1 
OAOD 1 
OAOF 1 
OAll 1 
0A13 
0A14 1 
0A16 1 
0A18 
OAIA 1 
OAIC I 
OAIE 1 
0A20 1 
0A22 1 
0A24 1 
0A26 1 
0A28 1 
0A2A 1 
0A2C 1 
0A2F 1 
0A30 I 
0A32 1 
0A34 I 
0A36 1 
0A38 1 
0A3A 
0A3C 1 
0A3n 1 
0A3F 1 
0A40 1 



0000 
C400 
F400 
0400 
C400 
F400 
D400 
OCOO 
6305 
6F00 
4400 
6 700 
6F00 
6700 
6F00 
C400 
0400 
C400 
0400 
C400 
0400 
C400 
D400 
C400 
E400 
0400 
C400 
0400 
4480 
0874 
OBIA 
OCOO 
4C80 



0649 
09AE 
0A42 
09AE 
0A42 
0A43 
0830 

0A87 
0A44 
007F 
0676 
0A88 
0B77 
0A42 
OB 70 
0A43 
0B7E 
0BB8 
0B7C 
0649 
0B7B 
0645 
0C37 
nR7A 
0644 
0R79 
016? 



0832 
0A04 



STORE IN DIAG HOS 
GO COMPARE DIAG WD 
DSW WAS MASK 
DIAG MASK 
DIAG MASK 
DIAG MASK 
MASK SW 1 
MASK SW 2 



STO L DIAWD 

MDX CKIT4 

MASK? DC /DFFF 

MASK3 DC /FF63 

MASK4 DC /FF63 

MASK5 DC/ /FEFF 

MKSWl DC *-* 

MKSW2 DC ♦-* 

MKSW3 DC *-♦ 
* 

* SET UP COMPARE SWITCHES FOR .*WAS* 

♦ OSW WORD 



SAVED RETURN ADDRESS 
LO DATA MASK SW I 



SRVSN DC *-* 

LD L MKSWl 

BSC Z 

MDX DTMKl 

END02 BSC I SRVSN 
* 

DTMKl LD L CADSW 

AND L MASK2 

STO L CADSW 

MDX END02 
* 
♦»♦**»***♦♦****♦*»*♦♦**♦♦***♦♦*************** 

* OSW ANALYSIS 

* COMPARE SHOULO/BE DSW WITH WAS DSW 

* AND ANALIZE ANY ERRORS 

* 



GO MASK OUT DATA BIT 
EXIT TO RETURN ADOR 

LD S/B DSW WORD 
MASK OUT DATA BITS 
STORE IN DSW WAS 
EXIT TO RETURN ADDR 



\ 



DSWAN OC 
LD 
AND 
STO 
LD 
EOR 
STO 
XIO 
LDX 
STX 
BSI 
LOX 
STX 
LOX 
STX 
LD 
STO 
LO 
STO 
LD 
STO 
LD 
STO 
LD 
AND 
STO 
LD 
STO 
BSI 
OC 

or 

XIO 

BSC 



L 
L 
L 
L 
L 
L 
L 

3 
L3 
L 

L3 
L3 
L3 
L3 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
I 



♦ -* 

CAOSW 

DSWRD 

DSWWl 

DSWRD 

DSWWl 

0SWW2 

BZON 

5 

MSGNO 

MSGIO 

/007F 

TABLEE2 

ADRl 

TABLE63 

DSWWl 

TABLE69 

DSWW2 

TABLEEIO 

DSWXX 

TABLE68 

CAOSW 

TABLEe7 

DI2AL 

MASKl 

TAaLE66 

DUAL 

TABLE65 

ERROR 

TABLE 

LOPRT 

BZOFF 

DSWAN 



SAVED RETURN ADDRESS 
LOAD DSW WAS 
AND WITH DSW ERR 
STORE ON/F ERR BITS 
LOAD OSW ERR BITS 
EOR WITH ON/F ERR 
STORE OSW F/ON ERR 
EXECUTE ALARM ON 
SET UP MESSAGE ID 5 
STORE IN MESSAGE * 
GO CHK WHICH MSG ID 

SET IN MODIFIER ID 
LD ALPHA 1 ADDR 
SET UP ALPHA MSG 
LOAD ON/F ERR BITS 

LOAD F/ON ERR BITS 

LD DSW SHOULD/BE 
SET UP ERR MESSAGE 
LOAD SENSED DSW 
SET UP ERR MESSAGE 

MASK OUT CE BITS 
SET UP ERR MESSAGE 

SET UP ERR MESSAGE 
GO PRINT ERROR 
MESSAGE TABLE 
LOOP ADDRESS 
EXECUTE ALARM OFF 
EXIT TO RETURN 



OATF 

EC MO. 



1'5JUN67 
4?0317 



01JUL69 
571013 



31812260 

31812270 

31812280 

31812290 

31812300 

31812310 

31812320 

31812330 

31812340 

31812350 

31812360 

31812370 

31812380 

31812390 

31812400 

31812410 

31812420 

31812430 

31812440 

31812450 

31812460 

31812470 

31812480 

31812490 

31812500 

31812510 

31812520 

31812530 

31812540 

31812550 

31812560 

31812570 

31812580 

31812590 

31812600 

31812610 

31812620 

31812630 

31812640 

31312650 

31812660 

31812670 

31812680 

31812690 

31812700 

31812710 

31812720 

31812730 

31812740 

31812750 

31812760 

31812770 

31812780 

31812790 

31812800 

31812810 

31812820 

31812830 

31812840 

31812850 

31812860 

31812870 

31812880 

31812890 

31812900 

31812910 

31812920 

31812930 



PROG ID 
PAGE 



0318-0 
10 



DATE 
EC NO. 







^^^ifiti*^^*^ieiK*itf*********tf1f******************** 


31812940 








* 


DSW 


ANALYSIS SWITCHES £ STORAGE 


31812950 








******♦*♦*♦♦*♦*♦***♦*♦**♦♦**♦♦♦♦***********♦♦ 


31812960 








* 










31812970 




0A4? 0000 




DSWWl 


DC 




*-* 


OSW F/ON WORD 


31812980 




0AA3 0000 




DSWW2 


DC 




*-* 


DSW ON/F WORD 


31812990 








if ^:-^^*i^**'piiti^*it:*-i^^**i^****if*i**i^******1lf ********** 


31813000 








* 










31813010 




0A44 0000 




MSGID 


OC 




*-♦ 




31813020 




0A45 1 C400 


0643 




LO 


L 


DIAW061 


LOAD *CE* BITS 


31813030 




0A47 1890 






SRT 




16 




31813040 




0A48 1010 






SLA 




16 




31813050 




0A49 1083 






SLT 




3 




31813060 




0A4A 1007 






SLA 




7 




31813070 




0A4B 1 0400 


0B7F 




STO 


L 


TABLEEll 


STORE IN ERR MSG 


31813080 




0A4D 1 C400 


07DF 




LO 


L 


RSTSW 


CHK FOR P RESET ERR 


31813090 




0A4F 4820 






BSC 




Z 




31813100 




0A50 702E 






MDX 




NOTRM 


LET PROG RESET MSG 


31813110 




0A51 C031 




* 


LO 




TERM 


NO PROG RESET MSG 


31813120 
31813130 




0A52 1 D400 


0A90 


HSGGO 


STO 


L 


TERMl 




31813140 




0A54 1 0400 


0AB7 




STO 


L 


TERM2 




31813150 




0A56 1 D400 


OADl 




STO 


L 


TERM3 




31813160 




0A58 1 0400 


OAEB 




STO 


L 


TERM4 




31813170 




nA5A C02B 






LD 




INTSW 




31813180 




0A5B 1 4C18 


0A6C 




BSC 


L 


I0RTN£2,6- 


BRANCH NOT INT MSG 


31813190 




0A5D 1 C400 


064A 




LD 


L 


LOPSW 


CHK FOR INTRPT INFO 


31813200 




0A5F 48?0 






BSC 




Z 




31813210 




0A60 7014 






MDX 




PNDCK 




31813220 




0A61 1 C400 


064B 




LD 


L 


PRTPN 




31813230 




0A63 4820 






BSC 




Z 




31813240 




0A64 7018 






MDX 




MI03 




31813250 




0A65 6300 






LOX 


3 







31813260 




0A66 6B1E 






STX 


3 


INTID 


RESET INTERRUPT ID 


31813270 




0A67 6B1E 






STX 


3 


INTSW 


RESET INTERRUPT SW 


31813280 




0A68 1 4C80 


nBC7 


* 


BSC 


I 


INTAN 


EXIT TO RETURN 


31313290 
31813300 




0A6A 1 6F00 


0A85 


lORTN 


STX 


L3 


INTID 


STORE INT MSG ID 


31813310 




0A6C COIA 






LD 




MSGNO 


LOAD MESSAGE * 


31813320 




0A6D 8017 






A 




INTID 


ADO INT MSG ID 


31813330 




0A6F 1 0400 


0B74 




STO 


L 


TABLE 


STORE MESSAGE ID 


31813340 




0A70 6300 






LOX 


3 







31813350 




0A71 6B13 






STX 


3 


INT 10 


RESET INTERRUPT 10 


31813360 




0A72 6B13 






STX 


3 


INTSW 


RESET INTERRUPT SW 


31813370 




0A73 1 4CS0 


0A44 


* 


BSC 


I 


MSGID 


EXIT TO RETURN ADDR 


31813380 
31813390 




0A75 1 C400 
0A77 4820 
6A78 7002 


064B 


PNOCK 


LO 

BSC 
MOX 


L 


PRTPN 

Z 

MIDI 


LOAD PRINT PEND SW 


31813400 
31813410 
31813420 




0A79 6302 
0A7A 70EF 




* 


LDX 
MOX 


3 


2 

IDRTN 


SET MESSAGE ID 2 


31813430 
31813440 
31813450 




DA7B 6301 
0A7C 70En 




MIDI 
* 


LOX 

MOX 


3 


1 

IDRTN 


SET UP MESSAGE ID I 


31813460 
31813470 
31813480 




0A7n 6303 
0A7E 70EB 




MID3 

* 


LDX 
MOX 


3 


3 
IDRTN 


SET UP MESSAGE ID 3 


31813490 
31813500 
31813510 




0A7F 1 7401 


0A87 


NOTRM 


MDX 


L 


MSGNO, £1 


ADO 1 TO MESSAGE # 


31813520 




0A81 C002 
0A!?2 70CF 




* 


LO 

MOX 




SPACE 
MSGGO 


LOAD SPACES 


31813530 
31813540 
31813550 




nA83 FFFF 




TERM 


DC 




/FFFF 


TERMINATOR 


31813560 




0aB4 ?1?1 




SPACE 
« 


OC 




/2121 


SPACES 


31813570 
31813580 




0A85 0000 




I NT ID 


1 OC 




*-* 


INTERRUPT ID 


31813590 




0A86 0000 




TNTSW 


OC 




*-♦ 


INTERRUPT SW 


31813600 




0AB7 0000 




MSGNQ 


1 DC 




*-* 


MESSAGE ID 


31813610 
PROG ID 


0318-0 


15JUN67 


01JUL69 












PAGE 


lOA 



420317 



571013 
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* ALPHA MESSAGE FOR DSH ERROR 

♦ 



0A88 


3292 


ADRl DC 


73292 


DW 


0A89 


FC21 


DC 


/FC21 


1 


0A8A 


2132 


DC 


/2132 





0A8B 


9208 


DC 


/92D8 


W2 


0A8C 


2121 


DC 


/2121 




0A8D 


923E 


DC 


/923E 


WA 


0A8E 


9A21 


DC 


/9A21 


S 


0A8F 


219A 


DC 


/219A 


s 


0A90 


BCIA 


DC 


/BCIA 


/B 


0A91 


2121 


DC 


/2121 




0A92 


5276 


DC 


/5276 


ON 


0A93 


BC12 


DC 


/BC12 


/F 


0A94 


2112 


DC 


/2112 


F 


0A95 


BC52 


DC 


/BC52 


/O 


0A96 


7621 


DC 


/7621 


N 


0A97 


061E 


DC 


/061E 


*C 


0A98 


3606 


DC 


/36D6 


E* 


0A99 


2132 


DC 


/2132 





0A9a'0 


9A92 


DC 


/9A92 


SH 


0*9B 


2136 


DC 


/2136 


E 


0A9C 


6262 


DC 


/6262 


RR 


0A90 


FFFF 


TERMl DC 


/FFFF 


TERMINATOR 


0A9E 


6236 


DC 


/6236 


RE 


0A9F 


9A36 


OC 


/9A36 


SE 


OAAO 


9E21 


DC 


/9E21 


T 


OAAl 


FFFF 


OC 


/FFFF 





********************************************* 
* ALPHA MESSAGE FOR DIAG MORD 1 ERROR 

* 



0AA2 





329A 


ADR 2 DC 


/329A 


OS 


0AA3 





9221 


DC 


/9221 


W 


0AA4 





21D3 


OC 


/2108 


2 


0AA5 





923E 


DC 


/923E 


WA 


0AA6 





9A21 


OC 


/9A21 


S 


0AA7 





FC92 


DC 


/FC92 


IM 


0AA8 





3E9A 


DC 


/3E9A 


AS 


0AA9 





21FC 


DC 


/21FC 


1 


OAAA 





9ABC 


OC 


/9ABC 


S/ 


OAAB 





1A21 


OC 


/1A2I 


B 


OAAC 





5276 


OC 


/5276 


ON 


OAAO 





BC12 


OC 


/BC12 


/F 


OAAE 





2112 


DC 


/2112 


F 


OAAF 





BC52 


DC 


/BC52 


/O 


OABO 





7621 


DC 


/7621 


N 


OABl 





D61E 


DC 


/061E 


♦C 


0AB2 





36D5 


DC 


/36D6 


E* 


0AB3 





2132 


DC 


/2132 


D 


0AB4 





92FC 


DC 


/92FC 


Wl 


0AB5 





2136 


DC 


/2136 


E 


0AB6 





6262 


DC 


/6262 


RR 


0AB7 





FFFF 


TERM2 OC 


/FFFF 


TERMINATOR 


0AB8 





6236 


DC 


/6236 


RE 


0AB9 





9A36 


DC 


/9A36 


se 


0A8A 





9E21 


DC 


/9E21 


T 


OABB 





FFFF 


DC 


/FFFF 





OABC 329A 



* ALPHA MESSAGE FOR DIAG WORD 2 ERROR 

* 

ADR 3 DC /329A OS 



31813620 
31813630 
31313640 
31813650 
31813660 
31813670 
31813680 
31813690 
31813700 
31813710 
31813720 
31813730 
31813740 
31813750 
31813760 
31813770 
31813780 
31813790 
31813800 
31813810 
31813820 
31813830 
31813840 
31813850 
31813860 
31813870 
31813880 
31813890 
31813900 
31813910 
31813920 
31813930 
31813940 
31813950 
31813960 
31813970 
31813980 
31813990 
31814000 
31814010 
31814020 
31814030 
31814040 
31814050 
31814060 
31814070 
31814080 
31814090 
31814100 
31814110 
31814120 
31814130 
31814140 
31814150 
31814160 
31814170 
31814180 
31814190 
31814200 
31814210 
31814220 
31814230 
31814240 
31814250 
31814260 
31814270 
31814280 
31814290 



OABD 





9221 


DC 


/9221 


W 


OABF 





21FC 


DC 


/21FC ■ 


1 


OABF 





923E 


DC 


/923E 


WA 


OACO 





9A21 


OC 


/9A21 


S 


OACl 





0892 


OC 


/D892 


2W 


0AC2 





3E9A 


DC 


/3E9A 


AS 


0AC3 





21D8 


DC 


/21D8 


2 


0AC4 





9ABC 


DC 


/9ABC 


S/ 


0AC5 





1A21 


DC 


/1A21 


B 


0AC6 





5276 


OC 


75276 


ON 


0AC7 





BC12 


OC 


/BC12 


/F 


0AC8 





2112 


DC 


/2112 


F 


0AC9 





BC52 


DC 


/BC52 


/O 


OACA 





7621 


DC 


/7621 


N 


OACB 





D61E 


DC 


/D61E 


♦C 


OACC 





3606 


OC 


/3606 


E* 


OACO 





2132 


DC 


/2132 


O 


OACE 





9208 


DC 


/9208 


W2 


OACF 





2136 


DC 


/2136 


E 


OADO 





6262 


DC 


/6262 


RR 


OAOl 





FFFF 


TERM3 DC 


/FFFF 


TERMINATOR 


0AD2 





6236 


DC 


/6236 


RE 


0A03 





9A36 


DC 


/9A35 


SE 


0AD4 





9E21 


OC 


/9E21 


T 


0AD5 





FFFF 


DC 


/FFFF 





OAFO 





9A1E 


OAFl 





5256 


0AF2 





3621 


0AF3 





5E52 


0AF4 





5256 


0AF5 





FFFF 



* ALPHA MESSAGE FOR INTERRUPT ERROR 



0A06 





3292 


A0R4 DC 


/3292 


DW 


0A07 





FC21 


DC 


/FC21 


1 


0AD8 





2132 


OC 


/2132 


D 


0AD9 





9208 


DC 


/9203 


W2 


OAOA 





2121 


DC 


/2121 




OADB 





329A 


DC 


/329A 


OS 


OADC 





9221 


DC 


/9221 


W 


OAOD 





2152 


DC 


/2152 





OADE 





76BC 


DC 


/76BC 


N/ 


OAOF 





1221 


DC 


/1221 


F 


OAEO 





12BC 


DC 


/12BC 


F/ 


OAEl 





5276 


OC 


/5276 


ON 


0AE2 





21D6 


DC 


/21D6 


* 


0AE3 





1E36 


DC 


/1E36 


CE 


0AE4 





0621 


DC 


/D621 


* 


0AE5 





2121 


DC 


/2121 




0AE6 





2121 


DC 


/2121 




0AE7 





2122 


DC 


/2122 


I 


0AE8 





769E 


DC 


/769E 


NT 


0AE9 





2136 


DC 


/2136 


E 


OAEA 





6262 


DC 


/6262 


RR 


OAEB 





FFFF 


TERM4 DC 


/FFFF 


TERMINATOR 


OAEC 





6236 


DC 


/6236 


RE 


OAED 





9A36 


DC 


/9A36 


SE 


OAEE 





9E21 


OC 


/9E21 


T 


OAEF 





FFFF 


DC 


/FFFF 





* ALPHA MESSAGE FOR SCOPE LOOP 

* 
ADR5 



DC 


/9A1E 


SC 


DC 


75256 


OP 


DC 


/3621 


E 


DC 


/5E52 


LO 


DC 


/5256 


OP 


DC 


/FFFF 


TERHINATER 



31814300 

31814310 

31814320 

31814330 

31814340 

31314350 

31814360 

31814370 

31814380 

31814390 

31814400 

31814410 

31814420 

31814430 

31814440 

31814450 

31814460 

31814470 

31814480 

31814490 

31814500 

31814510 

31814520 

31814530 

31814540 

31814S50 

31814560 

31814570 

31814580 

31814590 

31814600 

31814610 

31814620 

31814630 

31814640 

31814650 

31814660 

31814670 

31814680 

31814690 

31814700 

31814710 

31814720 

31814730 

31814740 

31814750 

31814760 

31814770 

31814780 

31814790 

31814800 

31814810 

31814820 

31814830 

31814840 

31814850 

31814860 

31814870 

31814880 

31814890 

31814900 

31814910 

31814920 

31814930 

31814940 

31814950 

31314960 

31814970 
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* ALPHA MESSAGE FOR SCA PROG. OPTIONS 
iti^:^:^^^^c^Hli^^^^*i^i^*:Hi*i^^^'* ********************** 

* 



0AF6 





2121 


0AF7 





2121 


OAFS 





2121 


0AF9 





2121 


OAFA 





2121 


OAFB 





2121 


OAFC 





2121 


OAFD 





2121 


OAFE 





2121 


OAFF 





2121 


OBOO 





2121 


OBOl 





2121 


0B02 





2121 


0B03 





2121 


OBO* 





2121 


0B05 





2121 


0B06 





2121 


0B07 





2121 


0B08 





2121 


OB 09 





2121 


OBOA 





2121 


OBOB 





2121 


OBOC 





FFFF 



OBOD 
OBOE 
OBOF 
OBIO 
OBll 
0B12 
0B13 
0B14 
0B15 
0B16 
0B17 
0B18 
0B19 



6236 
9A9E 
5262 
3621 
9AA6 
9A9E 
3672 
219E 
5221 
7652 
6272 
3E5E 
FFFF 



OBIA 1 6C00 0823 
OBIC 1 OCOO 0832 
OBIE 1 4C00 07EB 



LOGIA 


op 

DC 
DC 
DC 
DC 




/2121 
/2121 
/2121 
/2121 
/2121 




LOGIB 


OC 
DC 
DC 
DC 
DC 




/2121 
/2121 
/2121 
/2121 
/2121 




LOGIC 


DC 
DC 
DC 
DC 
DC 




/2121 
/2121 
/2121 
/2121 
/2121 




LOGID 


DC 
OC 
DC 




/2121 
/2121 
/2121 




LOGIE 


DC 
DC 
DC 
DC 




/2121 
/2121 
/2121 
/2121 






OC 




/FFFF 


TERMINATER 


********************************************* 


* 






RESTORE 


MESSAGE 


********************************************* 


* 
NMSG 


DC 




/6236 


RE 




DC 




/9A9E 


ST 




DC 




/5262 


OR 




DC 




/3621 


E 




DC 




/9AA6 


SY 




OC 




/9A9E 


ST 




DC 




/3672 


EM 




DC 




/219E 


T 




DC 




/5221 







DC 




/7652 


NO 




DC 




/&272 


RM 




DC 




/3E5E 


AL 




OC 




/FFFF 


TERMINATER 


* 
LOPRT 


STX 


L 


LOOPE 


TURN ON LOOP ON ERR 




XIO 


L 


BZOFF 


EXECUTE ALARM OFF 




BSC 


L 


0FF2 


GO TO HOUSE/KEEP RTN 



********************************************* 

* OIAG TRIGGER ANALYSIS 

* COMPARES *WAS* TRIGGERS WITH S/B 

* TRIGGERS AND ANALIZES ANY ERROR 
********************************************* 

* 



SAVED RETURN ADDRESS 
LD COMBINDEO OIAGS 



0B20 





0000 


TRGAN OC 


*-* 


0B21 


1 


C400 08B9 


LO L DIAXX 


0P23 





1890 


SRT 


16 


0B24 





1010 


SLA 


16 


0B25 





1089 


SLT 


9 


0B26 





1007 


SLA 


7 


0B27 





D058 


STO 


OIAXl 


0B2S 





1010 


SLA 


16 


0R29 





1086 


SLT 


6 


0B2A 





lOOA 


SLA 


10 


082B 





D055 


STO 


DIAX2 



STORE OIAG 1 WAS 



STORE DIAG 2 WAS 



31814980 

31814990 

31815000 

31815010 

31815020 

31815030 

31815040 

31815050 

31815060 

31815070 

31815080 

31815090 

31815100 

31815110 

31815120 

31815130 

31815140 

31815150 

31815160 

31815170 

31815180 

31815190 

31815200 

31815210 

31815220 

31815230 

31815240 

31815250 

31815260 

31815270 

31815280 

31815290 

31815300 

31815310 

31815320 

31815330 

31815340 

31815350 

31815360 

31815370 

31815380 

31815390 

31815400 

31815410 

31815420 

31815430 

31815440 

31815450 

31815460 

31815470 

31815480 

31815490 

31815500 

31815510 

31815520 

31815530 

31815540 

31815550 

31815560 

31815570 

31815580 

31815590 

31815600 

31815610 

31815620 

31815630 

31815640 

31815650 



0B2C 1 


C400 


09AC 


LD 


L 


TRGWO 


LOAD DIA ERROR BITS 


082E 


1890 




SRT 




16 




0B2F 


1010 




SLA 




16 




0B30'0 


1089 




SLT 




9 




0B31 


1007 




SLA 




7 




0B32 


D04F 




STO 




TRWDl 


STORE DIAG WD I ERR 


0R33 


1010 




SLA 




16 




0B34 


1086 




SLT 




6 




0B35 


lOOA 




SLA 




10 




0B36 


D04C 




STO 




TRWD2 


STORE OIAG WD 2 ERR 


0B37 


C04A 




LD 




TRWDl 




0B38 


4820 




BSC 




Z 


CHECK FOR ERR BIT ON 


0B39 


7020 




MOX 




CKIT2 


INITIAL ERR BIT CHK 


0B3A 


704B 




. MOX 
* 
WDl XIO 




WDICK 


GO CHK DIAG WD 2 


0B3B 1 


OCOO 


0830 


L 


BZON 


EXECUTE ALARM ON 


0B3D 


6307 




LDX 


3 


7 




0B3E 1 


6F00 


0A87 


STX 


L3 


MSGNO 


SET UP MESSAGE ID 7 


0B40 1 


4400 


0A44 


BSI 


L 


MSGIO 


CHK WHICH MESSAGE ID 


0B42 


6700 


007F 


LDX 


L3 


/007F 




0B44 1 


6F00 


0BT6 


STX 


L3 


TABLE62 


SET UP MODIFIER ID 


0B46 1 


6700 


0AA2 


LOX 


L3 


ADR2 


LD ALPHA 2 ADDR 


0B48 1 


6F00 


0B77 


STX 


L3 


TABLES3 




0B4A 1 


C400 


OB 84 


LD 


L 


TGWDl 


LO ON/F ERROR BITS 


0B4C 


0030 




STO 




TABLEE9 




0B4D I 


C400 


0R85 


LO 


L 


TGWD2 


LD F/ON ERROR BITS 


0B4F 


D02E 




STO 




TABLEEIO 




0B50 


C02F 




LD 




DIAXl 


LD DIAG WD I S/B 


0B51 


D02A 




STO 




TABLE&8 




0B52 1 


C400 


0644 


LD 


L 


DUAL 


LD DIAG WD 1 WAS 


0B54 


0026 




STO 




TABLE67 




0B55 1 


C400 


0645 


LD 


L 


DI2AL 


LD OIAG WD 2 WAS 


0B57 1 


E400 


0C37 


AND 


L 


MASKl 


MASK OUT CE BITS 


0B59 


D020 




STO 




TABLE£6 




0B5A 1 


C400 


0649 


LD 


L 


CAOSW 


LOAD DSW WAS 


0B5C 


OOIC 




STO 




TABLE65 




0B5D 


4480 


0162 


BSI 


I 


ERROR 


GO PRINT ERROR 


0B5F 1 


0B74 




DC 




TABLE 


MESSAGE TABLE 


0B60 1 


081A 




DC 




LOPRT 


LOOP ADDRESS 


0B61 1 


OCOO 


0832 


XIO 


L 


BZOFF 


EXECUTE ALARM OFF 


0B63 


6300 




LOX 


3 







0B64 


6B1F 




STX 


3 


TGWOl 




0B65 


6B1F 




STX 


3 


TGW02 




0B66 


701F 




MDX 
CKIT2 LD 




WDICK 


GO CHK DIAG WD 2 


0B67 1 


C400 


0B80 




DIAXl 


LD OIAG WD I WAS 


0B69 1 


E400 


0B82 


AND 




TRWOl 


AND OIAG WD 1 ERR 


0B6B 1 


D400 


0R85 


STO 




TGWD2 


STORE ON/F ERR BITS 


0B6D 1 


C400 


0B82 


LD 




TRWOl 


LO DIAG WD 1 ERR 


0B6F 1 


F400 


0B85 


FOR 




TGWD2 


EOR DIAG WO 1 ON/F 


0B71 1 
0B73 


0400 
70C7 


0B84 


STO 
MDX 




TGWDl 
WDl 


STORE DIAG WD I F/ON 



0P74 




0000 


OR 74 





0000 


0R75 





0000 


0B76 





0000 


0877 





0000 


0B78 





0000 


0B79 





0000 


0B7A 





0000 


0B7B 





0000 


0B7C 





0000 


0B7D 





0000 



♦ ERROR PRINT TABLE 

t:***f^**************************************** 

* 

8SS E 

TABLE DC *-* ERROR PRINT TABLE 

DC *-* 

DC *-* 

DC *-* 

OC *-* 

DC *-* 

DC ♦-* 

DC *-* 

DC *-* 

OC *-* 



31915660 

31815670 

31815680 

31815690 

31815700 

31815710 

31815720 

31815730 

31815740 

31815750 

31815760 

31815770 

31815780 

31815790 

31815800 

31815810 

31815820 

31815830 

31815840 

31815850 

31815860 

31815870 

31815880 

31815890 

31815900 

31815910 

31815920 

31815930 

31815940 

31815950 

31815960 

31815970 

31815980 

31815990 

31816000 

31816010 

31816020 

31816030 

31816040 

31816050 

31816060 

31816070 

31815080 

31816090 

31816100 

31816110 

31816120 

31816130 

31816140 

31816150 

31816160 

31816170 

31816180 

31816190 

31816200 

31816210 

31816220 

31816230 

31816240 

31816250 

31816260 

31816270 

31816280 

31816290 

31816300 

31816310 

31816320 

31816330 
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067E 0000 
0R7F 0000 



0B80 0000 
OBBl 0000 
0B82 0000 
0B83 0000 
0B84 0000 
0B85 0000 



DC 
DC 






OB 86 
0B87 
0B88 
OB 89 
0B8A 
0B8B 



COFC 
1890 
1010 
1087 
4820 
7002 



0B8C I *C80 OB 20 



088E 
0B90 
0B92 
0B94 
0B96 
0B98 
0B9A 
0B9C 
0B9D 
0B9F 
OBAl 
0BA3 
0BA5 
QBA7 
. 0BA9 
OBAB 
OBAC 
OBAE 
OBAF 
OBBO 
OBBl 
0BB3 
08B5 
0BB6 
0BB8 
0BB9 
OBBB 
OBBC 
OBBE 
OBBF 
OBCO 
0BC2 
0BC3 
OBC* 
0BC5 



1 C400 
1 E400 
1 D400 
1 C400 
1 F400 
1 D400 
1 OCOO 

6309 

1 6F00 
1 4400 

6700 

1 6F00 
I 6700 
1 6F00 
I C400 

000 1 
C400 
DOCF 
CODl 
DOCB 
C400 
E400 
D0C5 
C400 
OOCl 

1 C400 
DOBO 

4480 
0B74 
081A 
OCOO 
6300 
6BC0 
6BC0 
4C80 



OBBl 
0B83 
0885 
OB 83 
0B85 
OB 84 
0830 

0A87 
0A44 
007F 
0876 
OABC 
0B77 
OB 84 

0885 



0645 
0C37 

0644 

0649 

0162 

0832 
0B20 



♦ DIAG TRIGGER STORAGE 

♦ 

DIAXl DC *-♦ DIAG WD 1 WAS 

DIAX2 DC *-* DIAG WD ? WAS 

TRWDl DC *-* DIAG 1 ERROR BITS 

TRW02 DC ♦-» DIAG 2 ERROR BITS 

TGWOl DC *-* F/ON ERROR WORD 

TGWD2 DC *-* ON/F ERROR WORD 

* 



WDICK LO 
SRT 
SLA 
SLT 
BSC 
MDX 
BSC 



I 



TRH02 

16 

16 

7 
Z 

WD2 
TRGAN 



W02 



LD 

AND 

STO 

LD 

EOR 

STO 

XIO 

LDX 

STX 

BSI 

LDX 

STX 

LDX 

STX 

LD 

STO 

LD 

STO 

LO 

STO 

LO 

AND 

STO 

LD 

STO 

LD 

STO 

BSI 

DC 

DC 

XIO 

LDX 

STX 

STX 

BSC 



DIAX2 

TRtlD2 

TGWD2 

TRW02 

TGWD2 

TGWDl 

BZON 
3 9 
L3 MSGNO 
L MSGIO 
L3 /007F 
L3 TABLE62 
L3 A0R3 
L3 TABLE63 
L TGMDl 

TABLEC9 
L TGM02 

TABLE&IO 

0IAX2 

TABLEC8 
L DI2AL 
L HASKl 

TABLEC7 
L DUAL 

TABLE&6 
L CAOSH 

TABLEK5 
I ERROR 

TABLE 

LOPRT 
L BZOFF 
3 

3 TGHOl 

3 TGMD2 

I TRGAN 



LO DIAG WD 2 ERR 



CHECK FOR ERR BIT ON 

MAKE ANALYSIS 

EXIT TO RETURN ADDR. 

LD DIAG WD 2 WAS 
AND DIAG WD 2 ERR 
STORE ON/F ERR 
LOAD DIAG WD 2 ERR 
EOR ON/F ERR BITS 
STORE F/ON ERR 
EXECUTE ALARM ON 



SET UP MESSAGE ID 
CHK WHICH MESSAGE 



q 
ID 



SET UP MODIFIER 
LD ALPHA 3 ADDR 



ID 



LD ON/F ERROR BITS 

LO F/ON ERROR BITS 

LO DIAG WD 2 S/B 

LD DIAG WD 2 WAS 
MASK OUT CE BITS 

LD DIAG WD I WAS 

LOAD OSW WAS 

GO PRINT ERROR 
MESSAGE TABLE 
LOOP ADDRESS 
EXECUTE ALARM OFF 



EXIT TO RETURN ADDR. 



0BC7 0000 
0BC8 6300 
0BC9 1 6F00 0B7C 



♦*****♦*****•**♦*♦«****♦♦♦**♦****♦♦**♦*»»♦*»* 

* INTERRUPT ANALYSIS 

* COMPARES SHOULD/BE INTERRUPTS WITH 

* ACTUAL INTERRUPTS AND ANALIZES ANY FRRS 

INTAN DC *-* SAVED RETURN ADD. 
LDX 3 
STX L3 TABLECa RESET INTRPT ERR LOC 



31816340 
31816350 
31R16360 
31815370 
31816380 
31816390 
31816400 
31816410 
31816420 
31816430 
31816440 
31816450 
31816460 
31816470 
31816480 
31816490 
31816500 
31816510 
31816520 
31816530 
31816540 
31816550 
31816560 
31816570 
31816580 
31816590 
31816600 
31816610 
31816620 
31816630 
31816640 
31816650 
31816660 
31816670 
31816680 
31816690 
31816700 
31816710 
31816720 
31816730 
31816740 
31816750 
31816760 
31816770 
31816780 
31816790 
31816800 
31816810 
31816820 
31816830 
31815840 
31816850 
31816860 
31816870 
31816880 
31816890 
31816900 
31816910 
31816920 
31816930 
31816940 
31815950 
31316960 
31816970 
31816980 
31816990 
31817000 
31817010 



r\n,rr>. 


1 


.'•FOO 


nK7D 




STX 


l^ 


TABI Ff.'^' 


opcn 


1 


C400 


0640 




1 




CADSW 


ABr p 


1 


P400 


one 




AND 




INTMK 


nmi 


1 


0401 


'^riA 




srn 




INKAS 


OR ^3 


1 


r4oo 


nBfiq 




10 




oswxx 


omr, 


1 


F40'1 


or.ir 




A\0 




IMTMK 


OBO? 


1 


0400 


OCIP 




STO 




INSDB 


nBDQ 


1 


1^400 


oriA 




roP 




INWAS 


OBO^ 





'-B20 






BSC 




7 


nRDC 





■'001 






MDX 




INFR'^ 


HBDO 





703F 




* 


fO\ 




CKIMT 


OP-IF 


I 


0400 


0CI9 


STO 


L 


FRIMT 


ORFO 


1 


C400 


on A 




LO 


L 


INWAS 


OOF? 


1 


F400 


OClQ 




ANO 


L 


PRINT 


0BF4 


1 


0400 


0R7r 




STP 


L 


TARLPf.P 


0BF6 


1 


r400 


on 9 




LO 


L 


PRINT 


OP eg 


I 


F400 


0B7C 




FOR 


L 


TARLFfia 


OB FA 


1 


0400 


OP 70 




STP 


L 


TABLPF.-> 


OBF'-, 





70O0 




* 
rKF°R 


wnx 




CKFRO 


OBEH 


1 


C4ao 


0B7C 


LO 


L 


TABLES^ 


OBFF 





48?0 






BSC 




Z 


OBFO 





7005 






MOX 




INTPR 


OBF I 


1 


r,4oo 


0B7n 




LO 


L 


TABLE5Q 


nBF3 





4R?0 






psr. 




7 


0BF4 





7001 






"OX 




IMTFR 


0OF5 





70'7 




* 
INTF" 


MOX 




OKI NT 


OBF(S 


1 


OCOO 


OdO 


xin 


L 


BZON 


OBFB 





6300 






I ox 


3 





0BP9 


1 


fiFOO 


OA87 




SIX 


L3 


MSGNO 


OBFB 


1 


6roo 


04B6 




STX 




INTSW 


OBFO 


1 


4400 


0A44 




RSI 




MSGIO 


OBFF 





ft35F 






L[)X 


3 


/005F 


OCOO 


I 


6F00 


OP, 76 




STX 


L3 


TABLE&? 


oro? 


1 


6700 


0An6 




LOX 


L3 


A0R4 


oro4 


I 


6F00 


OR 77 




STX 


L3 


TABLEF.? 


or 06 


1 


C400 


0645 




LO 




0I2AL 


0C08 





P0?F 






ANO 




MASKl 


0C09 


1 


D400 


0P7A 




srn 




TABLFC6 


OCOB 


1 


C400 


0644 




LI) 




DUAL 


ocon 


I 


040O 


Ofl79 




STO 




TABLEC5 


OCOF 


I 


C400 


0649 




LD 




CADSW 


OCll 


I 


0400 


0B7P 




STO 




TARLF£,7 


0C13 





44R0 


0167 




BSI 




ERROR 


0C15 


I 


0R74 






or 




TAPLF 


or 16 


1 


0B14 






oc 




LDPRT 


0C17 


1 


4^0 


0BC7 


;|r 


RSC 


I 


INTAM 


OCIP 





0000 




tPINT 


DC 




*-* 


OCIA 





0000 




iNwa<; 


r»c 




*-* 


OCIR 





0000 




INS OR 


oc 




*-♦ 


one 





D800 




IKJT«1K 


oc 




/OROO 


ocin 


1 


C400 


0644 


CKIMT 


I 




LOPSW 


oriF 





4B?0 






psr. 




z 


or ?n 


n 


7007 






"OX 




INTPK 


or. 7 1 


1 


4rBr 


0HC7 




BSr 




INTAN 


0C?3 


1 


C400 


064B 


I NT OK 


m 




PRTP"! 


or?s 





4B70 






BSC 




Z 


0C26 





70FA 






MOY 




CKINTF.4 


or?7 





6 3 OP 






LOX 


3 


11 


0C:>B 


1 


6F00 


0R74 




STX 


1 3 


TABLE 


OC?A 


I 


OCOO 


0B30 




xin 




BZON 


oc?c 





70D2 






MOX 




INTERS" 



RPSFT INTRPT EPR LOC 
LO ns»* WAS 
MASK INTRPT BITS 
STr^T INT BIT WAS 
LPAO OSW S/"' 
MASK INTRPT BITS 
STOPF INT BIT S/P 
CHECK FOP ERROR 

GO TO TNT ERR ANAL. 
CK FOR NO INTRPT 

SAVF INT FRR PITS 
LO INTRPT DSW WAS 
ANO IMT ERROR BITS 
LD INT PRR ON/F BITS 
LO INT ERROR BITS 
FOR INT ON/F FRRHR 
STORF INT F/ON FRROR 



CHK IF IT IS 

PRR BITS ARE LOAOFO 

CHK IP IT IS 

NO F<R BITS LOAPCO 

FXEriJTF ALARM ON 



T'JRN ON INT MSr, SW 
CHK WHICH MSG 10 

SFT UP MnOIFIFR 10 
LPAO ALPHA 4 AOORPSS 
SET UP ALPHA MSR 
LD 01 AG WD 2 WA": 
MASK OUT CE BITS 

in 01 AG WO 1 WAS 

LPAO OSW WAS 

GO PRINT ERROR 
MESSAGE TABLE 
LOOP ADDRESS 
eXI T TO RETURN 

INTERRUPT ERR PITS 
OSW INT BITS WAS 
DSW INT BITS S/R 



THK IF INTERRUPT S/" 

YES, PXIT TO RPTURN 

CHK IF INTERRUPT WAS 

YFS, EXIT TO RETDRnI 
NO, SFT "SG in P 

EXECUTE ALARM ON 
GO SET UP ERR TA^LE 



31R17020 
31B17030 
31817040 
31B17050 
31817060 
31817070 
31817080 
31817090 
31817100 
31R17110 
31817120 
31817130 
31817140 
31817150 
31817160 
31317170 
31917180 
31817190 
31817200 
31817210 
31817220 
31817230 
31817240 
31817250 
31317260 
31817270 
319172R0 
31817290 
31817300 
31817310 
31817320 
31817330 
31817340 
318173 50 
31817360 
31817370 
31817380 
31817390 
31817400 
31817410 
31817420 
31317430 
31817440 
31817450 
31817460 
31817470 
31817430 
31817490 
31817500 
31317510 
31317520 
31317530 
31817540 
31317550 
31817560 
31817570 
31817580 
31817590 
31317600 
. 31317610 
31317620 
31817630 
31317640 
31817650 
31817660 
31317670 
31 317680 
31817690 
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♦•♦**♦*•♦*♦♦*♦♦♦***♦**♦•*♦♦*♦♦*♦♦*♦*•♦»♦♦♦**« 
♦ CONSTANTS 

* 



0C20 





OEOO 


0C2E 





1000 


0C2F 





ElEE 


00 30 





1080 


0C31 





AlEE 


0C32 





A4EE 


0C33 





7580 


0C34 





0500 


0C35 





0580 


DC 36 





E4EC 


0C37 





FCOO 


DC 38 




0000 


0C38 


1 


OCOO 


0C3* 





1000 


0C3B 





1000 


0C3C 





0001 


0C30 





0000 


0C3E 





1000 


0C3F 





1000 


0C40 


1 


6C00 


0C*2 





1000 


0C43 





1000 


0C44 


1 


6CO0 


DC 46 





0001 


bc*7 





0000 


0048 





1000 


0C49 





1000 


0C4A 


1 


&C00 


0C4C 





0001 


0C4D 





0000 


0C4E 





1000 


0C4F 





1000 


0C50 


1 


6C00 


0C52 





0001 


0C53 





0000 


0C54 





1000 


0C55 





1000 


0C56 


1 


6C00 


ocsa 





0001 


0C59 





0000 


OCSA 





1000 


0C5B 





1000 


0C5C 


1 


6C00 


0C5E 





1000 


0C5F 





1000 


OC60 


1 


7401 



08A6 



064A 



064A 



064A 



064A 



064A 



064A 



09F5 



K0800 


DC 




/OEOO 


KIOOO 


DC 




/lOOO 


KEIEE 


DC 




/ElEE 


K1080 


DC 




/1080 


KAIEE 


OC 




/AlEE 


KA4EE 


DC 




/A4EE 


K75 80 


DC 




/7580 


K0500 


DC 




/0500 


K0580 


nc 




/0580 


KE4EC 


DC 




/E4EC 


MASKl 


DC 




/FCOO 




BSS 


E 





STROl 


XIO 


L 


RESET 


BISOl 


NOP 
NOP 






STR02 


DC 




1 


BIS02 


DC 







STR03 


NOP 
NOP 






BIS03 


SIX 




LOPSW 


STR04 


NOP 
NOP 






BIS04 


STX 




LOPSH 


STR05 


DC 




1 


BIS05 


DC 







STR06 


NOP 
NOP 






BIS06 


STX 




LOPSW 


STR07 


DC 




1 


BIS07 


DC 







STR08 


NOP 
NOP 






BIS08 


STX 




LOPSW 


STR09 


OC 




1 


BIS09 


DC 







STRIO 


NOP 
NOP 






BI510 


STX 




LOPSH 


STRll 


OC 




1 


BISU 


DC 







STR12 


NOP 
NOP 






BIS12 


STX 




LOPSW 


STR13 


NOP 

NOP 






BIS13 


MDX 




MKSW3,1 



CONSTANT 
CONSTANT 



1000 



CE BIT MASK 



EXECUTE RESET 



TURN ON INTRPT EXPCT 



TURN ON INTRPT EXPCT 



TURN ON INTRPT EXPCT 



* THE FOLLOWING ARE PROGRAM MODIFICATIONS 

* FOR SIR OR BI SYN WHICH EVER IS SPECIFIED 

* BY PROGRAM OPTION SWITCH 



LO STR PROG MODIF 01 
STORE IN MODOI 
LD STP PROG MODIF 02 
STORE IN MOD 0? 



OC62 





0000 


STR OC 




*-♦ 


0C63 




CCOO 


0C38 


LDD 




STROl 


0C65 




DCOO 


0634 


STO 




MODOI 


0C67 




C400 


0C3C 


LO 




STR02 


0C69 




D400 


086D 


STO 




MOD 02 


0C6B 




CCOO 


0C3E 


LDD 




STR03 


0C6D 




OCOO 


0872 


STO 




M0D03 


0C6F 




CCOO 


0C42 


LDD 




STR04 


0C71 




DCOO 


08CA 


STO 




M0D04 


OC73 




C400 


0C46 


LO 




STR05 


0C75 




0400 


0808 


STO 




MOD05 


0C77 




CCOO 


0C48 


LDD 




STR06 


0C79 




DCOO 


08DC 


STO 




M0D06 



31817700 
31817710 
31817720 
31817730 
31817740 
31817750 
31817760 
31817770 
31817780 
31817790 
31817800 
31817810 
31817820 
31817830 
31817840 
31817850 
31817860 
31817870 
31817880 
31817890 
31817900 
31817910 
31817920 
31817930 
31817940 
31817950 
31817960 
31817970 
31817980 
31817990 
31818000 
31818010 
31818020 
31818030 
31818040 
31818050 
31818060 
31818070 
31818080 
31818090 
31818100 
31818110 
31818120 
31818130 
31818140 
31818150 
31818160 
31818170 
31818180 
31818190 
31818200 
31818210 
31818220 
31818230 
31818240 
31818250 
31818260 
31818270 
31818280 
31818290 
31813300 
31818310 
31819320 
31818330 
31818340 
31818350 
31818360 
31818370 



0C7B 




C400 


0C4C 


LD 




STR07 




31818380 


OCTO 




D400 


0BF2 


STO 




M0007 




31818390 


0C7F 




CCOO 


0C4E 


LOD 




STR08 




31818400 


0C81 




OCOO 


OBFft 


STD 




MODOB 




31818410 


OCR 3 




C400 


0C5? 


LD 




STR09 




31818420 


0CP5 




0400 


0905 


STO 




MP009 




31818430 


0CB7 




CCOO 


ncs4 


LDD 




STRIO 




31818440 


0C89 




OCOO 


090A 


STO 




MHOIO 




31818450 


0C8B 




C400 


0C58 


LD 




STRll 




31818460 


OCBO 




0400 


0940 


STO 




MOO 11 




31818470 


0C8F 




CCOO 


0C5A 


LDD 




STR12 




31818480 


0C91 




DCOO 


0954 


STD 




MOD 1 2 




31818490 


0C93 




CCOO 


0C5E 


LDD 




STR13 




31818500 


0C95 




ncoo 


0958 


STO 




MaD13 




31818510 


nC97 




C400 


ORRA 


LO 




oswo? 




31818520 


0C99 




D400 


08RE 


STO 




DSW04 




31818530 


nCPB 




C400 


0C34 


LD 




K0500 




31818540 


0C9n 




0400 


0894 


ST3 




DSW07 




31818550 


0C9F 




C400 


0C35 


LD 




K0580 




31818560 


OCAl 




0400 


0896 


STO 




oswoa 




31818570 


orA3 




C4on 


OC?F 


LD 




KEIEE 




31818580 


0CA5 




0400 


089B 


STO 




DIAIO 




31818590 


0CA7 




C400 


0C35 


LD 




K0580 




31818600 


0CA9 




0400 


089C' 


STO 




DSWU 




31818610 


OCAB 




C400 


0C36 


LD 




KE4EC 




31818620 


OCAO 




D400 


0R9D 


STO 




DIAII 




31818630 


OC&F 




C400 


0C2D 


LO 




K0800 


LOAD DELAY CONSTANT 


31818640 


OCPl 




0400 


09 9C 


STO 




DLYSl 


PUT IN DELAY RTN 


31818650 


0CB3 




4CR0 


0C6? 


BSC 
* 




STR 


RETURN 


31818660 
31818670 
31818680 
31818690 


0CB5 





0000 




BISYN DC 




*-* 




31818700 


0CB6 




CCOO 


0C3A 


LOD 




BISOl 


LD 31 SYN PROG MOD 1 


31818710 


0CB8 




DCOO 


0634 


STD 




MODOI 


STORE IN MODOI 


31818720 


OCBA 




C400 


0C3n 


LO 




BI502 


LD BI SYN PROG MOD 2 


31818730 


OCBC 




0400 


0860 


STO 




MnD02 


STORE IN Ma002 


31818740 


OCBE 




CCOO 


0C40 


LDD 




BIS03 




31818750 


ncco 




OCOO 


087? 


STO 




M0003 




31818760 


0CC2 




CCOO 


or 44 


LDD 




RIS04 




31818770 


0CC4 




DCOO 


08CA 


STD 




M0004 




31818780 


OCCiS 




C400 


0C47 


LO 




BIS05 




31818790 


ores 




D400 


0R08 


STO 




M0D05 




31818800 


OCCA 




CCOO 


0C4A 


LOD 




BIS06 




31818810 


occc 




OCOO 


08DC 


STD 




M0D06 




31818820 


OCCE 




C400 


0C4D 


LD 




BIS07 




31818830 


OCDO 




0400 


08F2 


STO 




M0007 




31818840 


0CD2 




CCOO 


0C50 


ion 




RIS08 




31818850 


0C04 




OCOO 


0RF6 


STD 




M0D08 




31818860 


OrD6 




C400 


0C53 


LD 




BIS09 




31818870 


ocoa 




0400 


0905 


STO 




M0009 




31818880 


OCDA 




CCOO 


or 56 


LOO 




BISIO 




31818890 


ncDC 




OCOO 


090A 


STO 




MODIO 




31R18900 


OCOE 




C400 


or 5 9 


LO 




PISH 




31R18910 


OCFO 




0400 


0940 


STO 




MOO 11 




31R18920 


0CE2 




CCOO 


nrsc 


LOO 




BIS12 




31818930 


0CE4 




OCOO 


0954 


ST3 




MODI? 




31813940 


orF6 




CCOO 


orf>o 


LOO 




BIS13 




31R1R950 


OCEB 




OCOO 


095R 


STO 




MOD 13 




31818960 


or. FA 




C400 


or 30 


LO 




K1080 




3181R970 


or.FC 




0400 


OSRE 


Sin 




OSWO^t 




31R18980 


ncEt 




C400 


OO^O 


LO 




DSW05 




31818990 


ncFO 




0400 


OHIi, 


STO 




0SW07 




31819000 


nCF2 




C400 


0R92 


LO 




DSW06 




31819010 


0rF4 




0400 


0R96 


STD 




OSWOR 




31819020 


0CF6 




C400 


0C3! 


ID 




KAIEE 




31819030 


OCFR 




0400 


0090 


STn 




DFAIO 




31R19040 


OCFA 




C400 


0C33 


LO 




K75R0 




31319050 
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224356 "5 

15A 



OCFC 




0400 


089C 


OCFE 




C400 


0C32 


0000 




D400 


0890 


0D0 2 




C400 


0C2E 


0004 




D400 


099C 


0006 




4C80 


0CB5 



STO 




OSWll 


LO 




KA4EE 


STO 




DIAll 


LD 




KIOOO 


STO 




DLYEl 


RSC 




BISYN 



0008 

NO 



05F6 



LOAD DELAY CONSTANT 
PUT IN DELAY RTN 
RETURN 



END BEGN LAST STATEMENT 



31819060 
31819070 
31819080 
31819090 
31819100 
31819110 
31819120 
31819130 
31819140 



STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 



AORl 

ADR? 

A0R3 

Ar)R4 

AnR5 

ANALl 

ANAL? 

ANLOl 

ANL07 

A 1 1 OG 

PPnlN 

PFGN 

«ISYN 

RISOl 

niS02 

niS03 

8IS04 

BIS05 

BIS06 

RIS07 

Bisoa 

BIS09 

BISIO 

BISll 
BIS12 
PTS13 

■^ZOFF 

BZON 

BILOG 

CAOSW 

CHOLY 

CKERR 

CKINT 

CKIT2 

CKIT4 

CKOPT 

CLLOG 

CNTRL 

CN?n 

CN30 

CONAN 

CILOG 

nFLY3 

01 AG 

OIAMD 

DIASW 

OIAWD 

DIAWl 

DIAW? 

DIAXX 

niAXl 

OIAX? 

DIAOl 

oiao? 

DIA03 
DIAn4 

oiAc; 

DIA06 
01A07 
DTA08 
OIACI 
OIAIO 
DIAll 
DIA12 
0IA13 
0IA14 
DIA15 
DISAB 



OASfl 
0AA2 
OAflr 
OADfi 
OAPn 

09BA 
09C7 
09C3 
09r>o 

07C3 
0160 
05F6 
OCBS 
0C3A 
0C3D 

or 40 

0C44 
0C47 
0C4A 
0C40 
0C5O 
0C53 
0C56 
0C59 
0C5C 
0C60 
0832 
0830 
07C7 
0649 
099 A 
OBEO 

ocin 

0B67 
0901 
06r5 
0739 
065B 
n66A 
0674 
09A1 
07CR 
05FA 
097A 
076A 
09AB 
0642 
0647 
064 8 
OflBP 
OBRO 
OPfll 
0^89 
08RP 
088D 
088F 
0B°1 
0RQ3 
0895 
0897 
0899 
089B 
0890 
0«9F 
08A1 
08A3 
08A5 
08AA 



OAIC 
0B46 
OBAS 
OCO? 
074E 
09R1 
09B6 
O^Cl 
090 7 
0790 
05F6 
OO08 
06E7 
0CB6 
OCBA 
OCBF 
OCC? 

ore 6 
OCC A 
OCCE 
ocnz 

OCOft 
OCOA 
OCDF 
0CE2 
0CE6 
0698 
0693 
07A7 
0640 
096B 
OBEC 
OBOO 
0R39 
09E2 
068C 
073F 
0821 
065E 
0663 
0659 
07B1 
05FB 
0997 
06CF 
76B 
0654 
060A 
0600 
0802 
07F0 
OB?B 



09C5 

0OC2 
09nP 



0006 



0736 0750 07E1 0845 085S 0A3F OBIC 0B61 OPCO 

0731 0758 0840 0840 OAl 1 0B3P 0B9A 0BF6 0C2A 

09BB 09F0 OAOl 0A05 0A2C 0B5A 0BB9 OBCD OCOF 

0980 099F 

0BF5 0C26 

09F8 09FE 

06FO 07^F 0814 



06F2 076 7 073C 0810 

076F 

080A 09A5 

07F2 0901 0900 09E0 09F3 09F6 09E9 09EC 0A45 

062C 063F 

0629 0640 

09A8 0903 0B21 

0827 0B50 0B67 

0B8F OBAF 



0CA5 nCF8 
OCAD 0000 



0865 0868 
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DUAL 

0I2AL 

OLY 

OLYTM 

DSMAL 

nSWAN 

DSWRO 

DSWSE 

DSWSN 

DSMMl 

DSWH2 

DSWXX 



DSWOl 

0SU02 

DSW03 

DSW04 

DSW05 

DSW06 

DSH07 

DSWOS 

0SH09 

DSWIO 

OSHll 

DSW12 

0SW13 

DSW14 

DSH15 

OTNKl 

DTMK2 

DTMK3 

DTNKA 

DILOG 

ENABL 

END 

ENOOP 

END02 

ENMSG 

ERINT 

ERLCK 

ERROR 

EXtNJ 

EILOG 

FASTI 

F*ST2 

FSTCK 

ICHAR 

IDRTN 

ILO 

ILl 

IL2 

IL3 

IL4 

INERR 

INSDB 

I NT AN 

INTER 

INTID 

INTMK 

INTOK 

INTR 

INTSH 

INWAS 

KAIEE 

KA4EE 

KEIEE 

KE4EC 



0644 
0645 
099B 
0824 
0646 
0A04 
09AE 
063A 
063C 
0A42 
0A43 
08B8 



0B88 

088A 

088C 

088E 

0890 

0892 

0894 

0896 

0898 

089A 

089C 

089E 

08A0 

0SA2 

08A4 

09FD 

0900 

09E3 

09E9 

0700 

08A8 

0164 

082E 

09FB 

0684 

0C19 

0166 

0162 

0638 

0703 

0T7B 

078A 

06C4 

0930 

0A6A 

0I7A 

OIBA 

019A 

OlAA 

OIBA 

OBOE 

OCIB 

0BC7 

0BF6 

0A85 

OCIC 

0C23 

062 3 

0A86 

OCIA 

0C31 

0C32 

0C2F 

0C36 



060B 

060E 

OCBl 

0620 

0606 

09C3 

09BF 

0605 

0619 

07F7 

OAOF 

0800 

0884 

0934 

0838 

0858 

085D 

086E 

08C0 

08D2 

08C7 

0809 

0932 

093B 

094E 

096.1 

096F 

0982 

0991 

09FA 

09CA 

09C0 

09D0 

07BB 

085F 

069A 

089A 

0A03 

0672 

OBOE 

05EA 

0A3A 

0632 

0793 

060E 

0786 

06FE 

0922 

0A5B 

070C 



060C 0620 062E 0653 0A36 0B52 0BB6 OCOB 

060F 062A 062B 064E 0A30 0B55 OBBl 0C06 

0004 

0636 082A 08C0 08DF 08F9 090F 095B 

0607 0625 0626 064C 

0A40 

0A07 OAOR 

0624 

0A09 OAOD 0A20 

0A24 

0839 083F 0844 0849 0851 0859 085E 0864 086P 086F 0878 087E 

OBRC 08G1 08C8 08D3 08DA 08E5 08EO 08F4 08FF 0908 0917 091D 

0930 0946 0950 0963 0971 097A 0984 0993 09A1 09B0 0A28 0B03 

083E 0843 0848 0850 0863 0868 0877 0870 0883 08BB 0915 091B 

0C97 

0C99 OCEC 
08FE OCEE 
0nE4 08EC 0CF2 
0906 OC90 OCFO 
08F3 OCAl 0CF4 

0944 
0CA9 OCFC 

0978 



0B6A 

0937 0969 098B 

0689 
0BE2 0BE6 

OB 50 OBBC 0C13 



0788 078E 

0790 

06FF 0780 0782 

0A7A 0A7C 0A7E 



OBOC 

0BD7 

0657 0A68 0C17 0C21 

OBFO 0BF4 0C2C 

0A66 0A6A 0A6D 0A71 

OBCF 0BD5 

0C20 

0638 07DA 

0A5A 0A67 0A72 08FB 

OBOl 0B09 OBEO 

0CF6 

OCFE 

0CA3 

OCAB 



KOOOl 
K0500 
K0580 
K0800 
KIOOO 
K1090 

LOCK 

LOG 

LOGBY 

LOGOl 

LOG02 

LOGIA 

LOGIB 

LOGIC 

LOGID 

LOG IE 

LOGll 

L0G12 

LOG 13 

L0G14 

L0G15 

LOOP 

LOOPE 

LOPRT 

LOPSW 

LRTN 

MASKl 

MASK2 

MASK3 

MASK4 

MASK5 

MASTR 

MIDI 

MI03 

MKSWl 

MKSW2 

MKSW3 

MLSCF 

Monoi 

Mn002 
M0003 
M0D04 

Mnno5 
Mnno6 

M0D07 
MP DO 8 

Mnn09 

MOO 10 
MOO 11 
MOD 12 

Mnoi3 

MSGGO 

MSGID 

MSr-NO 

NMSG 

NOPNT 

NORST 

NOTRM 

OFF 

OFFl 

0FF2 

0FF3 

0FF4 

0FF5 

0FF6 

OPRTN 



06C3 
0C34 
6C35 
0C2n 
0C2E 
0C30 
0C33 
05E7 
0163 
0167 
0727 
0748 
0AF6 
0AF8 
OBOO 
0B05 
0B08 
0791 
079B 
07A5 
07AF 
07B9 
05F5 
0823 
OBIA 
064A 

06B0 
0C37 
09EF 
09F0 
09F1 
09F2 
08B? 
0A7B 
0A7D 
09F3 
09F4 
09F5 
05E5 
0634 
0860 
0872 
08GA 
0808 

oeoc 

08F2 
08F6 
0905 
090A 
0940 
0954 
0958 
0A52 
0A44 
0A87 
OBOO 
06F3 
0770 
0A7F 
07F0 
07E9 
07EB 
07ED 
7F2 
07F7 
07FC 
06F9 



06Fn 0701 

0C9B 

0C9F 0CA7 

OCAF 

0771 081? 0D02 

OCEA 

OCFA 

05ED 05^3 081'. 

0695 0733 075A 



077E 0784 



0746 

0727 

0739 

07B3 

07BP 

0795 

070E 

0713 

0718 

0710 

0722 

05EF 

0818 

0A30 

0630 

0C40 

06BE 

0A32 

09FF 

09DF 

09E5 

09FB 

0BC4 

0A78 

0A64 

0804 

0806 

0808 

0612 

0633 

0C69 

0870 

08C9 

0C75 

08DB 

0C7D 

08F5 

0C85 

0909 

0C8D 

0952 

0957 

0A82 

0A16 

0A14 

068C 

0747 

0603 

0A50 

09A6 

07nE 

07E8 

07F0 

07F5 

07FA 

07FF 

0704 



074D 

073B 079F 
07A9 



0798 07^9 

07A2 07A3 

07AC 07AD 

07B6 07B7 

07CO 07C1 

05FI 067A OBIB 

081A OBIA 

0B60 OBBF 0C16 

08C? 08D4 OaE6 08EE 0900 093F 0948 0973 097C 0995 0A5D OCIO 

0C44 0C4A 0C50 OC56 0C5C 

0P57 0BB3 OCOB 



OeCC OSES 0902 090C 



0965 09C8 09F7 

0986 09CB 

09CE 0C60 

067C 

0C65 0CB8 

OCBC 

0C6D OCCO 

0C71 0CC4 

0CC8 

0C79 OCCC 

OCDO 

0C81 0C04 

0C08 

0C89 OCOC 

OCEO 

0C91 0CE4 

0C<»5 0CE8 

0A73 0B40 0B9F OBFO 
0A6C 0A7F 0B3E 0B90 0BF9 

075F 
0777 0779 

0988 
07F5 
OB IE 



0765 0769 
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PID 

PNDCK 

PRTPN 

RAO 

RCVEO 

RDCAT 

RDIAl 

R0IA2 

RESET 

RID 

RIDCK 

RLCF 

RQKB 

RQTY 

RSOFF 

RSTNO 

RSTSW 

RTNGO 

RTNSW 

RTNTO 

RTTBL 

RTOA 

RTOB 

RTOC 

RTOO 

RTOE 

RTOF 

RTOl 

RT02 

RT03 

RTO* 

RT05 

RT06 

RT07 

RT08 

RT09 

RTIA 

RTIB 

RTIC 

RTlb 

RTIE 

RTIF 

RTIO 

RTll 

RT12 

RT13 

RTl* 

RT15 

RT16 

RT17 

RT18 

RT19 

RT20 

RT21 

RT22 

SAVE I 

SCOPE 

SCOPl 

SCOP 2 

SENO 

SET6 

SET7 

SIREG 

SLAVE 

SNDSW 

SPACE 

SRVSN 



05DC 
0A75 
064B 
05DE 
08B6 
08B0 
063E 
0640 
08A6 
05D0 
06BE 
0168 
OIBC 
OIBB 
07E6 
0834 
070F 
0860 
0165 
091F 

069C 
086E 
0877 
0870 
0883 
OBBB 
08C0 
0836 
083E 
0843 
0848 
0850 
0858 
0850 
0863 
0868 
0932 
093B 
0944 
094E 
0961 
095F 
08C7 
0802 
08D9 
0SE4 
08EC 
08F3 
08FE 
0906 
0915 
091B 
0978 
0982 
0991 
06C1 
06FB 
0761 
0766 
08B7 
092C 
092E 
0922 
08B4 
064C 
0A84 
09F6 



05F8 

0A60 

062F 0A61 0A75 0C23 

0678 06FB 077C 

OBBO 

08BD 

0608 0627 

0609 0628 
061E 0836 0C38 

0660 0668 066A 066F 0674 068A 0708 
0662 0671 



0606 
061A 
06C1 
083C 
067E 
08BE 
094C 
0676 
06 A 5 
06A6- 
06A7 
06A8 
06A9 
06AA 
069C 
0690 
069E 
069F 
06A0 
06A1 
06A2 
06A3 
06A4 
06B5 
06B6 
06B7 
06B8 
06B9 
06BA 
06 A B 
06AC 
06AD 
06AE 
06AF 
06B0 
06B1 
06B2 
06B3 
06B4 
06BB 
06BC 
06B0 
0605 
06F8 
0702 
0764 
08AE 
091E 
0918 
087F 
08D6 
0622 
0A81 
0655 



0609 0773 0775 

080C 084C 0854 

07E3 07E6 07EA 0810 083A 084A 0852 0A40 

0841 0846 084E 0856 085B 0866 086C 0875 087B 0B81 0886 

08C5 0800 0807 08E2 08EA 08F1 08FC 0904 0913 0<)I9 OOBP 0942 

095F 0960 0976 0980 098F 

06BE 



081F 



0608 



094A 0956 0967 097E 
08DE 08E9 



09FB 
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START 
STORl 

STOP? 

STR 

<;TRn 

STOT 
STRWR 
STROl 
STR02 

«;TRn3 

STROA 
STROS 
STR06 
STR07 
STR08 
STR09 
STRIO 
STRll 
STPl? 
STR13 
STST 

STwn 

SVKR 
SWO 
SWl 
SW? 

<;w3 

SYNCH 
S2PNT 
S?WAS 
S3PNT 
S3MAS 
TA8LF 



TFRM 

TERMl 

TFRH2 

TFRM3 

TERM4 

TGWOl 

TGwnz 

TMOLY 
TRGAN 
TRGWD 
TRWOl 
TRWD2 
WAITR 
WAITI 
WAIT3 
WCNT 

wni 

WDICK 
W02 
WRCAT 
FNO OF 



0161 
CAF 
b9B5 
0C6? 
09?4 
70 7 
09'6 
0C3P 
0C3C 
0C3E 
0C4? 
nC46 

ocAa 

0C4C 
0C4E 
0C52 
0C54 
0C5R 
0C5A 
OCSF 
OBAC 
09An 
OIBD 
050F 
05F0 
05E1 
05F2 
09?a 
0705 
06BF 
0741 
04C0 
0B74 



0AB3 
0A9D 
0AB7 
OAOl 
OAEB 
0884 
0BB5 
082C 
0B20 
09AC 
0BR2 
0B83 
0616 
0505 
05FB 
05F9 
0B3B 
0BB6 
OBflE 
GRAF 
ASSF" 



0614 
n9A3 
09AA 
06EC 
OBFO 
05F3 
0975 
OC63 
0C57 
0C6B 
0C6F 
0C73 
0C77 
0C7B 
0G7F 
0C83 
0C87 
OC<^B 
0C8F 
or 9 3 
0874 
OQBO 

05F8 
065C 
05F0 
066 D 
0941 
06CA 
06Cf. 
06F2 
06EE 
0686 
075C 
0B48 
0B85 
0C09 
0A51 
0A52 
0A54 
0A56 
0A58 
0B4A 
0B4D 
0826 
0909 
07FC 
0B32 
0B36 
0610 
0601 
0860 
05FC 
Oe73 
0B3A 
0R8B 
0P85 
BLY 



06ft? 
09B3 

0CB3 
08Fa 
05E4 
OOTF 



0903 090E 0936 

0'^E5 

O^SP 



03 79 
09P5 



0666 
06C7 
06FF 
094B 
070A 
r7?6 

06F5 
06 8E 
OAIA 
0B4C 
OPRR 
OCOO 



0R64 
0B65 
0827 
0B8C 
0905 
0B37 
0B86 
0610 
0618 
091F 
0602 

0P66 

0989 



087A (18CF 08F1 OSFB 0911 0950 



06CB 0600 060fi 06F4 06E9 070B 0710 0715 071A 071F 0724 
06F3 0741 0761 
095A 0968 



074? 

06^1 0697 0707 0729 072C 07?F 0735 074A 0750 0753 0756 

OAIE 0A22 0A26 0A2A 0A2E 0A34 OA38 0A3C 0A4R 0A6E 0R44 

0R4F 0351 0B54 0B59 0B5C 0P5F 0B43 0PA7 OBAB OBAE OBRO 

OBBR OBBE 0BC9 OBCR 0BF4 OBE« OBFA OBFO OBFl OCOO 0C04 

OCll 0C15 0C2« 



0B71 0B98 0BA9 0BC3 

0B6B 0B6F 0B92 0B96 OBAC OflC4 

0BC5 
0B2C 

0B69 0B6D 
0B90 0894 



0998 
0604 0616 
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1. PURPOSE 

THE PURPOSE OF SCA WRT/RO BFR AND LINE NOISE DETECTION PROGRAM, IS TO CHECK 
THE SCA BUFFER FOR PROPER WRITE/READ OPERATION, AND MONITOR THE PHONE-LINE 
FOR UNDESIRABLE NOISE WHICH WILL CAUSE PROBLEMS IN THE SCA OPERATION. 

2. PREREQUISITES 

2.1*** PROGRAM PREREQUISITES 

THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR. THE 
DIAGNOSTIC MONITOR USES 1.5 K STORAGE WORDS AND THIS PROGRAM USES 
1.5 K STORAGE WORDS. 

2.2*** EQUIPMENT PREREQUISITES 

1. SET DATA TERMINAL SWITCH IN THE OPERATE POSITION. (SEE NOTE) 

2. SET STR SWITCH TO STR POSITION. 

3. SET C.E. MODE SWITCH TO OFF POSITION. 

4. SET SCA ALARM SWITCH TO ON POSITION. 

5. SET BAUD SELECTOR SWITCH TO 600, 1200, 2000, 2400 OR 4800. 

NOTE 1..IF A DIAL-UP DATA SET IS NOT IN USE, INSTALL A JUMPER 
FROM J4002 TO J4008. REMOVE THIS JUMPER TO MAKE DATA 
SET READY AND EXECUTE ROUTINE 5. 



3. OPERATING PROCEDURE 

THESE OPERATING PROCEDURES APPLY TO SINGLE PROGRAM OPERATION ONLY. FOR 
OVERLAP OPERATION REFER TO SECTION 3.2.3 OF THE 1130 DIAGNOSTIC MONITOR 
II DOCUMENTATION. 

3.1*** PROGRAM LOADING 

STANDARD MONITOR LOADING PROCEDURES APPLY. 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DETAILS. 

1. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 

2. SET BIT SWITCH 15 OFF - LOAD AND GO 

ON - TO SPECIFY OPTIONS BEFORE RUNNING. 

IF HALTED AFTER LOADING, SELECT PROGRAM 
OPTIONS THEN TURN OFF HALT SWITCH OR 
FOLLOW NORMAL RESTART PROCEDURE (SECTION 
3.5). 

3. LOAD DIAGNOSTIC MONITOR AND SCA WRT/RD BFR, LINE NOISE. 

4. SELECT PROGRAM OPTIONS, IF DESIRED. 

3.2*** PROGRAM OPERATION. 

STANDARD MONITOR OPERATING PROCEDURES APPLY. 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DETAILS. 

3.2.1 PROGRAM CONTROL - FUNCTION 

1. SET SWITCHES 0-1 OFF. 

2. SET SWITCHES 0-7 TO 01. 



SW 



FUNCTION 



8 
9 
10 
11 
12 
13 
14 
15 



RESTART 

ROUTINE START MESSAGE 

LOCK ON FUNCTION 

LOOP PROGRAM 

LOOP ON ERROR 

BYPASS ERROR PRINTOUT 

HALT ON ERROR 

HALT 



PRESS INT REO KEY ON CONSOLE. 
** 
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3.2.2 ROUTINE SELECTION - FUNCTION 1 

THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED. 

1. TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TO 41. 

B. SET ROUTINE NUMBER IN SWITCHES 10-15. 



3.3.2 ERROR HALTS 



RTN 



DESCRIPTION 



1 PROGRAM RESET 

2 END OP 

3 ONES/ZERO BUFFER TEST 

4 FLOATING BIT PATTERN BUFFER TEST 

5 LINE NOISE LISTENING TEST 



THIS OPTION HILt BE USED TO TROUBLE SHOOT FAILURES. 

C. PRESS INT REG KEY ON CONSOLE. 
2. TO RESET ROUTINE SELECTION SET AS IF SELECTING ROUTINE ZERO, 
3.3*** PJtOGRAH HALTS 
3.3.1 NORMAL HALTS 



•HALT NO 
-IB REG) 


DESCRIPTION 


RESTART I 
ACTION 


. 3001 
. 3002 . 


PROGRAM STOP OR ADDRESS STOP . 
HALT ON ERROR 


PRESS START 

DISPLAY MODE-PRESS STARt! 
RUN MODE-PRESS START 




• 





** 



-HALT NO 
.(R REG) 


DESCRIPTION 


RESTART l 
ACTION 


. 30F1 
. 30F? 
. 30F3 
. 30F4 

. 30F5 . 

. 30F6 ! 
. 30F7 . 

. 30F8 . 
. 30F9 '. 

. 30FA '. 


CHECK SUM ERROR ON FIRST 
CARD OF LOADER 

READER DSW ERROR WHEN 
LOADING LOADER 

CARD 2 OF LOADER DID NOT 

LOAD 

CAN NOT CLEAR CORE - DUE TO 
ERROR IN ADDRESSING UPPER 
CORE. 

READER CHECK WHEN LOADING- 
MONITOR OR TEST PROGRAM 

MONITOR DID NOT LOAD ', 

CHECK SUM WHEN LOADING '. 
MONITOR 

READER NOT READY '. 

INVALID INTERRUPT WHICH WILL '. 
NOT RESET 

CONSOLE PRINTER HANG UP - I 
BUSY WILL NOT GO OFF 


RELOAD ', 
RELOAD I 
RELOAD * 

NPRO THEN PLACE CARDS '. 
RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 

RELOAD * 

RELOAD ', 

MAKE READER READY '. 
PRESS RESET AND START I 

FIX THE CONSOLE PRINTER '. 




«**4<*« 





3.4*** PROGRAM TERMINATION 

IF LOOP PROGRAM HAS NOT BEEN SPECIFIED, 
AT THE END OF ROUTINE 05. 

IF ANY ROUTINE IS SELECTED, THAT ROUTINE 
TERMINATE. 

3.5*** RESTART 

1. TURN OFF SWITCHES 0-7. 

2. TURN ON SWITCH 8. 

3. SET DESIRED CONTROL IN SWITCHES 9-14. 

4. PRESS INTERRUPT REQUEST KEY. 

*#♦***♦*♦• 



THE PROGRAM WILL TERMINATE 



WILL LOOP AND WILL NOT 



DATE 
EC NO. 



15N0V66 
419643 



010CT67 
420374 



15SFP68 
420416 



01JUL69 
571013 



PROG ID 
PAGE 



0311-* 
2 
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EC NO. 



15N0V66 
419643 



010CT67 
420374 



15SEP68 
420416 
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571013 



PROG ID 
PAGE 



0311-* 
2A 
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4. PRINTOUTS 



AllOl 0005 AAAA 



ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 

(NESSAGEI 
(MESSAGE! 



APPNN OORR AAAA 

OR 

EPPNN OORR AAAA 



WHERE A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 

THIS HILL BE EITHER 00 FOR MESSAGES ORIGINATED BY MON- 
ITOR OR 11 FOR MESSAGES ORIGINATED BY THIS PROGRAM. 



SET UP DATA SET CONNECTIONS 

THIS MESSAGE IS PRINTED OUT WHEN ROUTINE 05 IS ENTERED AND DATA 
SET READY WAS SENSED, AND FOUND OFF. IF DATA SET CONNECTIONS ARF 
NOT MADE, THIS MESSAGE HILL BE REPEATED EVERY 16 SECOWsI 

TO MAKE DATA SET CONNECTIONS... 



1. 
2. 



NN 

RR 

AAAA 

MESSAGE 

4.1*** STATUS MESSAGES 



IS THE MESSAGE SEQUENCE NUMBER 

IS THE ROUTINE NUMBER 

IS THE ADDRESS OF THE ROUTINE 

IS ANY VARIABLE INFORMATION 



A 0000 



NUM PID ADRS RELF 
XXXX XXXX XXXX XXXX 



LD 



3. 



4. 



A1102 0005 AAAA 



AOOOl 



THIS MESSAGE IS PRINTED, FOLLOWING THE LOADING OF ANY PROGRAM 
lEXCEPT MONITOR). THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM HAS LOADED, 
AND THE RELOCATION FACTOR. 

SHS PID 
XXXX XXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SHITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SHITCH SETTING READ, 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO HHICH THE 
CONTENTS OF SHITCHES 8-15 HERE STORED. IF THE SHITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM, THE HORD HALT HILL FOLLOH THE 
MESSAGE* 



PHONE ANOTHER TERMINAL. 

REQUEST THAT THEIR DATA SET BE PUT IN TALK POSITION, AND 

PLACE THE HAND-PHONE IN THE DATA SET CRADLE. 

**.NOTE.** 
IF THE HAND PHONE IS NOT PLACED IN THE CRADLE, THE MOUTH- 
PIECE HILL PICK UP NOISES HITHIN THE ROOM. 
THE REMOTE TERMINAL SHOULD BE POHEREO OFF OR 
DISCONNECTED FROM THE DATA SET, SO AS NOT TO CREATE 
LINE NOISE. 

AT YOUR DATA SET, PUSH THE DATA BUTTON, OR REMOVE THE 
JUMPER FROM J4D02 TO J4D08. THIS SHOULD CAUSE 
THE SCA RDY LITE TO COME ON, AND CAUSE THE PROGRAM TO 
BRANCH TO LINE LISTENING. ANY LINE CONDITIONS EFFECTING 
THE COMMUNICATIONS TERMINAL CIRCUITRY, HILL BE DETECTED 
AND PRINTED OUT ON THE CONSOLE TYPEHRITER. 
PLACE YOUR DATA SET HAND PHONE IN ITS CRADLE. 

RESET ADAPTER AND HANG UP PHONE 



JUil IJ^^f**^^ ""^"^ ^^ PRINTED OUT AFTER LINE LISTENING ROUTINE HAS 
COME TO ITS NORMAL END. (APPROXIMATELY 10.5 MINUTES I THIS 
MESSAGE HILL NOT BE PRINTED OUT IF ROUTINE 05 IS BEING LOOPED. OR 
TERMINATED BY RESETTING THE ADAPTER AND HANGING UP THE PHONE 

TO RESET ADAPTER AND HANG UP PHONE. 



1. 
2. 
3. 



A1103 0005 AAAA 



AT YOUR DATA SET, PUSH TALK PUSH-BUTTON. 
PICK UP PHONE FROM CRADLE AND LISTEN FOR DIAL-TONE. 
PLACE PHONE BACK INTO CRADLE. THIS HILL ALSO HANG UP 
PHONE AT THE OTHER TERMINAL. 

LINE NOISE ROUTINE TERMINATED 



A 1100 OOOR AAAA 



ROUTINE START MESSAGE - IF SHITCH 9, FUNCTION 0, IS TURNED ON, 
THIS MESSAGE HILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THF NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. 



THIS MESSAGE HILL BE PRINTED OUT WHENEVER THE DATA SET GOES NOT 
READY. NORMALLY THIS WILL BE AUTOMATIC AT THE NORMAL END OF ROUTI 
05, OR WHEN THE C.E. PREMATURELY ENDS THE LINE LISTING ROUTINE BY 
PUSHING THE TALK PUSH BUTTON ON THE DATA SET. THE PHONE SHOULD BE 
PICKED OP, AND WHEN A DIAL TONE IS HEARD, PLACED BACK INTO 
ITS CRADLE. 



4.2*** ERROR MESSAGES 



EOOOl 



****** 



SWS INVLD 
XXXX 



THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



DATE 
EC NO. 



15N0V66 
419543 



010CT67 
420374 



15SEP6B 
42041f> 



01JUL69 
571013 



PROG ID 
PAGE 



0311-* 
3 



DATE 
EC NO. 



15N0V66 
419643 



010CT67 
420374 



15SEP68 
420416 



01JUL69 
571013 



PROG ID 
PAGE 



0311-* 
3A 
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E0003 



E0004 



E0005 



OVR CORE 

Ivr.r^^^"*"* ""^^^ ^"^ LOADER WAS ATTEMPTING TO LOAD. 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 

CKSUM 

A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOhInG CONDITIONs!: 



El 102 OOOR AAAA 



DWl DW2 WAS S/B ON/F F/ON ♦CE* DSW ERR 
XXXO XXOO XXXO XXXO XXXO XXXO OXXO 



1. 
2. 
3. 

4. 
5. 



A CARD IS MISSING OR IS OUT OF SEQUENCE. 

THERE IS AN EXTRA CARD IN THE DECK. 

n!!l/u^"f^ INFORMATION ON THE CARD IS NOT CORRECT. 

DtIF rn ! rof, ^.?^'*.'^'*^° "" ""^ ^° * MACHINE MALFUNCTION. 
DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 



WHEN THIS ERROR OCCURS, ATTEMPT TO RELOAD THE PROGRAM. 

OOON XXXX 

THIS ERROR WILL OCCUR WHEN AN INTERRUPT OCCURS, BUT THE ILSW 
HAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX S THF 
ILSW. THIS PRINTOUT HILL ONLY OCCUR IF THE INTERRUPT IS RESET 
?HE RMUEST^BITr'"" " ''*°' '^ ^"' ""°" ROUTINE TO RESET 

?f tSrned*on!" ^'"'°'' """"^ '^ "'''^ ''"''^^" °"^' ^"^ 5" *«-*•«" 

ThI S?A*r?BJn,Tov «^i"'"'"ED. AT CE. DISCRETION, TO ANY POINT IN 

To%'^! {^^^^l'ogIc .lW2TmA'\]r' '°' '""^''' ^"^^ ""'' '' '" 

'oi HUY''^^w%\nr5^is*:^iiA%°sSs??? :,z :r.'sTioiv'AirVu\'o ^^^"^ 

ARrFA?LINj?' '"' ''"'' °'" "" '"" ""^^ SlAGNSsnc'ioRS'cOMMlSDS 



DWl = STORED CONTENTS OF DIAGNOSTIC WORD 1. 

DW2 = STORED CONTENTS OF DIAGNOSTIC WORD 2. 

WAS = STORED CONTENTS OF DSW. 

S/8 = CALCULATED CONTENTS OF DSW. 
ON/F = DSW BIT THAT WERE ON AND SHOULD BE OFF. 
F/ON = DSW BIT THAT HERE OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC WORD 2. (ON OR OFF! 

DSW ERR = THE CALCULATED DSW DID NOT COMPARE WITH THE 
RECEIVED DSW. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



EH03 OOOR AAAA 



DSW DW2 IHAS IS/B ON/F F/ON *CE* DWl ERR 
XXXO XXOO XXXO XXXO XXXO XXXO OXXO 



DSW = STORED CONTENTS OF DSH. 
0W2 = STORED CONTENTS OF DIAGNOSTIC WORD 2. 
WAS = STORED CONTENTS OF DIAGNOSTIC WORD 1. 
S/B = CALCULATED CONTENTS OF DIAGNOSTIC WORD 1. 

F/n^ ^ ni™!!.'^ """^ ^ "^^ ^"" "E^E ON AND SHOULD BE OFF. 
F/ON = DIAGNOSTIC WORD 1 BITS THAT WERE OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC WORD 2. (ON OR OFF) 

DWl ERR = THF CALCULATED DIAGNOSTIC WORD 1 DID NOT COMPARE 
WITH RECEIVED DIAGNOSTIC WORD 1. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



E1104 OOOR AAAA 



OSW DWl 2WAS 2S/B ON/F F/ON *CE* DH2 ERR 
XXXO XXXO XXOO XXOO XXOO XXOO OXXO 



El 101 OOOR AAAA 



DWl DH2 DSH ON/F F/ON *CE* 
XXXO XXOO XXXO XXOO XXOO OXXO 



INT ERR 



NO INTERRUPTS EXPECTED, AND AT LEAST 1 RECEIVED. 

DWl = STORED CONTENTS OF DIAGNOSTIC WORD 1. 

0W2 = STORED CONTENTS OF DIAGNOSTIC WORD 2. 

DSW = STORED CONTENTS OF DSW. 
2/nM ' S^** "<TERRUPT BITS THAT WERE ON AND SHOULD BE OFF. 
F/ON = OSW INTERRUPT BITS THAT WERE OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC WORD 2. (ON OR OFF) 

INT ERR = THE CALCULATED DSW INTERRUPT BITS DID NOT COMPARE 
WITH THE RECEIVED DSW INTERRUPT BITS. ^-U^f-ARE 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



DSW = STORED CONTENTS OF DSW 

DWl = STORED CONTENTS OF DIAGNOSTIC WORD 1. 

WAS = STORED CONTENTS OF DIAGNOSTIC WORD 2. 

S/B = CALCULATED CONTENTS OF DIAGNOSTIC WORD 2. 
T/ni ' ^I?o^°""^ "'"*•' 2 BITS THAT WERE ON AND SHOULD BE OFF. 
F/ON = DIAGNOSTIC WORD 2 BITS THAT HERE OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC WORD 2. (ON OR OFFJ 

DW2 ERR = THE CALCULATED DIAGNOSTIC WORD 2 DID NOT COMPARE 
WITH RECEIVED DIAGNOSTIC WORD 2. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



El 105 OOOR AAAA 



WAS 
S/B 



HAS S/B BFR WRT/RD ERROR 
XXOO XXOO 



WORD READ FROM THE BUFFER 
WORD SENT TO THE BUFFER 



BFR WRT/RD ERROR = WORD WRITTEN INTO THE BUFFER WAS NOT THE SAME 
AS THE WORD RECEIVED FROM THE BUFFER. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



DATE 
EC NO. 



15N0V66 
419643 



01OCT67 
420374 



15SEP68 
420416 



01JUL69 
571013 



PROG ID 
PAGE 



0311-* 
4 



DATE 
EC NO. 



15N0V66 
419643 



010CT67 
420374 



15SEP68 
420416 



01JUL69 
571013 
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El 105 OOOR AAAA 



HAS LINE NOISE 
XOOO 



ROUTINE 04 ... FLOATING ONE / ZERO PATTERN 



WAS = THE BIT CONFIGURATION OF THE BITS IN DIAGNOSTIC WORD ? UHTrH 
CONCERNED WITH LINE NOISE DETECTION. THE DURATION OF THE 
NOISE AS PER BIT CONFIGURATION IS AS FOLLOWS, 

8000. ..NOISE OF 1 TRANSMISSION BIT LENGTH 
9000... NOISE OF MORE THAN 1 TRANSMISSION BIT LENGTH 
5. COMMENTS AOOO... NOISE OF 1 TRANSMISSION CHARACTER LENGTH 

5.1*** PROGRAM PHILOSOPHY 

THE SCA WRT/RD BUFFER, LINE NOISE DETECTION PROGRAM IS OESIGMFn with 
TWO MAIN OBJECTIVES IN MIND. 1...T0 BE ABLE TO DETECT BUFFER MR i?e/ 
READ ERRORS. AND 2. ..TO BE ABLE TO DETECT TELEPHONE LINE NOISES THAT 
WOULD HAMPER NORMAL OPERATION BETWEEN THIS SCA INSTALLATiSS! AND THE 
S^NuJls.**""""" "*"°''* ^"' "''"'' ""' °' ^"'^ PROGRAM ?saboStU 

THE FIRST BUFFER CHECK ROUTINE USES AN ALL ONES PATTERN AND AN ALL 

jFRn^P»??PBM"''*r^M"^^L"^''^'''^ "^^^ * FLOATING ONE AND A FLOATING 
FOR PrSJeR O^ERAtIoN. *'"' DIAGNOSTIC TRIGGERS ARE ALL CHECKED 

THE BUFFER CHECK ROUTINES TAKE APPROXIMATELY 20 SECONDS TO EXECUTE. 

THE LINE NOISE DETECTION ROUTINE LISTENS FOR LINE NOISES THAT EFFECTS 
THE OPERATION OF NORMAL SCA DATA TRANSMISSION. THE OCCURANCE OF 
THIS TYPE OF LINE NOISE HILL BE PRINTED OUT AS AN ERROR MESSAGE. 

THE LINE NOISE DETECTION ROUTINE TAKES APPROXIMATELY 10.5 MINUTES 
TO EXECUTE. "inuiri 

5.2*** ROUTINE DESCRIPTION 
ROUTINE 01 ... PROGRAM RESET 

THIS ROUTINE CHECKS THE ABILITY OF THE SCA RESET COMMAND TO 
ESTABLISH INITIAL RESET CONDITIONS OF THE SCA CIRCUITRY. 
ALL DIAGNOSTIC WORD TRIGGERS AND DSW TRIGGERS SHOULD BE TURNED 
OFF, WITH THE EXCEPTION OF THE SEND/RECEIVE RUN TRIGGER. 



THIS ROUTINE CHECKS THE ABILITY TO WRITE AND READ A Fl OATlMr nui: 

A CHECK IS MADE AFTER THE WRITE AND READ OPERATION OF EACH 
PATTERN. BIT FLOATING PATTERN IS STARTED IN THE HIGH OrSfr 
^nl'll"'' '^'^ POSITION 0) OF THE BUFFER AND PROGRESSES ^0 THE 

THE FOLLOWING IS THE PATTERN AND SEQUENCE OF THE BUFFER OPERATION 
FLOATING 1 FLOATING 



1000 


0000 


0111 


nil 


0100 


0000 


1011 


nil 


0010 


0000 


1101 


nil 


0001 


0000 


1110 


nil 


0000 


1000 


1111 


0111 


0000 


0100 


nil 


ion 


0000 


0010 


nil 


1101 


0000 


0001 


nil 


1110 


0000 


0010 


nil 


1101 


0000 


0100 


nil 


1011 


0000 


1000 


nn 


0111 


0001 


0000 


1110 


nil 


0010 


0000 


1101 


nil 


0100 


0000 


1011 


nil 


1000 


0000 


0111 


nil 



ROUTINE 05 ... LINE NOISE LISTENING ROUTINE 



THIS ROUTINE LISTENS FOR TELEPHONE LINE NOISE CONDITIONS THAT 
WILL EFFECT THE SCA CIRCUITRY. ONLY NOISES EFFECTING SCA CIRCUITS 
WILL BE DETECTED, AND IDENTIFIED BY AN ERROR PRINTOUT. 

JcLxc^^fll"^ "^ ^"" ROUTINE IS PERFORMED WHILE ON-LINE WITH A 
TVDcI CHrIM lA,n* H^mJE TERMINAL IS NOT REQUIRED. FOR DATA SET 
In^!.^^^" *^ ^°^^ °'' ^^'^ 3^^^ THE REMOTE TERMINAL MUST BE POHER- 
ED OFF OR REMOVED FROM THE DATA SET SO AS NOT TO CREATE LINE NOIS 

NOISE SIMULATION FOR TEST PURPOSES, CAN BE GENERATED BY WHISTLING 
INTO THE TELEPHONE MOUTH-PIECE OF THE REMOTE DATA SET. t"*^^'"'"*^ 
WHISTLING TONE FREQUENCY MUST APPROXIMATELY MATCH THE FREQUENCY 
OF THE DATA NORMALLY COMING OVER THE PHONE LINE. 



ROUTINE 02 



ROUTINE 03 



END OPERATION 

THIS ROUTINE ENSURES THAT THE EXECUTION OF THE ENDOP COMMAND 
DOES NOT BRING UP UNDESIRABLE LEVELS IN THE SCA CIRCUITRY. 

ONES / ZEROS TEST 

THIS ROUTINE WILL FIRST LOAD THE BUFFER WITH ZEROS AND THEN READ 
THE BUFFER 1024 TIMES. A CHFCK FOR DATA ERRORS IS MADE FOR EACH 
BUFFER READ OPERATION. IT WILL THEN LOAD THE SCA BUFFER WITH ALL 
ONES AND RFAD THE BUFFER 1024 TIMES. ANOTHER CHECK FOR DATA 
ERRORS IS MADE EACH TIME THE BUFFER IS READ. THESE TWO OPERATIONS 
ARE REPEATED ALTERNATELY 10 TIMES. THF ROUTINE RUN TIME IS 
APPROXIMATELY 20 SECONDS. 



5.3*** DIAGNOSTIC REFERENCE TABLE 
ERROR BIT REFERENCE 



ERR BIT 



BIT POSITION 



DSW ERROR DWl ERROR 



8 
4 
2 
1 

8 
4 
2 
1 



READ RESP SYNC TRIG 

1 WRT RESP . IDLE CHAR 

2 CHECK .... CHAR CMPT 

3 TIMEOUT .. END OP ... 



DW2 ERROR 

CLK GATE 
SYNC CMTR 
1ST TRANS 
PHS CNTR 



4 ANS REO 

5 BUSY ... 

6 ENABLE . 

y READY .. 

8 RCV RUN 



.. DIAG MODE .... RCV TAG 

. . TIMER TR CHAR PHS 

.. 3 SEC TIMER 
.. 1.5 SEC TIMER 

.. SEND DATA 



DATE 
EC NO. 



I5N0V66 
41^643 



0inCT67 
420374 



15SEP6R 
420416 



01JUL69 
571013 



PROG ID 
PAGE 



0311-* 
5 



DATE 
EC NO. 



15N0V56 
419643 



010CT67 
420374 



15SEP68 
420416 



01JUL69 
571013 
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PAGE 
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ROUTINE 01 



COMMAND 
RESET 



FUNCTION 
STR WRT 



MODIFIER 
9 



N 

E 
-T 

N 
U 
H 



F F 

C C 

3 5 

2 3 

1 1 
B B 
C Y 

2 * 



F F 

C C 

5 5 

2 3 

1 I 

B B 

H X 

4 4 



COMMENTS 



ROUTINE 03 

AND 
ROUTINE 04 



DSW ERR DWl ERR DW2 ERR ALARM 
012345678 012345678 012345 
S/B 0«..IIlIIIIlx '. I '.'.'. '. 



F 
C 
3 
2 
1 
B 
M 
2 







BUFFER BIT 











2 3 

• • 


4 5 6 

• • • 




N 


F 




• • 

* • 

F F 


• • • 

• • • 

F F F 




E 


C 




C C 


C C C 




T 


7 




7 7 


7 7 7 






3 




3 3 


3 3 3 




N 


1 




1 1 


1 1 1 




U 


A 




A A 


AAA 




M 


Y 


X 


M V 


UTS 


R 


. 


4 


4 


4 4 


4 4 4 


4 



COMMENTS 

IF FAILURE APPEARS NOT TO BE BUFFER, 
INSTRUCTION FT. 



RUN SCA PROGRAM 



THIS ROUTINE CHECKS FOR RESET CONDITION OF THE SCA CIRCUITRY. 
IT SHOULD BE ABLE TO TRAP SOLID AND INTERMITTENT PROBLEMS IN 
THIS AREA. 



LAST PAGE r 



ROUTINE 02 



COMMAND 
END OP 



FUNCTION 
CONTROL 



MODIFIER 
13 



DSW ERR DMl ERR DM2 ERR ALARM 

012345678 012345678 012345 



H 
E 

T 

N 
U 

M 



COMMENTS 



THIS ROUTINE CHECKS THE END OPERATION COMMAND. 



DATE 
EC NO. 



15N0V66 
419643 



010CT67 
420374 



15SEP68 
420416 



01 JUL 69 
571013 



PROG ID 
PAGE 
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EC NO. 



15NOV66 
419643 



010CT67 
420374 



15SEP68 
420416 



01JUL69 
571013 
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050C 



ORG 



♦E1500 
EQUATE TABLE 



0160 

0161 

0162 

0163 

0164 



0165 

0166 

0167 
0166 



01 7A 
01 8A 
019A 
OlAA 
OIBA 
OIBB 
01 BC 
OIBD 



* 

* THIS TABLE EQUATES TEST PROGRAM LABELS 

* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* ADDRESSES. 

* 



* 


MONITOR 


ENTRY ADDRESSES 


BEGIN 


EQU 


/160 


BEGIN ROUTINE 


START 


ECU 


BEGINCl 


SUPERVISOR ROUTINE 


ERROR 


EQU 


STARTei 


ERROR LOG ROUTINE 


LOG 


EQU 


ERRORCl 


STATUS LOG ROUTINE 


END 

4c — ■ 


EQU 


LOG&l 


END ROUTINE 


* 

<t 


MONITOR 


CONTROL MORD ADDRESSES 


RTNSW 


EQU 


ENDGl 


ROUTINE START SH 


ERLCK 


EQU 


END£2 


LOCK ON ERR CONTROL 


LOGBY 


EQU 


END&3 


I/O BUSY SH ADDRS 


RLCF 

* 


EQU 


ENDCA 


RELOC FACTOR AOORS 


* 


INTERRUPT TRANSFER 


VECTOR ADDRESSES 


ILO 


EQU 


/17A 


INTERRUPT LEVEL 


ILl 


EQU 


IL0C16 


INTERRUPT LEVEL I 


IL2 


EQU 


IL1C16 


INTERRUPT LEVEL 2 


IL3 


EQU 


IL2ei6 


INTERRUPT LEVEL 3 


I LA 


EQU 


IL3C16 


INTERRUPT LEVEL A 


RQTY 


EQU 


IL4ei 


CON/PRINT REQUEST 


RQKB 


EQU 


RQTYtl 


USE KEYBOARD REQUEST 


SVKB 


EQU 


RQKB&l 


KB SERVICE REQUEST 


* 


* i 


>CA WRT/RD BFR, LINE NOISE DETECTION 


* 









* PROGRAM STATUS TABLE 

* 

PROGRAM ID NUMBER 
ROUTINE NUMBER 
ROUTINE ADDRESS 
PROGRAM CONTROL 
ROUTINE SELECTION 



LOOP PROGRAM 
RESTART ADDRESS 
ENTRY SET IN HN/LINE 
TERMINATOR 



* LOCK ON FUNCTION ROUTINE 

* 



05DC 0311 


PID 


DC 


/0311 


0500 0000 


RID 


DC 


/OOOO 


05DE 0000 


RAD 


DC 


/OOOO 


05DF 0000 


SWO 


DC 





05E0 0000 


SWl 


DC 





05E1 0000 


SW2 


DC 





05E2 0000 


SW3 


DC 





05E3 I 0690 




DC 


STRT 


05E4 1 0690 




DC 


STRT 


05E5 1 0690 


MLSCF 


DC 


STRT 


05E6 FFFF 




DC 


/FFFF 





05E7 OOOO 


LOCK 


DC 




/OOOO 




05Ee 1 C400 05DF 




LD 


L 


SWO 




05EA EC80 0166 




OR 


1 


ERLCK 




05EC lOOA 




SLA 




10 




~ 05ED 1 4C90 05E7 




BSC 


I 


LOCK,- 


DATE 


15N0V66 01JUN70 










EC NO. 


4196A3 571097 











LD SWO 

OR WITH MON LOCK SW 

CHECK BIT 10 

BR IF NOT LOCK/FUNC 



31100020 

31100030 

31100040 

31100050 

31100060 

31100070 

31100080 

31100090 

31100100 

31100110 

31100120 

31100130 

31100140 

31100150 

31100160 

31100170 

31100180 

31100190 

3H00200 

31100210 

31100220 

31100230 

31100240 

31100250 

31100260 

31100270 

31100280 

31100290 

31100300 

31100310 

31100320 

31100330 

31100340 

31100350 

31100360 

31100370 

31100380 

31100390 

31100400 

31100410 

31100420 

31100430 

31100440 

31100450 

31100460 

31100470 

31100480 

31100490 

31100500 

31100510 

31100520 

31100530 

31100540 

31100550 

31100560 

31100570 

31100580 

31100590 

31100600 

31100610 

31100620 

31100630 

31100640 

31100650 

31100660 

31100670 

31100680 

31100690 



PROG ID 
PAGE 



05EF I C4C0 05F5 
05F1 1 4CA0 05F5 
05F3 1 4C80 05E7 
05F5 OOOO 



05F6 4480 0160 
05 F8 I 050C 



05F9 OOOO 
05FA 1000 

05FB 1 C400 0B35 

05FD OOFB 

05FE 1 4400 07BA 

0600 7005 

0601 C0F8 

0602 D0F6 

0603 1 4400 07BA 

0605 7000 

0606 I C400 071E 
0608 1 4C20 0636 
060A 1 6700 0610 
060C 1 6F00 05E5 
060E 4480 0161 

0610 1 74FF 05F9 

0612 70F3 

0613 1 OCOO 0706 
0615 1 4400 0664 



0311-0 
1 





0617 OOOO 




0618 I OCOO 0706 




061A 1 0400 0AE8 




061 C 1 OCOO 070C 




061E 1 OCOO 070E 




0620 1 C400 0725 




0622 1890 




0623 1010 




0624 1086 


DATE 


15N0V66 01JUN7G 


EC NO. 


419643 571097 



LOAD LOOP AOORS 
LOOP ON LAST FUNC 

IF LOOP ADDRS NOT 
LOCK/ ERR LOOP ADR. 



LD L LOOP 

BSC I LOOP.Z 

BSC I LOCK 
LOOP DC *-* 

* TEST INITIALIZATION 

* 

BEGN BSI I BEGIN MON INITIALIZATION 
DC PID PST TABLE 

* ; 

* START OF TEST AND SINGLE PASS INITIALIZE 



* PROGRAM WAIT 

* 

* THIS ROUTINE IS USED BY THE TEST PROGRAM 

* TO MARK TIME WHILE WAITING FOR AN INTERRUPT 

* TO OCCUR. 

* 

* 

WCNT DC 

DELY3 DC 

WAITl LD 



STO 
BSI 

MDX 

WAIT3 LD 
STO 
BSI 
MDX 

♦ 

WAIT2 LD 
BSC 
LDX 
STX 
BSI 



*-* 
/lOOO 

L KOOOl 

WCNT 
L MIC2 

WAIT2 

0ELY3 
WCNT 
L MIC2 
WAIT2 

L PRTPN 
L UINTR.Z 
L3 WAIT4 
L3 MLSCF 
I START 



DELAY COUNTER 
DELAY CONSTANT 

1 PASS 

STORE DELAY COUNT 



4 SEC. CONSTANT 
STORE DELAY COUNT 



CHK FOR INTERRUPT 
INT. OCCURRED 
SET UP MON RETURN 

GO TO MONITOR 



REDUCE DELAY COUNT 
DELAY NOT OVER 
SENSE AND RESET DSW 
GO MAKE ANALYSIS 



WAIT4 MDX L HCNT,-1 

MDX WAIT2 

XIO L OSWSN 

BSI L SNOSM 

******************************************** 

* INTERRUPT 

* THE MONITOR RETURNS CONTROL TO THIS ROUTINE 

* AFTER DETECTING A SCA INTERRUPT. 

* UNEXPECTED INTERRUM OCCURRED 



INTR 



DC 

XIO 

STO 

XIO 

XIO 

LD 

SRT 

SLA 

SLT 



*-* 

OSWSN 

CADSW 

RDIAl 

RDIA2 

DIAW2 

16 

16 

6 



SENSE RESET DSW 
STORE DSW 
READ DIAG WD 1 
REAO DIAG WD 2 



31100700 

31100710 

31100720 

31100730 

31100740 

31100750 

31100760 

31100770 

31100780 

31100790 

31100800 

31100810 

31100820 

31100830 

31100840 

31100850 

31100860 

31100870 

31100880 

31100890 

31100900 

31100910 

31100920 

31100930 

31100940 

31100950 

31100960 

31100970 

31100980 

31100990 

31101000 

31101010 

31101020 

31101030 

31101040 

31101050 

31101060 

31101070 

31101080 

31101090 

31101100 

31101110 

31101120 

31101130 

31101140 

31101150 

31101160 

31101170 

31101180 

31101190 

31101200 

31101210 

31101220 

31101230 

31101240 

31101250 

31101260 

31101270 

31101280 

31101290 

31101300 

31101310 

31101320 

31101330 

31101340 

31101350 

31101360 

31101370 
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lA 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA WRITE/READ BUFFER 6 LINE NOISE DETECTION 



PART NO. 2191272 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA WRITE/READ BUFFER £ tINE NOISE DETECTION 



PART NO. 
PAGE 



2191272 
2A 



0625 





100 1 




0626 




ECOO 


0724 


0628 




OCOO 


07 IC 


062A 




6C00 


071E 


062C 




C400 


05DE 


062E 




9400 


0662 


0630 




4C98 


0617 


0632 




OCOO 


0700 


0634 




AC80 


0617 


0636 




4400 


0B38 


0638 




4C00 


0677 



063A 
063B 
0630 
063F 
0641 
0642 
0644 
0645 
0647 
0649 
064B 
0640 
064E 
0650 
0652 
0654 
0656 
0658 
065A 
065C 



0000 

1 C400 
1 4C08 
1 0400 

9021 

1 4C08 

1810 

1 D400 
1 0400 
1 7401 
1 C400 
9015 

44B0 
t 6780 

1 C700 
1 0400 
1 0400 
1 0400 
D400 
4480 



05E0 
0649 
05D0 

0650 

05E0 
0500 
05DD 
05DD 

0164 
05 DO 
065D 
050E 
05F5 
05E5 
0165 
0161 



065E 1 06C3 
065F 1 06C9 

0660 1 06CF 

0661 I 0726 

0662 I 0751 



0663 0005 



0664 
0665 
0667 
0669 
066B 
066D 
066 F 
0670 
0671 
0672 
0673 
0675 



0000 
OCOO 



1 0400 



OCOO 
OCOO 
C400 
1890 
1010 
1086 
1001 
ECOO 
OCOO 



0706 
0AE8 
070C 
070E 
0725 



0724 
071C 



0677 1 C400 0719 
0679 1 4C20 0942 
067B 1 C400 071A 



SLA 

OR 

STO 

STX 

LD 

S 

BSC 

XIO 

BSC 



1 

DIAMl 

01 AMD 

PRTPN 

RAO 

RTTBL64 

INTR.e- 

RESET 

INTR 



COMBINE 0IA6 HOROS 
STORE 01 AG WORDS 
TURN ON INTERRUPT SW 
CHK IF LINE NOISE RT 

YESt EXIT TO RETURN 
NO) EXECUTE RESET 
EXIT TO RETURN 



MAKE INTRPT ANANYSIS 
MAKE ANALYSIS 



UINTR BSI L INTAN 
BSC L MODES 

* THIS ROUTINE CHECKS SWITCHES AND CONTROLS 

* THE SEQUENCE IN WHICH TEST ROUTINES ARE RUN 



CNTRL DC 
LO 
BSC 
STO 
S 

BSC 
SRA 
STO 
STO 
MOX 
LD 
S 

BSI 
LDX 
LD 
STO 
STO 
STO 
STO 
BSI 



CN2a 



CN30 



*-* 

SWl 

CN20te 

RID 

RIDCK 

CN30.G 

16 

SUl 

RIO 

RlOtl 

RID 

RIDCK 

END, -2 

13 RID 

L3 RTTBL-l 
RAO 
LOOP 
MLSCF 
RTNSM 
START 



BRANCH IF NO RTN SELECTED 
SAVE NEW RTN NUMBER 

BR IF VALID RTN 

IF INVALID RTN GO 

TO RTN ONE 

AOV TO NEXT RTN 



END PROGRAM 

FETCH RETURN AORS 

LOAD LOOP RTN AODR. 
SET MLSCF F(» RETURN 

GO TO MONITOR 



♦**♦*♦♦♦**♦♦*♦•♦♦♦*****♦•**•******♦•**♦****** 

♦ ROUTINE SEQUENCE TABLE 

********************************************* 

* 

RTTBL DC RTl 

DC RT2 

DC RT3 

DC RT4 
LRTN DC RT5 



RIDCK DC 

* 

SNDSW DC 
XIO 
STO 
XIO 
XIO 
LD 
SRT 
SLA 
SLT 
SLA 
OR 
STO 

* 

MODES LD 
BSC 
LO 



LRTN-RTTBLtl 



*-* 

OSWSN 

CADSM 

ROIAl 

RDIA2 

DIAW2 

16 

16 

6 

1 

DIAMl 

OIAWD 



L RESMO 
L RESAN.Z 
L ROMD 



SENSE DSW 
STORE OSM 
READ DIAG WORD 1 
READ DIAG WORD 2 



COMBINE DIAG WORDS 
STORE DIAG WORDS 

CHK FOR RESET MODE 

CHK FOR READ MODE 



DATE 
EC NO. 



15N0V66 
419643 



01JUN70 
571097 



31101380 


067D 1 4C20 0956 


31101390 


067F 1 C400 07 IB 


31101400 


0681 1 4C20 0961 


31101410 




31101420 


0683 1 C400 068F 


31101430 


06 85 1 4C20 068B 


31101440 


0687 1 4400 069B 


31101450 


06 89 1 4400 063A 


31101460 




31101470 


068B 1010 


31101480 


06 8C D002 


31101490 


0680 1 4CS0 0664 


31101SO0 




311Q1510 


06 8F 0000 


31101520 




31101S30 




31101540 




31101S50 




31101S60 




31101570 


■• 


31101580 




31101590 




31101600 




31101610 




31101620 




31101630 




31101640 


0690 6300 


31101650 


0691 1 6F00 05DD 


31101660 


0693 1 6500 0617 


31101670 


0695 6D00 0189 


31101660 


0697 1 4400 0698 


31101690 


0699 1 4400 063A 


31101700 




31101710 




31101720 




31101730 




31101740 




31101750 


069B 0000 


31101760 


069C 1 C400 05DE 


31101770 


069E 1 9400 0662 


31101780 


06 AO 1 4C18 06 A4 


31101790 


06A2 1 OCOO 0700 


31101800 


06A4 1010 


31101810 


06A5 630C 


31101820 


06A6 1 0700 0AD9 


31101830 


06A8 73FF 


31101840 


06A9 70FC 


31101850 


06AA 630C 


31101860 


06AB 1 0700 0AE5 


31101870 


06A0 73FF 


31101880 


06AE 70FC 


31101890 


06AF 630D 


31101900 


06B0 1 D700 0718 


31101910 


06B2 73FF 


31101920 


0683 70FC 


31101930 


06B4 6304 


31101940 


06B5 1 0700 09CE 


31101950 


06B7 73FF 


31101960 


06B8 70FC 


31101970 


06B9 1 4400 05E7 


31101980 


06BB C006 


31101990 


06BC 6300 


31102000 


06BD 6B04 


31102010 


06BE 1 4CA0 05F5 


31102020 


06C0 1 4C80 069B 


31102030 




31 102040 


06C2 0000 


31102050 




PROG ID 0311-0 


DATE 15N0V66 01JUN70 


PAGE 2 


EC NO. 419643 571097 



BSC 

LO 

BSC 

RETRN LO 
BSC 
BSI 
BSI 



PRNT 



SLA 
STO 
BSC 



L 
L 
L 

L 
L 
L 
L 



I 



ROAN.Z 

WRTMD 

WRTANtZ 

PRTSW 
PRNT.Z 
OFF 
CNTRL 

16 

PRTSW 

SNDSW 

*-* 



CHK FOR WRITE MODE 



CHK FOR PRINT SW ON 

RESET PROG SWITCHES 
GO TO CONTROL 



TURN OFF ERR SW 
CO MAKE ANALYSIS 

ERROR SWITCH 



PRTSW DC 

♦ 

* INITIALIZATION ROUTINE 

* 

* THIS ROUTINE PERFORMS THE REQUIRED 

* INITIALIZATION FOR RESTART OF THE PROGRAM. 

* IT LOADS THE FIRST ROUTINE OR THE DESIRED 
« ROUTINE VIA SELECT SWITCHES INTO THE 

* MAINLINE SEQUENCE CONTROL FIELD. 

* 



STRT 



LDX 
STX 
LDX 
STX 
BSI 
BSI 



3 
L3 RID 
LI INTR 
LI ILl-1 
L OFF 
L CNTRL 



STORE ROUTINE NO. 
SET-UP INTRPT AODR 

RESET PROG SWITCHES 
GO TO CONTROL 



♦ TORN OFF ALL SWITCHES 



OFF DC 
LD 
S 

BSC 
XIO 
SLA 
LDX 

OFFO STO 
MOX 
MDX 
LDX 

OFFl STO 
MDX 
MDX 
LDX 

OFF 2 STO 
MDX 
MOX 
LDX 

0FF3 STO 
MOX 
MDX 
BSI 
LD 
LDX 
STX 
BSC 
BSC 

* 

LOOPE DC 



*-* 
L RAD 
L LRTN 
L OFF £9,6- 
L RESET 
16 
3 12 
L3 TABLE-1 
3 -1 

OFFO 
3 12 
L3 OSWXX-1 
3 -1 

OFFl 
3 13 
L3 RESMD-1 
3 -1 

OFF 2 
3 4 
L3 DSWWl-1 
3 -1 
OFF 3 
L LOCK 
LOOPE 
3 

3 LOOPE 
I LOOP.Z 
I OFF 



REtURN ADDRESS 



*-• 



CK LOCK, LOOP/ ERR FNC 
LOAD LOOP SW 
RESET LOOP SW 

CHK IF LOOP SW ON 
NO, EXIT TO RETURN 

LOOP ROUTINE SWITCH 



31102060 

31102070 

31102080 

31102090 

31102100 

31102110 

31102120 

31102130 

31102140 

31102150 

31102160 

31102170 

31102180 

31102190 

31102200 

31102210 

31102220 

31102230 

31102240 

31102250 

31102260 

31102270 

31102280 

31102290 

31102300 

31102310 

31102320 

311«2330 

31102340 

311Q23S0 

31102360 

31102370 

31102380 

31102390 

31102400 

31102410 

31102420 

31102430 

31102440 

31102490 

31102460 

31102470 

31102480 

31102490 

31102S00 

31102510 

31102520 

31102S30 

31102540 

31102550 

31102S60 

31102970 

31102580 

31102590 

31102600 

31102610 

31102620 

31102630 

31 102640 

31102650 

31102660 

31102670 

31102680 

31102690 

31102700 

31102710 

31102720 

31102730 



PROG ID 
PAGE 



0311-0 
2A 



I8H MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA WRITE/READ BUFFER £ LINE NOISE DETECTION 



PART NO. 
PAGE 



2191272 

3 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA URITE/REAO BUFFER £ LINE NOISE DETECTION 



PART NO. 2191272 
PAGE 3A 



06C3 6855 
06C4 I 6C00 0901 
06C6 0839 
06C7 I 4C00 0601 



06C9 684F 
06CA 1 6C00 0902 
06CC 0843 
06C0 1 4C00 0601 



* PROGRAM RESET ROUTINE 01 

* 

RTl STX RESMD TURN ON RESET MODE 

STX L BNSHl TURN ON BRANCH SHI 
XIO RESET EXECUTE ENDOP 

BSC L WAIT3 BRANCH TO DELAY 

* 

*****♦*♦****♦♦**********♦•»*♦**♦*•**•******♦* 

* ENDOP CHECK ROUTINE 02 

* 

RT2 STX RESMO TURN ON RESET MODE 

STX L BNSH2 TWN ON BRANCH SW2 

XIO ENDOP EXECUTE ENDOP 

BSC L WA1T3 BRANCH TO DELAY 

* ZEROS/ONES TEST ROUTINE 03 

* 

TURN ON READ MODE 
TURN ON BRANCH SMI 
EXECUTE RESET 

SET UP COUNTER A 
LO OOO/EVEN SWT 
GO TO EVEN IF ON 
STEP OOO/EVEN SH 

RESET OUTPUT AREA 
URT ZEROS IN BUFFER 
GO CHECK BUFFER 
MAKE ANOTHER PASS 



TURN OFF ODD/EVEN SW 

SET UP TO WRITE ONES 
WRT ONES IN BUFFER 
GO CHECK BUFFER 
REDUCE COUNTER A 
MAKE ANOTHER PASS 
BRANCH TO DELAY 



06CF 





6 84 A 




RT3 


STX 




ROND 


0600 


I 


6C00 


0901 




STX 


L 


BNSMl 


0602 





0820 






XIO 




RESET 


06D3 





6310 






LOX 


3 


/OOlO 


06 D* 





6B40 






STX 


3 


CNTA 


0605 





C04B 






LO 




OOEVN 


0606 


1 


4C20 


06EO 




BSC 


L 


EVENl, Z 


0608 


1 


7401 


0721 




MOX 


L 


OOEVN, 1 


06DA 





6300 






LDX 


3 





06DB 





6B44 






STX 


3 


SEND 


060C 





0827 






XIO 




MRCAT 


0600 


1 


4400 


06EC 




BSI 


L 


BFRCK 


06DF 





70F5 




* 
EVENl 


MDX 




RT3C6 


06E0 





6300 




LDX 


3 





06 El 





6B3F 






STX 


3 


OOEVN 


06E2 





C033 






LO 




ONES 


06E3 





D03C 






STO 




SEND 


06E4 





081F 






XIO 




WRCAT 


06E5 


1 


4400 


06 EC 




BSI 


L 


BFRCK 


06E7 


1 


74FF 


0722 




MOX 


L 


CNTA,-1 


06E9 





70EB 






fViX 




RT3C6 


06EA 


1 


4C00 


05FB 


* 
BFRCK 


BSC 


L 


MAITl 


06 EC 





0000 




DC 




♦-* 


06ED 





6600 


0400 




LOX 


L2 


/0400 


06EF 





6A33 




* 
ROAGN 


STX 


2 


CNTB 


06F0 





0811 




XIO 




ROC AT 


06F1 


1 


6600 


06F7 




LDX 


L2 


RDAGNC7 


06F3 


1 


6E00 


05E5 




STX 


L2 


MLSCF 


06F5 





4480 


0161 




BSI 


I 


START 


06F7 





C027 






LO 




RCVED 


06F8 





F027 






EOR 




SEND 


06F9 


1 


4C20 


08 E9 




BSC 


L 


BFRER.Z 


06F8 


1 


74FF 


0723 




MDX 


L 


CNTB,-1 


06FD 





70F2 






MDX 




ROAGN 


06FE 


1 


4C80 


05EC 


♦ 


BSC 


I 


BFRCK 



SET UP CNTR B 



RD BUFFER 

SET UP MON RETURN 

GO TO MONITOR 

LO DATA READ 

EOR WITH DATA SENT 

CHECK FOR DATA ERROR 

REDUCE COUNTER B 

GO READ AGAIN 

EXIT TO RETURN 



* 1130 SCA lOCC 



0700 0000 

0700 0000 

0701 5540 



BSS E 
RESET DC 

DC /5540 



PROGRAM CAT RESET 



DATE 
EC NO. 



15N0V66 
419643 



01JUN70 
571097 



31102740 

31102750 
31102760 
31102770 
31102780 
31102790 
31102800 
31102810 
31102820 
31102830 
31102840 
31102850 
31102860 
31102870 
31102880 
31102890 
31102900 
31102910 
31102920 
31102930 
31102940 
31102950 
31102960 
31102970 
31102980 
31102990 
31103000 
31103010 
31103020 
31103030 
31103040 
31103050 
31103060 
31103070 
31103080 
31103090 
31103100 
31103110 
31103120 
31103130 
31103140 
31103150 
31103160 
31103170 
31103180 
31103190 
31103200 
31103210 
31103220 
31103230 
31103240 
31103250 
31103260 
31103270 
31103280 
31103290 
31103300 
31103310 
31103320 
31103330 
31103340 
31103350 
31103360 
31103370 
31103380 
03390 
31103400 
31103410 



PROG 10 
PAGE 



0702 


1 


071F 


RDCAT 


DC 


RCVED 


READ CAT 


0703 





5200 




OC 


/5200 




0704 


1 


0720 


WRCAT 


DC 


SEND 


WRITE CAT 


0705 





5100 




OC 


/5100 




0706 





0000 


OSMSN 


DC 





SENSE CAT DSW 


0707 





5701 




DC 


/5701 




0708 





0000 


STRD 


DC 





START READ 


0709 





5600 




DC 


/5600 




070A 





0000 


STST 


DC 





START/STOP TIMEOUT 


070B 





5420 




DC 


/5420 




07 OC 


1 


0724 


RDIAl 


DC 


OIAUl 


READ DIAG WORD 1 


0700 





5201 




DC 


/5201 




070E 


1 


072 5 


RDIA2 


OC 


0IAM2 


READ 01 AG WORD 2 


070F 





5202 




OC 


/5202 




0710 





0000 


ENDOP 


OC 





, END OP 


0711 





5404 




DC 


/5404 




0712 





0000 


BZON 


OC 





EXECUTE ALARM ON 


0713 





5102 




DC 


/5102 




0714 





0000 


BZOFF 


DC 





■ EXECUTE ALARM OFF 


0715 





5101 




DC 


/5101 





0716 FFOO 

0717 BOOO 

0718 0100 



0719 

071A 

071B 

071C 

0710 

071E 

071 F 

0720 

0721 

0722 

0723 

0724 

0725 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



* CONSTANTS 
*********♦******••*♦•***•♦*♦**♦*******•*»»»♦« 

* 

ONES DC /FFOO 8 ONES 

MASK DC /BOOO 2WIRE NOISE MASK 

MASKl OC, /OlOO DSW ROY BIT 

* 

* SWITCHES AND STORAGE 
******♦*•♦***•*••*•**♦*♦*•♦♦*•*♦♦»*♦♦♦***♦•*♦ 



RESMD OC 
RDMO OC 
WRTMD OC 
OIAWD DC 
OC 
PRTPN DC 
RCVED OC 
SEND DC 
OOEVN OC 
CNTA OC 
CNTB DC 
OIAWl OC 
0IAW2 OC 



*-♦ 

*-* 
♦-* 
♦-* 



*-* 

♦-♦ 



♦-♦ 



RESET MODE SH 
READ MODE SW 
WRITE MODE SH 
COMBINED DIAG WORDS 
1 AND 2 
INTERRUPT SW 
BUFFS* READ STORAGE 
BUFFER WRITE STORAGE 
ODD-EVEN SH 
COUNTER A 
COUNTER B 
DIAG HO 1 STORAGE 
DIAG WO 2 STORAGE 



0311-0 
3 





0726 


1 


6C00 


071B 


RT4 


STX 


L 


WRTMD 




0728 


1 


6C00 


0901 




STX 


L 


BNSMl 




072A 





0805 






XIO 




RESET 




072B 


I 


6700 


OTOE 




LOX 


L3 


PATNA 




0720 


1 


6F00 


0746 




STX 


L3 


JUMPtl 




072F 


1 


4400 


0739 




BSI 


L 


SHFT 




0731 


1 


6700 


0856 




LDX 


L3 


PATNB 




0733 


I 


6F00 


0746 




STX 


L3 


JUMPCl 




0735 


1 


4400 


0739 




BSI 


L 


SHFT 




0737 


1 


4C00 


05FB 


* 
SHFT 


BSC 


L 


HAITI 




0739 





0000 




OC 




*-* 




073A 


1 


6 700 


0740 




LOX 


L3 


SHFT£7 




073C 


1 


6F00 


05E5 




STX 


L3 


MLSCF 




073E 





4480 


0161 




BSI 


I 


START 




0740 





630F 






LDX 


3 


15 




0741 





73FF 






MDX 


3 


-1 


DATE 


15N0V66 01JUN70 










EC NO. 


419643 571097 











* WRITE, READ-BACK, CHK BUFFER ROUTINE 04 

***************•*♦****************♦♦»*♦*»♦♦*» 

TURN ON WRT MODE SW 
TURN ON BRANCH SWl 
EXECUTE RESET 
GET PATTERN A ADOR 
STORE PATTERN AODR 
WRT, READ, COMPARE 
GET PATTERN B ADOR 
STORE PATTERN ADOR 
HRT, READ, COMPARE 
GO TO DELAY 



SET UP MON RETURN 

GO TO MONITOR 

START WITH 15 IN XR3 

MODIFY PATTERN 



31103420 

31103430 

31103440 

31103450 

31103460 

31103470 

31103480 

31103490 

31103500 

31103510 

31103520 

31103530 

31103540 

31103550 

31103560 

31103570 

31103580 

31103590 

31103600 

31103610 

31103620 

31103630 

31103640 

31103650 

SI 103660 

311.03670 

31103680 

31103690 

31103700 

31103710 

31103720 

31103730 

31t03740 

31103750 

31103760 

31103770 

31t037S0 

31103790 

31103800 

31103810 

31103820 

31103830 

31103840 

31103850 

31103860 

31103870 

31103880 

31103890 

31103900 

31103910 

31103920 

31103930 

31103940 

31103950 

31103960 

31103970 

31103980 

31103990 

31104000 

31104010 

31104020 

31104030 

31104040 

31104050 

31104060 

31104070 

31104080 

31104090 
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0751 

0753 

0754 

0756 

0757 

0759 

075B 

0750 

075E 

075F 

0761 

0763 

0765 

0766 

0768 

0769 

076 B 

076D 

076F 

0770 

0772 

0774 



OCOO 
08B4 
4400 
08B3 
6700 
6F00 
4400 
08A8 
E0B9 
4C20 
6700 
6F00 
6301 
6F00 
6300 
6F00 
OCOO 
4480 
OAOA 
OCOO 
4400 
70E2 



0710 

07B1 

4000 
05F9 
07BA 



0780 
0A4D 
OAOO 

OAOA 

OADC 
0712 
0163 

0714 
0775 



0775 0000 

0776 1 6700 077C 
0778 1 6F00 05E5 



SET UP PATTERN 
EXIT TO RETURN 

GO TO PATTERN ADDR 

MRT PATT. IN BUFFER 

RD PATT. FROM BUFFER 

LO PATTERN READ 

EOR WITH PATT. SENT 

SAVE IXR 3 

CHK FOR DATA ERROR 

RESTORE IXR 3 

GO ON MITH ROUTINE 



* LINE NOISE DECTION 

RT5 



0742 7002 






MDX 




JUMP 


0743 1 4C80 


0739 


^ 


BSC 


I 


SHFT 


0745 1 4780 


07DE 


JUMP 


BSI 


13 


PATNA 


0747 08BC 






XIO 




MRCAT 


0748 08 B9 






XIO 




RDCAT 


0749 C005 






LO 




RCVEO 


074 A F0D5 






EOR 




SEND 


074B 6B03 






STX 


3 


XR3AS,1 


074C 1 4420 


06EC 




BSI 


L 


BFRCK, 


074E 6700 


0000 


XR3A 


LDX 


L3 


♦-• 


0750 70F0 






MDX 




SHFTS8 



XIO 
XIO 
BSI 
XIO 
LDX 
STX 
BSI 
XIO 
AND 
BSC 
LOGOl LDX 
STX 
LDX 
STX 
LDX 
STX 
XIO 
BSI 
DC 
XIO 
BSI 
MDX 



L ENOOP 

STRD 
L DLYTM 

STST 
L3 /4000 
L3 MCNT 
L MIC2 

OSMSN 

HASKl 
L ROY.Z 
L3 ADR7 
L3 TABLEG3 

3 1 
L3 TABLE 



3 
L3 

L 
I 

L 
L 





TABLE&2 

BZON 

LOG 

TABLE 

BZOFF 

MAIT5 

RT566 



EXECUTE ENOOP 
EXECUTE START READ 
GO TO DELAY 
INHIBIT TIMEOUT 
SET UP 16 SEC. DELAY 



SENSE DSU 
SET UP READY CHECK 
CHECK FOR READY 
SET UP TO LOG NSG 1 



EXECUTE ALARM ON 
LOG SET UP DATA SET 

EXECUTE ALARM OFF 

60 TO DELAY 

SET UP DELAY AGAIN 



********************************************* 

* OPERATING INSTRUCTIONS 
4> 

* MHEN SCA CONSOLE RCV LITE COMESONt READY 

* CONDITION HILL HAVE TO BE ESTABLISHED IN 

* ORDER TO BEGIN LINE LISTENING. 1. PHONE 

* ANOTHER TERMINAL. 2. REQUEST THAT THEIR 

* DATA SET BE PUT IN TALK POSITION AND 

* PLACE THE HAND PHONE IN THE DATA SET 

* CRADLE. *NOTE... IF THE HAND PHONE AT THEIR 

* TERMINAL IS NOT PLACED IN THE CRADLEt THE 

* MOUTH PIECE HILL PICK UP NOISES MITHIN THE 

* ROOM. 3. AT YOUR DATA SET, PUSH THE DATA 

* BUTTON- THIS SHOULD CAUSE THE SCA ROY LITE 

* TO COME ON AND CAUSE THE PROGRAM TO BRANCH 

* TO LINE LISTENING. ANY LINE CONDITIONS 

* EFFECTING THE COMMUNICATIONS TERMINAL 

* CIRCUITRY HILL BE DETECTED AND PRINTED OUT 

* ON THE CONSOLE TYPEWRITER. LINE LISTENING 

* HILL CONTINUE FOR APPROX 10 MINUTES, 

* UNLESS TERMINATED BY MAKING THE DATA SET 

* NOT READY. 4. PLACE YOUR DATA SET HAND 

* PHONE IN ITS CRADLE. 



HAIT5 DC 
LOX 
STX 



♦-* 
L3 RTRN5 
L3 MLSCF 



SET UP MON RETURN 



DATE 
EC NO. 



15N0V66 
419643 



01JUN70 
571097 



31104100 

31104110 

31104120 

31104130 

31104140 

31104150 

31104160 

31104170 

31104180 

31104190 

31104200 

31104210 

31104220 

31104230 

31104240 

31104250 

31104260 

31104270 

31104280 

31104290 

31104300 

31104310 

31 104320 

31104330 

31104340 

31104350 

31104360 

31104370 

31104380 

31104390 

31104400 

31104410 

31104420 

31104430 

31104440 

31104450 

31104460 

31104470 

31104480 

31104490 

31104500 

31104510 

31104520 

31104530 

31104540 

31104550 

31104560 

31104570 

31104580 

31104590 

31104600 

31104610 

31104620 

31104630 

31104640 

31104650 

31104660 

31104670 

31104680 

31104690 

31104700 

31104710 

31104720 

31104730 

31104740 

31104750 

31104760 

31104770 
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077A 





4480 


0161 




BSI 


I 


START 


077C 


1 


74FF 


05F9 


RTRN5 


MDX 


L 


MCNT,-l 


077E 





70F7 






MDX 




HAIT5e.l 


077F 


1 


4C80 


0775 


^ 


BSC 


I 


HAIT5 


0781 





0000 




UAIT6 


OC 




*-* 


0782 


1 


6700 


0788 




LOX 


L3 


RTRN6 


0784 


1 


6F00 


05E5 




STX 


L3 


MLSCF 


0786 





4480 


0161 




BSI 


I 


START 


0788 


1 


74FF 


05F9 


RTRN6 


MDX 


L 


HCNT,-1 


078A 





700C 






MDX 




LSTNN 


078B 


1 


4C80 


0781 


* 
ROY 


BSC 


I 


HAIT6 


0780 





6314 




LDX 


3 


20 


078E 





6B21 






STX 


3 


PASS 


078F 





6700 


7800 




LDX 


L3 


/7800 


0791 


1 


6F00 


05F9 




STX 


L3 


MCNT 


0793 


1 


OCOO 


0714 




XIO 


L 


BZOFF 


0795 


1 


4400 


07BA 




BSI 


L 


MIC2 



0311-0 

4 





0797 


1 OCOO 0706 


LSTNN 


XIO 


L 


DSUSN 




0799 


1 E400 0718 




AND 


L 


HASKl 




079B 


1 4C18 07C7 




BSC 


L 


HNGUP, &- 




0790 


1 OCOO 070E 




XIO 


L 


RDIA2 




079F 


1 C400 0725 




LO 


L 


0IAU2 




07A1 


1 E400 0717 


« 
* 
• 


AND 


L 


MASK 




07A3 


1 4C18 07 A9 


BSC 


L 


CNTER, fi- 




07A5 


1 0400 OADF 


PRTER 


5T0 
ASC 


L 


TABLE£5 




07A7 


1 4C00 0900 


* 
CNTER 


L 


NOISE 




07A9 


1 4400 0781 


BSI 


L 


UAIT6 




07AB 


1 74FF 07B0 




MDX 


L 


PASS,-1 




07AD 


70E1 




MDX 




RDYe2 




07AE 


1 4C00 08CE 


* 

PASS 
* 
DLYTM 


BSC 


L 


L0G02 




07B0 


0000 


DC 




*-• 




07B1 


0000 


OC 




*-* 




07B2 


6306 




LOX 


3 


6 




07B3 


6B05 




STX 


3 


TMDLY 




07B4 


1 74FF 07B9 




MDX 


L 


TMDLY, -1 




07B6 


70FD 




MDX 




*-3 




07B7 


1 4C80 07B1 


^ 


BSC 


I 


DLYTM 




07B9 


0000 


TMDLY 


DC 




*-* 




07BA 


0000 


MIC2 


OC 




*-« 




07BB 


1 C400 05E1 




LO 


L 


SH2 




07BD 


lOOB 




SLA 




11 




07BE 


I 4C90 07BA 




BSC 




MIC2,- 




07C0 


1 C400 05F9 




LD 




HCNT 




07C2 


1001 




SLA 




1 




07C3 


1 0400 05F9 




STO 




HCNT 




07C5 


1 4C80 07BA 


;|t 


BSC 




MIG2 




07C7 


1 OCOO 0700 


HNGUP 


XIO 




RESET 




07C9 


1 6700 0A6D 




LDX 


L3 


ADR9 




07CB 


1 6F00 OADD 




STX 


L3 


TABLE63 




07CO 


6303 




LDX 


3 


3 




07CE 


1 6F00 OAOA 




STX 


L3 


TABLE 




07D0 


6300 




LDX 


3 





DATE 


15N0V66 01JUN70 










EC NO. 


419643 571097 











GO TO MONITOR 
REDUCE DELAY COUNT 
CK FOR DELAY OVER 
EXIT TO RETURN 



SET UP MON RETURN 

GO TO MONITOR 
REDUCE DELAY COUNT 
GO LISTEN SOME MORE 
EXIT TO RETURN 

SET UP LISTEN TIME 



EXECUTE ALARM OFF 



* LISTEN FOR LINE NOISE 



SENSE DSH 

SET UP READY CHECK 
CHECK FOR READY 
READ 01 AG WO 2 
PUT DIAG WRD IN ACCUM 
SET UP NOISE CHECK 
CLOCK GATE TRG, FRST TRAN- 
SITION TRG AND PHASE CTR 
CONTROL TRG. 
DONT BR IF ANY THING 
SET BITS IN MSG 
GO PRINT NOISE 

GO to DELAY 
REDUCE DELAY COUNT 
GO LISTEN SOME MORE 
GO LOG RESET MESSAGE 



EXECUTE RESET 

SET UP RTN TERM MSG 



31104780 

31104790 

31104800 

31104810 

31104820 

31104830 

31104840 

31104850 

31104860 

31104870 

31104880 

31104890 

31104900 

31104910 

31104920 

31104930 

31104940 

31104950 

31104960 

31104970 

31104980 

31104990 

31105000 

31105010 

31105020 

3110S030 

31105040 

31109050 

31105060 

31105070 

31105080 

31109090 

31109100 

31109110 

31109120 

31105130 

31109140 

31105190 

31105160 

31105170 

3110S180 

31109190 

31105200 

31109210 

31105220 

31105230 

31105240 

31109290 

31109260 

31105270 

31105280 

31 105290 

31105300 

31105310 

31105320 

31105330 

31105340 

31105350 

31105360 

31105370 

31105380 

31105390 

31105400 

31105410 

31105420 

31105430 

31105440 

31105450 
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07D1 


1 


6F00 OADC 




STX 


L3 


TABLEC2 


31105460 


082A 


1 


4C80 


0825 




BSC 


t 


A9 


31106140 






0703 


1 


OCOO 0712 




XIO 


L 


BZON EXECUTE ALARM ON 


31105470 


082C 





0000 




AlO 


DC 







31106150 






0705 





4480 0163 




BSI 


I 


LOG LOG RTN TERN MESSAGE 


31105480 


0820 





6500 


0400 




LDX 




/0400 


31106160 






0707 


I 


OADA 




DC 




TABLE 


31105490 


082F 




6000 


0720 




STX 




SEND 


31106170 






07D8 


1 


OCOO 0714 




XIO 


L 


BZOFF EXECUTE ALARM OFF 


31105500 


0831 




4C80 


082C 




BSC 




AIO 


31106180 






07DA 


1 


4400 069B 




BSI 


L 


OFF RESET PROG SUS 


31105510 


0833 




0000 




All 


DC 







31106190 






07DC 


1 


4400 063A 




BSI 


L 


CNTRL GO TO CONTROL 


31105520 


0834 





6500 


0800 




LOX 




/0800 


31106200 












* 








31105530 


0836 




6000 


0720 




STX 




SEND 


31106210 












********************************************* 


31105540 


0838 




4C8d 


0833 




BSC 




All 


31106220 












* 


TRANSFER VECTOR FOR SCA BUFFER 


31105550 


083A 




0000 




A12 


DC 







31106230 












* 


MRT 


AND 


READ/BACK PATTERNS 


31105560 


083B 





6500 


1000 




LDX 




/lOOO 


31106240 












********************************^************ 


31105570 


083 D 




6D00 


0720 




STX 




SEND 


31106250 












* 








31iaSS80 


083F 




4C80 


083A 




BSC 




A12 


31106260 






070E 




084F 


PATNA 


DC 




A15 


31105590 


0841 





0000 




A13 


DC 







31106270 






07DF 




0848 




DC 




A14 


31105600 


0842 





6500 


2000 




LDX 




/2000 


31106280 






07E0 




0841 




DC 




A13 


31105610 


0844 




6000 


0720 




STX 




SEND 


31106290 






07E1 




083A 




DC 




A12 


31105620 


0846 




4C80 


0841 




BSC 




A13 


31106300 






07E2 




0833 




DC 




All 


31105630 


0848 





0000 




A14 


DC 







06310 






07E3 




082C 




DC 




AlO 


31105640 


0849 





6500 


4000 




LDX 




/4000 


31 106320 






07E4 




0825 




DC 




A9 


31105650 


084B 




6000 


0720 




STX 




SEND 


31106330 


' 




07E5 




081E 




DC 




A8 


31105660 


0840 




4C80 


0848 




BSC 




A14 


31106340 






07E6 




0817 




DC 




A7 


31105670 


084F 





0000 




A15 


DC 







06350 






07E7 




0810 




DC 




A6 


31105680 


0850 





6500 


8000 




LOX 




/8000 


31106360 






07E8 




0809 




DC 




A5 


31105690 


0852 




6D00 


0720 




STX 




SEND 


31 106370 






0TE9 




0802 




DC 




A4 


31105700 


0854 




4C80 


084F 




BSC 




A15 


31106380 






07EA 




07FB 




DC 




A3 


31105710 










* 








31106390 






07EB 




07F4 




DC 




A2 


31105720 










********************************************* 


31106400 






07EC 




07E0 




DC 




Al 


31105730 










* 


TRANSFER VECTOR FOR SCA BUFFER 


31106410 












* 








31105740 










* 


MRT 


AND 


READ/BACK PATTERNS 


31106420 












********************************************* 


31105750 










********************************************* 


31106430 












* 


WRITE READ/BACK PATTERNS 


31105760 










* ■ 








31106440 












********************************************* 


31105770 


0856 




08C7 




PATNB 


DC 




BIS 


31106450 












* 








31105780 


0857 




08C0 






DC 




B14 


31106660 






07ED 





0000 


Al 


DC 







31105790 


0858 




08B9 






DC 




B13 


31106470 






07EE 





6500 8000 




LOX 




/8000 


31105800 


0859 




08B2 






DC 




B12 


31106480 






07F0 


1 


6D00 0720 




STX 




SEND 


31105810 


085A 




08A6 






DC 




Bll 


31106490 






07F2 


1 


4C80 OTED 




BSC 




Al 


31105820 


0858 




08A4 






DC 




BIO 


31106500 






07F4 





0000 


A2 


DC 







31105830 


08 5C 




0890 






DC 




B9 


311«6StO 






07F5 





6500 4000 




LDX 




/4000 


31105840 


085D 




0896 






DC 




88 


31106520 






07F7 


1 


6000 0720 




STX 




SEND 


31105850 


085E 




088F 






DC 




87 


31106530 






07F9 


1 


4C80 07F4 




BSC 




A2 


31105860 


085F 




0888 






DC 




86 


31106540 






07FB 





0000 


A3 


DC 







31105870 


0860 




0881 






DC 




B5 


31106550 






07FC 





6500 2000 




LOX 




/2000 


31105880 


0861 




087A 






DC 




B4 


31106560 






07FE 


1 


6000 0720 




STX 




SEND 


31105890 


0862 




0873 






DC 




B3 


31106570 






0800 


1 


4C80 07FB 




BSC 




A3 


31105900 


0863 




086C 






DC 




B2 


311065*0 






0802 





0000 


A4 


DC 







31105910 


0864 




0865 






DC 




Bl 


31106590 






0803 





6500 1000 




LOX 




/lOOO 


31105920 










* 








31106600 






0805 


1 


6D00 0720 




STX 




SEND 


31105930 










*****•«*****••«*********•********«**•*****•** 


31106610 






0807 


1 


4C80 0802 




BSC 




A4 


31105940 










• 


WRITE READ/BACK PATTERNS 


31106620 






0809 





0000 


A5 


DC 







31105950 










********************************************* 


31106630 






08 OA 





6500 0800 




LDX 




/0800 


31105960 










* 








31106640 






080C 


1 


6000 0720 




STX 




SEND 


31105970 


0865 





0000 




81 


DC 







31106650 






080E 


1 


4C80 0809 




BSC 




A5 


31105980 


0866 





6500 


7F00 




LDX 




/7F00 


31106660 






0810 





0000 


A6 


DC 







31105990 


0868 




6D00 


0720 




STX 




SEND 


31106670 






0811 





6500 0400 




LOX 




/0400 


31106000 


086A 




4C80 


0865 




BSC 




81 


31106680 






0813 


1 


6D00 0720 




STX 




SEND 


31106010 


086C 





0000 




B2 


DC 







31106690 






0815 


1 


4C80 0810 




BSC 




A6 


31106020 


086D 





6500 


BFOO 




LOX 




/BFOO 


31106700 






0817 





0000 


A7 


DC 







31106030 


086F 




6000 


0720 




STX 




SEND 


31106710 






0818 





6500 0200 




LOX 




/0200 


31106040 


0871 




4C80 


086C 




BSC 




82 


31106720 






081A 


1 


6D00 0720 




STX 




SEND 


31106050 


0873 





0000 




63 


OC 







31106730 






08 LC 


1 


4C80 0817 




BSC 




A7 


31106060 


0874 





6500 


OFOO 




LDX 




/OFOO 


31106740 






081E 





0000 


A8 


DC 







31106070 


0876 




6000 


0720 




STX 




SEND 


31106750 






081F 





6500 0100 




LOX 




/OlOO 


31106080 


0878 




4C80 


0873 




BSC 




B3 


31106760 






0821 


1 


6D00 0720 




STX 




SEND 


31106090 


087A 





0000 




B4 


DC 







31106770 






0823 


1 


4C80 081E 




BSC 




A8 


31106100 


087B 





6500 


EFOO 




LDX 




/EFOO 


31106780 






0825 





0000 


A9 


DC 







31106110 


0870 




6000 


0720 




STX 




SEND 


31106790 






0826 





6500 0200 




LDX 




/0200 


31106120 


087F 




4C80 


087A 




BSC 




B4 


31106800 






0828 


1 


6000 0720 




STX 




SEND 


31106130 


0881 





0000 




B5 


OC 







31106810 




DATE 


15NGV56 01JUN70 
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6A 



0882 





6500 


F700 




LOX 




/F700 


0884 


1 


6D00 


0720 




STX 




SEND 


0886 


I 


4C80 


0881 




BSC 




B5 


0888 





0000 




B6 


OC 







0889 





6500 


FBOO 




LOX 




/FBOO 


0886 


1 


6D00 


0720 




STX 




SEND 


088D 


1 


4CB0 


088S 




BSC 




B6 


088F 





0000 




67 


DC 







0890 





6500 


FOOO 




LDX 




/FDOO 


0892 


1 


6D00 


0720 




STX 




SEND 


0894 


1 


4C80 


088F 




BSC 




B7 


0896 





0000 




B8 


OC 







0897 





6500 


FEOO 




LOX 




/FEOO 


0899 


1 


6D00 


0720 




STX 




SEND 


089B 


1 


4C80 


0896 




BSC 




B8 


089D 





0000 




B9 


DC 







089E 





6500 


FDOO 




LDX 




/FOOO 


08A0 


1 


6000 


0720 




STX 




SEND 


08A2 


1 


4C80 


0890 




BSC 




B9 


08A4 





0000 




BIO 


DC 







08A5 





6500 


FBOO 




LOX 




/FBOO 


08A7 


1 


6DO0 


0720 




STX 




SEND 


08A9 


I 


4C80 


08A4 




BSC 




810 


08AB 





0000 




Bll 


DC 







OeAC 





6500 


F700 




LDX 




/F700 


08 AE 


1 


6000 


0720 




STX 




SEND 


08B0 


1 


4C80 


08AB 




BSC 




Bll 


08B2 





0000 




B12 


OC 







08B3 





6500 


EFOO 




LOX 




/EFOO 


08B5 


1 


6000 


0720 




STX 




SEND 


08B7 


I 


4C80 


08B2 




BSC 




812 


0889 


c 


0000 




813 


OC 







OSBA 





6500 


DFOO 




LDX 




/OFOO 


08BC 


1 


6000 


0720 




STX 




SEND 


08BE 


1 


4C80 


08B9 




BSC 




B13 


08C0 





0000 




B14 


OC 







08C1 





6500 


BFOO 




LOX 




/BFOO 


08C3 


1 


6D00 


0720 




STX 




SEND 


08C5 


1 


4C80 


08C0 




BSC 




B14 


08C7 





0000 




B15 


OC 







08C8 





6500 


7F00 




LDX 




/7F00 


oecA 


1 


6000 


0720 




STX 




SEND 


OSCC 


1 


4C80 


08C7 




BSC 




B15 



08CE 




C400 


05E0 


L0G02 LO 




SMI 


0800 




9400 


0B37 


S 




K0005 


08D2 




4820 




BSC 




Z 


0803 





7002 




MDX 




L0G02&8 


0804 




4400 


063A 


BSI 




CNTRL 


0806 




6700 


0A5C 


LOX 


L3 


A0R8 


08D6 




6F00 


OADD 


STX 


L3 


TABLEe3 


080A 





6302 




LOX 


3 


2 


080B 




6FO0 


OAOA 


STX 


L3 


TABLE 


0800 





6300 




LDX 


3 





OBOE 




6F00 


OAOC 


STX 


L3 


TABLE62 


08EO 




OCOO 


0712 


XIO 




B20N 


08E2 




4480 


0163 


BSI 




LOG 


08E4 




OAOA 




DC 




TABLE 


08E5 




OCOO 


0714 


XIO 




BZOFF 


08E7 




4C00 


07C7 


BSC 
BFRER STX 




HNGUP 


08E9 




6C00 


068F 




PRTSW 


08EB 




6B1E 




STX 


3 


XR3ei 


08EC 




4400 


0664 


BSI 




SNDSW 


DATE 15N0V66 01JUN70 








EC NO. 419643 571097 









* RESET ADAPTER AND HANG UP TELEPHONE 

CK FOR LOOP RTN OPT 
CHK FOR NOISE RTN 

LOOP NOISE ROUTINE 

GO TO CONTROL 

SET UP RESET MESSAGE 



EXECUTE ALARM ON 
LOG RESET MESSAGE 

EXECUTE ALARM OFF 
GO TERMINATE ROUTINE 

TURN ON ERROR SH 
SAVE REGISTER 3 
GO MAKE ANALYSIS 



31106820 
31106830 
31106840 
31106850 
31106860 
31106870 
31106880 
31106890 
31106900 
31106910 
31106920 
31106930 
31106940 
31106950 
31106960 
31106970 
31106980 
31106990 
31107000 
31107010 
31107020 
31107030 
31107040 
31107050 
31107060 
31107070 
31107080 
31107090 
31107100 
31107110 
31107120 
31107130 
31107140 
31107150 
31107160 
31107170 
31107180 
31107190 
31107200 
31107210 
31107220 
31107230 
31107240 
31107250 
31107260 
31107270 
31107280 
31107290 
31107300 
31107310 
31107320 
31107330 
31107340 
31107350 
31107360 
31107370 
31107380 
31107390 
31107400 
31107410 
31107420 
31107430 
31107440 
31107450 
31107460 
31107470 
31107480 
31107490 



PROG ID 
PAGE 



08EE 





6305 




LOX 


3 


5 


08EF 




6F00 


OAOA 


STX 


L3 


TABLE 


08F1 




C400 


0B36 


LO 


L 


K0003 


08F3 




0400 


OADC 


STO 


L 


TABLEE2 


08F5 




6700 


0A36 


LOX 


L3 


ADR5 


08F7 




6F00 


OAOO 


STX 


L3 


TABLE63 


08F9 




C400 


0720 


LO 


L 


SEND 


08FB 




0400 


OAEO 


STO 


L 


TABLEE6 


08FD 




C400 


071F 


LO 


L 


RCVED 


08FF 




0400 


OAOF 


STO 


L 


TABLE&5 


0901 




OCOO 


0712 


XIO 


L 


BZON 


0903 




4480 


0162 


BSI 


I 


ERROR 


0905 




OAOA 




OC 




TABLE 


0906 




0A7O 




OC 




LOPRT 


0907 




OCOO 


0714 


XIO 


L 


BZOFF 


0909 




6700 


0000 


XR3 LOX 


L3 


*-* 


090B 




4C80 


06EC 


BSC 

NOISE LOX 


I 


BFRCK 


0900 




6306 




3 


6 


090E 




6F00 


OAOA 


STX 


L3 


TABLE 


0910 




6300 




LOX 


3 





0911 




6F00 


0A7D 


STX 


L3 


LOPRT 


0913 




C400 


0B35 


LO 


L 


KOOOl 


0915 




0400 


OADC 


STO 


L 


TABLEe2 


0917 




6700 


0A44 


LDX 


L3 


ADR6 


0919 




6F00 


OAOO 


STX 


L3 


TABLE£3 


091 B 




OCOO 


0712 


XIO 


L 


BZON 


0910 




4480 


0162 


BSI 


I 


ERROR 


091F 




OAOA 




DC 




TABLE 


0920 




0A70 




DC 




LOPRT 


0921 




OCOO 


0714 


XIO 


L 


BZOFF 


0923 




OCOO 


0710 


XIO 


L 


ENOOP 


0925 




OCOO 


0708 


XIO 


L 


STRD 


0927 




4400 


07B1 


BSI 


L 


OLYTM 


0929 




OCOO 


070A 


XIO 


L 


STST 


092B 




4C00 


07 A9 


BSC 


L 


CNTER 



0920 0080 
092E 0080 



092F 0000 
0930 1000 



0931 0000 

0932 1 0400 OAEO 
0934 1 0400 0AE6 
0936 1 4400 096C 
0938 I 4C80 0931 



093A 1 0400 OAEO 
093C 1 0400 OAEE 
093E 1 4400 097A 
0940 1 4C00 0683 



SET UP HSG ID 

MODIFIERS 2 
SET UP MODIFIER 

SET UP ALPHA MSG 

S/B PATTERN SENT TO BFR 

MAS PATTERN RO FROM BFR 

EXECUTE ALARM ON 
GO PRINT 

LOOP AODR 
EXECUTE ALARM OFF 
RESTORE REG 3 
EXIT TO RETURN 



SET UP HSG ID 

INHIBIT LOOP ON ERR 

SET UP MODIFIER 

SET UP ALPHA MSG 
EXECUTE ALARM ON 
GO PRINT 



EXECUTE ALARM OFF 
EXECUTE ENOOP 
EXECUTE START READ 
GO TO DELAY 
INHIBIT TIMEOUT INT 
RETURN TO ROUTINE 



* PREDETERMINED VALUES FOR SCA DSU. THESE 

* VALUES ARE PRINTED OUT AS S/B, SHOULD BE 

* OSM WHEN A DISCREPANCIE EXIST. 

* 

DSWOO OC /0080 
DSHOl DC /0080 

* PREDETERMINE VALUES FOR SCA DIAGNOSTIC 
« WORDS 1 AND 2 COMBINED 

* 

OIAOO OC /OOOO 
DIAOl OC /lOOO 

* 

« 



STORl OC 
STO 
STO 
BSI 
BSC 

* 

* 

ST0R2 STO 
STO 
BSI 
BSC 


L 
L 
L 
I 


*-* 

STWD 

OSMXX 

ANALl 

STORl 


SAVED RETURN AODR 
STORE S/B DSH WORD 
STORE S/B DSW WORD 
GO TO ANAL. 1 
EXIT TO RETURN 


*4t«*4:«*«***4<**********)|<***4c**4>***** 


L 
L 
L 
L 


STHO 
DIAXX 
ANAL2 
RETRN 


STORE S/B OIAG WORD 
STORE S/B DIAG WORD 
GO TO ANAL. 2 
BRANCH TO RETRN 



0311-0 
6 



DATE 
EC NO. 



15NGV66 
419643 



01 JUNTO 
571097 



31107500 
31107510 
31107520 
31107530 
31107540 
31107550 
31107S60 
31107570 
31107580 
31107590 
31107600 
31107610 
31107620 
31107630 
31107640 
31107650 
31107660 
31107670 
311O76B0 
31107690 
31107700 
31107710 
11107720 
31107730 
311077^0 
311Q77S0 
3110T760 
31107770 
31107780 
31107790 
31107600 
31107810 
31107820 
31107830 
3110T840 
91107850 
31 107860 
31 107870 
31107880 
31107890 
31107900 
31107910 
31107920 
31107930 
31107940 
31107950 
31107960 
31107970 
31107980 
81107990 
31108000 
31108010 
31 108020 
31108030 
31108040 
31108050 
31108060 
31108070 
31108080 
31108090 
31108100 
31108110 
31108120 
31108130 
31108140 
31108150 
31108160 
3110B170 
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^*4c************************* ***************** 



LOAD BRANCH SW I 
CHK IF IT IS ON 
BRANCH SW 1 IS ON 
LOAD BRANCH SW 2 
CHK IF IT IS ON 
BRANCH 2 IS ON 
BRANCH TO RETURN 

LOAD BRANCH SW 00 
GO STORE IT 
LOAD S/B DIAG WORD 
GO STORE 2 

LD S/B DSMOl WORD 
GO STORE IT 
LD S/B DIAG 01 WORD 
GO STORE 2 

LD BRANCH SH 1 
OONT BR IF OFF 
RETURN 

LD S/8 OSW MORO 

LD S/B DIAG WORD 
GO STORE 2 

LOAD BRANCH SHT 1 
OONT BRANCH IF OFF 
RETURN 

LD S/B OSW WORD 

LD S/B DIAG MORO 
GO STORE 2 



********************************************* 
♦ CHECK TO SEE IF DSH ERROR EXISTS 
********************************************* 



SAVED RETURN ADDR 
LOAD SENSED DSW 
EOR WITH S/B DSW 
STORE IN DSW ERR BIT 
CHK IF ERR BITS ON 
ERR BITS ARE ON 
ERR BITS ARE NOT ON 
CHK WHICH BITS ON 
BRANCH TO RETURN ADR 



********************************************* 
* CHECK TO SEE IF DIAG TRIG ERROR EXISTS 
********************************************* 

* 



0942 1 C400 09D1 


RESAN 


LD 


L 


BNSWl 


09*4 4820 




BSC 




Z 


0945 7006 




MDX 




RESTl 


0946 1 C400 09D2 




LD 


L 


BNSU2 


0948 4820 




BSC 




Z 


0949 7007 




MDX 




REST2 


094A 1 4C00 0683 


RESTl 


BSC 


L 


RETRN 


094C COED 


LD 




OSWOO 


094D 1 4400 0931 




BSI 


L 


STORl 


094F CODF 




LD 




DIAOO 


0950 70E9 


REST2 


MDX 




ST0R2 


0951 CODC 


LD 




DSUOl 


0952 1 4400 0931 




BSI 


L 


STORl 


0954 CODB 




LD 




DIAOl 


0955 70E4 


* 
RDAN 


MDX 




ST0R2 


0956 1 C400 09D1 


LD 


L 


BNSWl 


0958 1 4C20 095C 




BSC 


L 


RTROl, Z 


095A 1 4C00 0683 


* 
RTROl 


BSC 


L 


RETRN 


095C CODO 


LO 




OSWOO 


095D 1 4400 0931 




BSI 


L 


STORl 


095F COCF 




LO 




DIAOO 


0960 7009 


* 
WRTAN 


MDX 




ST0R2 


0961 1 C400 0901 


LD 


L 


BNSWl 


0963 1 4C20 0967 


t 


BSC 


L 


WTROl tZ 


0965 1 4C00 0683 


* 
WTROl 


BSC 


L 


RETRN 


0967 C0C5 


LD 




DSWOO 


096 8 1 4400 0931 




BSI 


L 


STORl 


096A C0C4 




LD 




DIAOO 


096B 70CE 




MDX 




ST0R2 



096C 0000 




* 
ANALl 


DC 




*-* 


0960 1 C400 


0AE8 




LD 


L 


CAOSU 


096F 1 F400 


0AE6 




EOR 


L 


OSHXX 


0971 1 D400 


0AE7 




STO 


L 


OSWRD 


0973 4820 






BSC 




Z 


0974 7001 






MDX 




ANLOl 


0975 7002 






MDX 




ANL01&2 


0976 1 4400 


0988 


ANLOl 


BSI 


L 


DSMAN 


0978 1 4C80 


096C 




BSC 


I 


ANALl 



097A 
097B 1 
09 7D 1 
097F I 

0981 

0982 

0983 

0984 1 
0986 



0000 

C400 07 IC 
F400 OAEE 
D400 OAEF 
4820 
7001 
7002 

4400 0A81 
1 4C80 097A 



ANAL2 DC 
LO 
EOR 
STO 
BSC 
MDX 
MDX 

ANL02 BSI 
BSC 



*-* SAVED RETURN ADDR 

DIAWD LD DIAGNOSTIC 

DIAXX EOR WITH S/B DIAG WD 

TRGWD SET IN DIAG ERR BITS 

Z CHKIF ERR BITS ON 

ANL02 ERROR BITS ARE ON 

ANL02E2 ERR BITS ARE NOT ON 

TRGAN CHK WHICH ERR BIT ON 

ANAL2 BRANCH TO SAVED ADDR 



* 
********************************************* 



31108180 

31108190 

31108200 

31108210 

31108220 

31108230 

31108240 

31108250 

31108260 

31108270 

31108280 

31108290 

31108300 

31108310 

31108320 

31108330 

31108340 

31108350 

31108360 

31108370 

31108380 

31108390 

31108400 

31108410 

31108420 

31108430 

31108440 

31108450 

31108460 

31108470 

31108480 

31108490 

31108500 

31108510 

31108520 

31108530 

31108540 

31108550 

31108560 

31108570 

31108580 

31108S90 

31108600 

31108610 

31108620 

31108630 

31108640 

31108650 

31108660 

31108670 

31108680 

31108690 

31108700 

31108710 

31108720 

31108730 

31108740 

31108750 

31108760 

31108770 

31108780 

31108790 

31108800 

31108810 

31108820 

31108830 

31108840 

31108850 



0988 0000 


DSWAN 


DC 




*-* 


SAVED RETURN ADDRESS 


0989 1 C400 0AE8 




LD 


L 


CADSW 


LOAD OSW WAS 


098B I E400 0AE7 




AND 


L 


DSMRD 


AND WITH DSW ERR 


098D 1 D400 09CF 




STO 


L 


DSMMl 


STORE ON/F ERR BITS 


098F 1 C400 0AE7 




LD 


L 


DSWRO 


LOAD OSW ERR BITS 


0991 1 F400 09CF 




EOR 


L 


DSMMl 


EOR WITH ON/F ERR 


0993 1 0400 09D0 




STO 


L 


DSWW2 


STORE DSW F/ON ERR 


0995 1 4400 09D3 




BSI 


L 


MSGID 


CHK C.E. BITS 


0997 6302 




LDX 


3 


2 


SET UP MSG ID 


0998 1 6F00 OAOA 




STX 


L3 


TABLE 




099A 6700 007F 




LOX 


L3 


/007F 




099C 1 6F00 OAOC 




STX 


L3 


TABLE&2 


SET IN MODIFIER ID 


099E I 6700 09DE 




LDX 


L3 


AORl 


LD ALPHA 1 ADDR 


09A0 1 6F00 OAOD 




STX 


L3 


TABLE&3 


SET UP ALPHA MSG 


09A2 1 C400 09CF 




LD 


L 


DSMMl 


LOAD ON/F ERR BITS 


09 A4 1 0400 0AE3 




STO 


L 


TABLEe9 


• 


09A6 1 C400 0900 




LD 


L 


DSMM2 


LOAD F/ON ERR BITS 


09A8 1 D400 0AE4 




STO 


L 


TABLEKIO 




09AA 1 C400 0AE6 




LD 


L 


OSMXX 


LD OSW SWMILD/BE 


09AC 1 0400 0AE2 




STO 


L 


TABLECB 


SET UP ERR MESSAGE 


09AE 1 C4Q0 0AE8 




LD 


L 


CADSM 


LOAD SENSED DSW 


0980 1 0400 OAEl 




STO 


L 


TABLE&7 


SET UP ERR MESSAGE 


09B2 1 C400 0725 




LO 


L 


0IAM2 


LD DIAG MO 2 HAS 


09B4 1890 




SRT 




16 


MASK C.E. BITS 


09B5 1010 




SLA 




16 




09B6 1086 




SLT 




6 




09B7 lOOA 




SLA 




10 




09B8 1 0400 OAEO 




STO 


L 


TABLE&6 


SET UP ERR MESSAGE 


09BA 1 C400 0724 




LO 


L 


01 AMI 


LO DIAG HO 1 MAS 


09BC 1 0400 OADF 




STO 


L 


TABLE&5 


SET UP ERR MESSAGE 


09BE 1 OCOO 0712 




XIO 


L 


BZON 


EXECUTE ALARM ON 


09C0 4480 0162 




BSI 


I 


ERROR 


GO PRINT ERROR 


09C2 1 OAOA 




DC 




TABLE 


MESSAGE TABLE 


09C3 1 0A70 




DC 




LOPRT 


LOOP ADDRESS 


09C4 1 OCOO 0714 




XIO 


L 


BZOFF 


EXECUTE ALARM OFF 


09C6 6300 




LOX 


3 







09C7 1 6F00 09CF 




STX 


L3 


DSMMl 


RESET OFF.S/B ON 


09C9 1 6F00 09D0 




STX 


L3 


0SMM2 


RESET QN,S/8 OFF 


09CB 1 6F00 0AE7 




STX 


L3 


OSMRD 


RESET BIT ERR ID MD 


09CD 1 4C80 0988 


MRDCK 

* 
***** 


BSC 


I 


DSMAN 


EXIT TO RETURN 




**************************************** 




* 


DSW 


ANALYSIS SWITCHES t STORAGE 




********************************************* 


09CF 0000 


DSWWl 


OC 




*-* 




0900 0000 


0SWW2 


DC 




*-* 




09D1 0000 


BNSWl 


OC 




*^* 


BRANCH SM NO. 01 


09D2 0000 


BNSH2 


OC 




*-« 


BRANCH SM NO. 02 




**«***************•*««******•****•****•«*•*•* 


0903 0000 


MSGIC 


1 DC 




*-* 




0904 1 C400 07 ID 




LO 


L 


DIAMOCl 


LO DIAG MD 2 HAS 


0906 1890 




SRT 




16 


FETCH C.E. BITS 


09D7 1010 




SLA 




16 




09D8 1083 




SLT 




3 




09D9 1007 




SLA 




7 




090A 1 D400 0AE5 




STO 


L 


TABLEGll 


STORE C.E. BITS 


09DC 1 4C80 09D3 




BSC 


I 


MSGID 


EXIT TO RETURN 



09DE 3292 
09DF FC21 
09E0 2132 



* 
********************************************* 

* ALPHA MESSAGE FOR DSM ERROR 

********************************************* 

* 

ADRl OC /3292 DM 

DC /FC21 I 

DC /2132 D 



31108860 

31108870 

31108880 

31108890 

31108900 

31108910 

31108920 

31108930 

31108940 

31108950 

31108960 

31108970 

31108980 

31108990 

31109000 

31109010 

31109020 

31109030 

31109040 

31109050 

31109060 

31109070 

31109080 

31109090 

31109100 

31109110 

31109120 

31109130 

31109140 

31109150 

31109160 

31109170 

31109180 

31109190 

31109200 

31109210 

31109220 

31109230 

31109240 

311092S0 

31109260 

31109ZT0 

31109280 

31109290 

31109300 

31109310 

31109320 

31109330 

31109340 

311093S0 

31109360 

31109370 

31109380 

31 109390 

31109400 

31109410 

31109420 

31109430 

31109440 

31109450 

31109460 

31109470 

31109480 

31109490 

31109500 

31109510 

31109520 

31109530 



DATE 

EC NO. 



15N0V66 
419643 



01JUN70 
571097 



PROG to 
PAGE 



0311-0 
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09E1 





92D8 


09E2 





2121 


09E3 





923E 


09E4 





9A21 


09E5 





2I9A 


09E6 





BCIA 


09E7 





2121 


09E8 





5276 


09E9 





BC12 


09EA 





2112 


09EB 





BC52 


09EC 





7621 


09ED 





061 E 


09EE 





3606 


09EF 





2132 


09F0 





9A92 


09F1 





2136 


09F2 





6262 


09F3 





FFFF 



09F4 





329A 


09F5 





9221 


09F6 





2108 


09F7 





923E 


09F8 





9A21 


09F9 





FC92 


09FA 





3E9A 


09FB 





21FC 


09FC 





9 ABC 


09FD 





1A21 


09FE 





5276 


09FF 





BC12 


OAOO 





2112 


OAOl 





BC52 


0A02 





7621 


0A03 





061E 


OA04 





36D6 


0AO5 





2132 


0A06 





92FC 


0A07 





2136 


0A08 





6262 


0A09 





FFFF 



DC 


/92D8 


W2 


DC 


/2121 




DC 


/923E 


HA 


DC 


/9A21 


S 


DC 


/219A 


S 


DC 


/BCIA 


/B 


DC 


/2121 




DC 


/5276 


ON 


DC 


/BC12 


/F 


OC 


/2112 


F 


DC 


/BC52 


/O 


DC 


/7621 


N 


OC 


/D61E 


*C 


OC 


/36D6 


E* 


OC 


/2132 





DC 


/9A92 


SM 


DC 


/2136 


E 


OC 


/6262 


RR 


DC 


/FFFF 


TERMINATOR 



* ALPHA MESSAGE FOR 01 AG WORD 1 ERROR 
ADR2 



DC 


/329A 


OS 


DC 


/9221 


M 


DC 


/21D8 


2 


w; 


/923E 


UA 


OC 


/9A21 


S 


DC 


/FC92 


IM 


OC 


/3E9A 


AS 


DC 


/21FC 


1 


DC 


/9ABC 


S/ 


DC 


/1A21 


B 


DC 


/5276 


ON 


DC 


/BC12 


/F 


OC 


/2112 


F 


DC 


/BC52 


/O 


OC 


/7621 


N 


DC 


/061E 


*C 


DC 


/3606 


E* 


OC 


/2132 





DC 


/92FC 


Wl 


OC 


/2136 


E 


DC 


/6262 


RR 


DC 


/FFFF 


TERMINATOR 



* ALPHA MESSAGE FOR OIAG MORD 2 ERROR 

* 



OAOA 





329A ADR3 DC 


/329A 


OS 


OAOB 





9221 


DC 


/9221 


W 


OAOC 





21FC 


DC 


/21FC 


1 


OAOD 





923E 


OC 


/923E 


MA 


OAOE 





9A21 


DC 


/9A21 


S 


OAOF 





0892 


DC 


/D892 


2M 


OAIO 





3E9A 


OC 


/3E9A 


AS 


OAll 





21D8 


DC 


/2108 


2 


0A12 





9ABC 


DC 


/9ABC 


5/ 


0A13 





1A21 


OC 


/1A21 


B 


OAl^ 





5276 


DC 


/5276 


ON 


0A15 





BC12 


OC 


/BC12 


/F 


0A16 





2112 


DC 


/2112 


F 


0A17 





BC52 


DC 


/BC52 


/O 


0A18 





7621 


OC 


/7621 


N 


0A19 





D61E 


OC 


/D61E 


♦C 


OAIA 





36D6 


OC 


/36D6 


E* 


DATE 15N0V66 01JUN70 








EC NO. *19643 571097 









31109540 


OAIB 2132 


31109550 


OAIC 9208 


31109560 


OAID 2136 


31109570 


OAIE 6262 


31109580 


OAIF FFFF 


31109590 




31109600 




31109610 




31109620 




31109630 




31109640 


0A20 3292 


31109650 


0A21 FC21 


31109660 


0A22 2132 


31109670 


0A23 9208 


31109680 


0A24 2121 


31109690 


0A25 329A 


31109700 1 


0A26 9221 


31109710 


0A27 2152 


31109720 


0A28 76BC 


31109730 


0A29 1221 


31109740 


0A2A 12BC 


31109750 


0A2B 5276 


31109760 


0A2C 2106 


31109770 


0A20 1E36 


31109780 


0A2E 0621 


31109790 


0A2F 2121 


31109800 


0A3O 2121 


31109810 


0A31 2122 


31109820 


0A32 769 E 


31109830 


0A33 2136 


31109840 


0A34 6262 


31109850 


0A35 FFFF 


31109860 




31109870 




31109880 




31109890 




31109900 




31109910 


0A36 923E 


31109920 


0A37 9A21 


31109930 


0A38 2 19 A 


31 109940 


0A39 BCIA 


31109950 


0A3A 2121 


31109960 


0A3B 1A12 


31109970 


0A3C 6221 


31109980 


0A30 9262 


31109990 


0A3E 9EBC 


31110000 


0A3F 6232 


31110010 


0A40 2136 


31110020 


0A41 6262 


31110030 


0A42 5262 


31110040 


0A43 FFFF 


31110050 




31110060 




31110070 




31110080 




31110090 




31110100 


0A44 923E 


31110110 


0A45 9A21 


31110120 


0A46 215E 


31110130 


0A47 2276 


31110140 


0A48 3621 


31110150 


0A49 7652 


31110160 


0A4A 229A 


31110170 


0A4B 3621 


31110180 


0A4C FFFF 


31110190 




31110200 




31110210 




PROG ID 0311-0 


DATE 15N0V66 01JUN70 


PAGE 8 


EC NO. 419643 571097 



OC 


/2132 


D 


OC 


/92D8 


W2 


OC 


/2136 


E 


DC 


/6262 


RR 


DC 


/FFFF 


TERMINATOR 



♦ ALPHA MESSAGE FOR INTERRUPT ERROR 

* 
ADR 4 



DC 


/3292 


OW 


DC 


/FC21 


1 


DC 


/2132 


D 


OC 


/9208 


M2 


OC 


/2121 




OC 


/329A 


OS 


DC 


/9221 


'M 


DC 


/2152 





DC 


/76BC 


N/ 


OC 


/1221 


. F 


OC 


/12BC 


F/ 


OC 


/5276 


ON 


OC 


/21D6 


* 


OC 


/1E36 


CE 


OC 


/0621 


* 


OC 


/2121 




OC 


/2121 




DC 


/2122 


I 


DC 


/769E 


NT 


DC 


/2136 


E 


DC 


/6262 


RR 


OC 


/FFFF 


TERMINATOR 



* ALPHA MESSAGE FOR BUFFER URT/RD ERROR 

ADR 5 



OC 


/923E 


WA 


OC 


/9A21 


S 


OC 


/219A 


S 


OC 


/BCIA 


/B 


OC 


/2121 




DC 


/1A12 


BF 


OC 


/6221 


R 


DC 


/9262 


MR 


OC 


/9EBC 


T/ 


OC 


/6232 


RO 


DC 


/2136 


E 


OC 


/6262 


RR 


DC 


/5262 


OR 


OC 


/FFFF 


TERMINOR 



* ALPHA MESSAGE FOR LINE NOISE ERROR 

ADR 6 



OC 


/923E 


MA 


DC 


/9A21 


S 


DC 


/215E 


L 


OC 


/2276 


IN 


DC 


/3621 


E 


DC 


/7652 


NO 


OC 


/229A 


IS 


DC 


/3621 


E 


DC 


/FFFF 


TERMINATOR 



♦*♦*****♦♦♦**♦***♦*****♦♦*♦♦*************••♦♦ 

♦ ALPHA MESSAGE FOR SET UP DATA SET 



31110220 

31110230 

31110240 

31110250 

31110260 

31110270 

31110280 

31110290 

31110300 

31110310 

31110320 

31110330 

31110340 

31110350 

31110360 

31110370 

31110380 

31110390 

31110400 

31110410 

31110420 

31110430 

31110440 

31110450 

31110460 

31110470 

31110480 

31110490 

31110500 

31110510 

31110520 

31110530 

31110540 

31110SS0 

31110560 

31110570 

31110580 

31110590 

31110600 

31110610 

31110620 

31110630 

31110640 

311106S0 

31110660 

311106T0 

31110680 

31110690 

31110700 

31110710 

31110720 

31110730 

31110740 

31110750 

31110760 

31110770 

31110780 

31110790 

31110800 

31110810 

31110820 

31110830 

31110840 

31110850 

31110860 

31110870 

31110880 

31110890 
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0A40 





9A36 


0A4E 





9E21 


0A4F 





B256 


0A5O 





2132 


0A51 





3E9E 


0A52 





3E21 


0A53 





9A36 


0A54 





9E21 


0A55 





IE52 


0A56 





7676 


OAST 





361E 


0A58 





9E22 


bA59 





5276 


0A5A 





9A21 


OASB 





FFFF 



* 
ADR 7 



0A5C 





6236 


0A50 





9A36 


0A5E 





9E21 


0A5F 





3E32 


0A60 





3E56 


0A61 





9E36 


0A62 





6221 


0A63 





3E76 


0A64 





3221 


0A6S 





263E 


0A66 





7616 


0A67 





21B2 


0A68 





5621 


0A69 





5626 


0A6A 





5276 


0A6B 





3621 


0A6C 





FFFF 



DC 


/9A36 


SE 


DC 


/9E21 


T 


DC 


/B256 


UP 


DC 


/2132 


D 


DC 


/3E9E 


AT 


DC 


/3E21 


A 


DC 


/9A36 


, SE 


DC 


/9E21 


T 


DC 


/1E52 


CO 


DC 


/7676 


NN 


DC 


/361E 


EC 


DC 


/9E22 


Tl 


DC 


/5276 


ON 


DC 


/9A21 


S 


DC 


/FFFF 


TERMINATOR 



* ALPHA MESSAGE FOR RESET DATA SET 
»*********4i* ******* *«*«i*4i**4<4[«***«i«**«4i4t**4i** 

ADR 8 



DC 


/6236 


RE 


DC 


/9A36 


SE 


DC 


/9E21 


T 


DC 


/3E32 


AD 


DC 


/3E56 


AP 


DC 


/9E36 


TE 


DC 


/6221 


R 


DC 


/3E76 


AN 


DC 


/3221 





DC 


/263E 


HA 


DC 


/7616 


NG 


DC 


/21B2 


U 


DC 


/5621 


P 


DC 


/5626 


PH 


DC 


/5276 


ON 


DC 


/3621 


E 


DC 


/FFFF 


TERMINATOR 



0A6D 





5E22 


0A6E 





7636 


0A6F 





2176 


0A70 





5222 


0A71 





9A36 


0A72 





2162 


0A73 





52B2 


0A7* 





9E22 


0A75 





7636 


0A76 





219E 


0A77 





3662 


0A78 





7222 


0A79 





763 E 


0A7A 





9E36 


0A78 





3221 


0A7C 





FFFF 


0A7D 


1 


6C00 06C2 


0A7F 


1 


4C00 069C 



* ALPHA MESSAGE FOR LINE NOISE TERMINATE 

LI 

NE 

N 
01 
SE 

R 
OU 
TI 
NE 

T 
ER 
HI 
NA 
TE 

D 
TERMINATOR 

TURN ON LOOP ON ERR 
GO TO HOUSE/KEEP RTN 

* 

^**i^L4Lt^if1ft:*f ********************************** 

* 01 AG TRIGGER ANALYSIS 

* COMPARES *WAS* TRIGGERS WITH S/B 

* TRIGGERS AND ANALIZES ANY ERROR 



* 






A0R9 


DC 


/5E22 




DC 


/7636 




DC 


/2176 




DC 


/5222 




DC 


/9A36 




DC 


/2162 




DC 


/52B2 




DC 


/9E22 




DC 


/7636 




DC 


/219E 




DC 


/3662 




DC 


/7222 




DC 


/763E 




DC 


/9E36 




DC 


/3221 




DC 


/FFFF 


* 






LOPRT 


SIX 


L LOOPE 




BSC 


L OFFEl 



OATF 
EC NO. 



15N0V66 
A19643 



01JUN70 
571097 



31110900 










********************************************* 


31111580 




31110910 










* 








31111590 




31110920 


0A81 





0000 




TRGAN DC 




*-* 


SAVED RETURN ADDRESS 


31111600 




31110930 


0A82 


1 


C400 


OAEE 


LD 


L 


DIAXX 


LO COHBINDEO DIAGS 


31111610 




31110940 


0A84 





1890 




SRT 




16 




31111620 




31110950 


0A85 





1010 




SLA 




16 




31111630 




31110960 


0A86 





1089 




SLT 




9 




31111640 




31110970 


0A87 





1007 




SLA 




7 




31111650 




31110980 


0A88 





D060 




STO 




DIAXl 


STORE DIAG 1 HAS 


31111660 




31110990 


0A89 





1010 




SLA 




16 




31111670 




31111000 


0A8A 





1086 




SLT 




6 




31111680 




31111010 


OASB 





lOOA 




SLA 




10 




31111690 




31111020 


0A8C 





D05D 




STO 




0IAX2 


STORE DIAG 2 HAS ' 


31111700 




31111030 


0A8D 


1 


C400 


OAEF 


LO 


L 


TRGWD 


LOAD 01 A ERROR BITS 


31111710 




31111040 


0A8F 





1890 




SRT 




16 




31111720 




31111050 


0A90 





1010 




SLA 




16 


■ 


31111T30 




31111060 


0A91 





1089 




SLT 




9 




31111740 




31111070 


0A92 





1007 




SLA 




7 




31111750 




31111080 


0A93 





0057 




STO 




TRMDl 


STORE DIAG UD 1 ERR 


31111760 




31111090 


0A94 





1010 




SLA 




16 




31111770 


' 


31111100 


0A95 





1086 




SLT 




6 




311117S0 




31111110 


0A96 





lOOA 




SLA 




10 




31111790 




31111120 


0A97 





D054 




STO 




TRMD2 


STORE DIAG HO 2 ERR 


31111800 




31111130 


0A98 





C052 




LD 




TRHDl 


LD DIAG HO 1 HAS 


31111810 




31111140 


0A99 





4820 




BSC 




Z 


CHECK FOR ERR BIT ON 


31111820 




31111150 


0A9A 





7031 




HDX 




CKIT2 


INITIAL ERR BIT CHK. 


31111830 




31111160 


0A9B 





7056 




MOX 




UOICK 


GO CHK DIAG HO 2 


31111840 




31111170 










* 








31111850 




31111180 


0A9C 


1 


4400 


09D3 


WOl BSI 


L 


MSGIO 


CHK FOR C.E. BITS 


31111860 




31111190 


0A9E 





6303 




LDX 


3 


3 




31111870 




31111200 


0A9F 


1 


6F00 


OADA 


STX 


L3 


TABLE 


SET UP MSG ID 


31111880 




31111210 


OAAl 





637F 




LDX 


3 


/007F 




31111890 




31111220 


0AA2 





6B39 




STX 


3 


TABLE&2 


SET UP MODIFIER ID 


31111900 




31111230 


0AA3 


1 


6700 


09F4 


LDX 


L3 


A0R2 


LO ALPHA 2 AOOR 


31111910 




31111240 


0AA5 





6837 




STX 


3 


TABLEC3 




31111920 




31111250 


0AA6 


1 


C400 


OAFO 


LO 


L 


TGMDl 


LO ON/F ERROR BITS 


31111930 




31111260 


0AA8 





D03A 




STO 




TABLE&9 




31111940 




31111270 


0AA9 


1 


C400 


OAFl 


LO 


L 


T6UD2 


LD F/ON ERROR BITS 


31111950 




31111280 


OAAB 





D038 




STO 




TABLECIO 




31111960 




31111290 


i OAAC 





C03C 




LO 




OIAXl 


LD DIAG HD 1 S/B 


31111970 




31111300 


OAAO 





D034 




STO 




TABLEC8 




31111980 




31111310 


OAAE 


1 


C400 


0724 


LD 


L 


DIAWl 


LO 01 AG HD 1 HAS 


31111990 




31111320 


OABO 





DO 30 




STO 




TABLEaT 




31112000 




31111330 


OABl 


1 


C400 


0725 


LD 


L 


DIAW2 


LD DIAG UD 2 HAS 


31112010 




31111340 


0AB3 





1890 




SRT 




16 


MASK OUT C.E. BITS 


31112020 




31111350 


0AB4 





1010 




SLA 




16 




3111Z030 




31111360 


0AB5 





1086 




SLT 




6 




31112040 




31111370 


0AB6 





lOOA 




SLA 




10 




31112050 




31111380 


0AB7 





0028 




STO 




TABLEC6 




31112060 




31111390 


0AB8 


1 


C400 


0AE8 


LO 


L 


CADSM 


LOAD DSH HAS 


311I20T0 




31111400 


OABA 





D024 




STO 




TABLE£5 




31112080 




31111410 


OABB 


1 


OCOO 


0712 


XI 


L 


BZON 


EXECUTE ALARM ON 


31112090 




31111420 


OABO 





4480 


0162 


BSI 


I 


ERROR 


GO PRINT ERROR 


31112100 




31111430 


OABF 


1 


OADA 




DC 




TABLE 


MESSAGE TABLE 


31112110 




31111440 


OACO 


1 


0A7D 




DC 




LOPRT 


LOOP ADDRESS 


31112120 




31111450 


OACl 


1 


OCOO 


0714 


XIO 


L 


BZOFF 


EXECUTE ALARM OFF 


31112130 




31111460 


0AC3 





6300 




LDX 


3 







31112140 




31111470 


0AC4 


I 


6F00 


OAEB 


STX 


L3 


TRHDl 




31112150 




31111480 


0AC6 


1 


6F00 


OAFO 


STX 


L3 


TGWDl 




31112160 




31111490 


0AC8 


1 


6F00 


OAFl 


STX 


L3 


TGWD2 




31112170 




31111500 


OACA 





6B1E 




STX 


3 


DIAXl 




31112180 




31111510 


OACB 





7026 




MDX 




WDICK 


GO CHK DIAG UD 2 


31112190 




31111520 










* 








31112200 




31111530 


OACC 


1 


C400 


0AE9 


CKIT2 LD 


L 


DIAXl 


LD DIAG HD 1 HAS 


31112210 




31111540 


OACE 


1 


E400 


OAEB 


AND 


L 


TRHDl 


AND DIAG Hb 1 ERR 


31112220 




31111550 


OAOO 
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31111560 


0A02 


1 


C400 


OAEB 


LD 


L 
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L 
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* 
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ERROR 
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********************************************* 


OADA 




0000 


* 


BSS 


E 







OADA 





0000 


TABLE 


DC 




•-* 


ERROR PRINT TABLE 


OAOB 





0000 




DC 




*-* 




OADC 





0000 




DC 




*-• 




OAOD 





0000 




DC 




♦-* 




CADE 





0000 




DC 




*-* 




OADF 





0000 




DC 




*-* 




OAEO 





0000 




DC 




•-* 
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DC 




•-♦ 




0AE2 





0000 




DC 




*-* 




0AE3 
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DC 
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0000 




DC 
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0000 




DC 
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********************************************* 
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OSWXX 
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*-• 


OSM SHOULD/BE 
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DSMRD 


DC 




♦-* 


OSH ERROR BITS 


OAEB 





0000 




CADSW 


DC 




*-* 
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0AE9 





0000 




OIAXl 


DC 




•-* 
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DC 




»-* 


01 AG HO 2 HAS 
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0000 




TRHOl 


DC 




*-* 


DIAG I ERROR BITS 


OAEC 
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TRWD2 


DC 




*-* 


DIAG 2 ERROR BITS 


OAED 





0000 




STMD 


DC 




*-* 


STORED WORD 


OAEE 





0000 
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DC 




*-* 


DIAG HORD SHUD/BE 


OAEF 
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TRGWD 


DC 




*-* 
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0000 
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DC 




*~* 
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OAFI 
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*-* 
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OAF*. 
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Z 
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OAFS 


1 
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L 
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L 
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STORE ON/F ERR 
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LO 


L 


TRW02 
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I 
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EOR 


L 
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0400 
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L 
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L 
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L3 
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3 
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3 
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L3 
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L 
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L 
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0B18 


1 


C400 


0725 




LD 


L 


0IAW2 


LD DIAG HO 2 HAS 


OBIA 
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1 


0A7D 
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1 
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1 
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1 
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10 
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L 
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L3 
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L3 


TABLEC9 




0B3E 


I 


C400 


OAEB 




LO 


L 


CAOSH 




0B40 


1 


E400 


0B92 




AND 


L 


INTMK 




0B42 


1 


0400 


0B90 




STO 


L 


INHAS 




OB44 


1 


C400 


0AE6 




LO 


L 


OSHXX 




0B46 


1 


E400 


089 2 




AND 


L 


INTMK 




0B48 


I 


0400 


0B91 




STO 


L 


INSOB 




0B4A 


1 


F400 


0B90 




EOR 


L 


INHAS 




0B4C 





4820 






BSC 




Z 




0B40 





7002 






MOX 




INERR 




0B4E 


I 


4C80 


0B38 


* 
INERR 


BSC 


I 


INTAN 




OB 50 


1 


0400 


0B8F 


STO 


L 


ERINT 




OB52 


I 


C400 


0B90 




LO 


L 


INHAS 




0B54 


I 


E400 


0B8F 




AND 


L 


ERINT 




0B56 


1 


0400 


0AE2 




STO 


L 


TABLECB 




0B58 


I 


C400 


0B8F 




LD 


L 


ERINT 




0B5A 


1 


F400 


0AE2 




EOR 


L 


TABLEee 




0B5C 


1 


D400 


0AE3 




STO 


L 


TABLE69 




0B5E 





7000 




CKERR 


MDX 




CKERR 




0B5F 


I 


C400 


0AE2 


LD 


L 


TABLEES 




0B61 





4820 






BSC 




Z 




0B62 





7006 






MDX 




INTER 




0B63 


1 


C400 


0AE3 




LD 


L 


TABLE£9 




0B65 





4820 






BSC 




Z 




0B66 





7002 






MDX 




INTER 




0B67 


I 


4ceo 


0B38 


INTER 


BSC 


I 


INTAN 




0B6 9 


1 


4400 


09D3 


BSI 


L 


MSGID 




0B6B 





6301 






LDX 


3 


1 


DATE 


15N0V66 01JUN70 










EC NO. 


419643 571097 











********************************************* 

* CONSTANTS 

********************************************* 
* 

KOOOt DC /OOOl CONSTANT 0001 

K0003 OC /0003 CONSTANT 0003 

K0005 OC /0005 CONSTANT 0005 
* 

* INTERRUPT ANALYSIS 

* COMPARES SHOULD/BE INTERRUPTS HITH 

* ACTUAL INTERRUPTS AND ANALIZES ANY ERRS 
*****i************************************%**^ 

* 

SAVED RETURN ADD. 

RESET INTRPT ERR LOC 
RE Set INTRPT ERR LOC 
LO OSH MAS 
MASK INTRPT BITS 
STORE INT eiT WAS 
LOAD OSM S/B 
MASK INTRPT BITS 
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/005F 




31113630 


0B6F 


1 


6F00 


OADC 




STX 


L3 
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L3 
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L3 
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1010 
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LOPRT 


0A7D 


0906 0911 0920 09C3 


OACO 0B29 01 




LRTN 


0662 


0663 069E 






LSTNN 


0797 


078A 






MASK 


071? 


07A1 






MASKl 


0718 


075E 0799 






MIC2 


078A 


05FE 0603 0758 0795 


07BE 07C5 




MLSCF 


05E5 


060C 0658 06F3 073C 


0778 0784 




MODES 


0677 


0638 






MSGID 


0903 


0995 09DC 0A9C 0B06 


0B69 




NOISE 


090D 


07A7 






ODEVN 


0721 


06D5 06D8 06E1 






OFF 


069B 


0687 0697 06A0 06C0 


070 A 0A7F 




OFFO 


06A6 


06A9 






OFFl 


06AB 


06AE 






0FF2 


06B0 


0683 






OFF 3 


06B5 


06B8 






ONES 


0716 


06E2 






PASS 


07B0 


078E 07AB 






PATNA 


07DE 


072B 0745 






PATNB 


0856 


0731 






PID 


05 DC 


05F8 






PR NT 


0688 


0685 






PRTER 


07A5 








PRTPN 


071E 


0606 062A 






PRTSW 


068F 


0683 068C 08E9 






RAD 


05DE 


062C 0654 069C 






RCVED 


071F 


06F7 0702 0749 08FD 






RDAGN 


06F0 


06F1 06F0 




DATE 


I5NOV66 01JUN70 




EC NO. 


4196*3 571097 





RDAN 

RDCAT 

RDIAl 

RDIA2 

RDMD 

RDY 

RESAN 

RESET 

RESMD 

RESTl 

REST2 

RETRN 

RID 

RIOCK 

RLCF 

RQKB 

ROTY 

RTNSH 

RTRN5 

RTRN6 

RTROl 

RTTBL 

RTl 

RT2 

RT3 

RT4 

RT5 

SEND 



SHFT 

SNOSH 

START 

STORl 

ST0R2 

STRD 

STRT 

STST 

STHO 

SVKB 

SHO 

SMI 

SM2 

SW3 

TABLE 



TGWDl 

TGWD2 

TMOLY 

TRGAN 

TRGWD 

TRHDl 

TRWD2 

UINTR 

HAITI 

MAIT2 

WAIT3 

WAIT4 

WAITS 

MAIT6 

WCNT 

WDl 

WOICK 

WD2 



0956 

0702 

070C 

OTOE 

071A 

0780 

0942 

0700 

0719 

094C 

0951 

0683 

0500 

0663 

0168 

OIBC 

OIBB 

0165 

077C 

0788 

095C 

065E 

06C3 

06C9 

06CF 

0726 

0751 

0720 



0739 
0664 
0161 
0931 
093 A 
0708 
0690 
070A 
OAED 
OIBD 
05DF 
05E0 
05E1 
05E2 
OADA 



OAFO 
OAFl 
07B9 
0A81 
OAEF 
OAEB 
OAEC 
0636 
05FB 
0606 
0601 
0610 
0775 
0781 
05F9 
0A9C 
0AF2 
OAFA 



0670 

06F0 0748 

061C 0669 

06 IE 0668 079D 

0678 06CF 

075F 07A0 

0679 

0632 06A2 06C6 06D2 072 A 07C7 

0677 0680 06C3 06C9 

0945 

0949 

0940 094A 095A 0965 

063F 0647 0649 0648 0650 0691 

0641 064D 



065A 
0776 
0782 
0958 
062 E 
065E 
065F 
0660 
0661 
0662 
06DB 
0828 
0892 
072F 
0615 
060E 
0938 
0950 
0753 
05E3 
0756 
0932 



0652 0663 



06DF 06E9 



0774 
06 E3 
0e2F 
0899 
0735 
0680 
06 5C 
094D 
0955 
0925 
05E4 
0929 
093A 



06F8 0704 074A 07F0 07F7 07FE 0805 080C 

0836 083D 0844 0848 0852 0868 086F 0876 

08A0 08A7 08AE 08B5 08BC 08C3 08CA 08F9 

073A 0743 0750 

08EC 

06F5 073 E 077A 0786 

.0952 0950 0968 

0960 096B 

05E5 



0813 081A 08^1 
087D 0884 088B 



05E8 

0638 0645 06CE 

07B6 



06A6 
08E4 
09A0 
OAAB 
0B21 
0B7B 
0AA6 
0AA9 
0783 
0984 
097F 
0A93 
0A97 
0608 
06EA 
0600 
06C7 
060A 
0772 
078B 
05FD 
0AD8 
0A9B 
0AF7 



0763 
08EF 
09A4 
OAAD 
0B23 
0B7F 
0AC6 
0AC8 
07B4 
OAFS 
OABD 
0A98 
0AF2 

0737 
0605 
06CD 

077E 
07 A9 
0602 

OACB 



0766 
08F3 
09A8 
OABO 
0B28 
0883 
0AD6 
OAOO 

0B33 



0769 
08F7 
09AC 
0AB7 
0B3A 
0B89 
0B04 
0A04 



076F 
OBFB 
09B0 
OABA 
0B3C 

OBIO 
OAFE 



07A5 07CB 07CE 07D1 0707 
08FF 0905 090E 0915 0919 
09B8 09BC 09C2 090A 0A9F 
OABF 0809 OBOC OBOF 0B12 
0B56 0B5A 0B5C 0B5F 0B63 0B6C 



0808 080B 08DE 
091F 0998 099C 
0AA2 0AA5 OAAB 
0B15 0B17 061E 
0B6F 0B73 



0B2E 

0802 0B13 0B30 



0AC4 OACE 0A02 
OAFC OBOO 0B2D 



0612 

077F 

0610 0759 077C 



0788 0791 07CO 07C3 
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WRCAT 


0704 


06DC 


06 E4 


WRDCK 


09C0 






WRTAN 


0961 


0681 




WRTHO 


071B 


067F 


0726 


HTROl 


0967 


0963 




XR3 


0909 


OSEB 




XR3A 


074E 


074B 
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TABLE OF CONTENTS 
PARAGRAPH ^^^^ 

1. PURPOSE ^ 

2. REQUIREMENTS '^* 

2.1 PROGRAM REQUIREMENTS 

2.2 EQUIPMENT REQUIREMENTS 

3. OPERATING PROCEDURE - ^* 

3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.2.1 PROGRAM CONTROL - FUNCTION 

3.2.2 SCA ROUTINE SELECTION - FUNCTION I 

3.2.3 SCA PROGRAM OPTIONS - FUNCTION 2 

3.2.4 SCA SCOPE LOOP OR SELECT CHARACTER OPTION - FUNCTION 3 

3.3 PROGRAM HALTS 

3.4 PROGRAM TERMINATION 

3.5 RESTART 



2.2*** EQUIPMENT PREREQUISITES 

1. SET DATA TERMINAL SWITCH IN THE TEST POSITION. 

?. SET STR/BSC SWITCH FOR DESIRED MODE. IF BSC MODE IS SELECTED 
' DO NOT USE THE LOAD AND GO OPTION (SET SW 15 ON AND REFER 3.2 

3. SET C.E. MODE SWITCH TO OFF POSITION. 

4. SET SCA ALARM SWITCH TO ON POSITION. 

5. SET BAUD SELECTOR SWITCH TO DESIRED POSITION. 

6. IF CORE SPEED IS 2 MICRO-SECOND DO NOT USE LOAD AND GO OPTION. 
SET BIT SW 15 ON AND REFER TO SECTION 3.2.3. 

7. CHECK TO SEE THAT JUMPERS ARE INSTALLED AS SHOWN BELOW. 
INSTALL OR REMOVE JUMPERS AS REQUIRED. MARK ON THIS PAGE ANY 
JUMPERS THAT ARE CHANGED FOR THIS TEST, AND RESTORE TO ORIGINAL 
CONFIGURATION AFTER COMPLETION OF TEST. 



3). 



D6D06-D6D08 
y K2D08-K2B08 

M2D10-D6D05 
XL2D04-L2D08 

H2B04-M2D08 



REMOVED 

INSTALLED 

INSTALLED 

INSTALLED 

INSTALLED {NOT REQUIRED IF A DIAL-UP DATA SET 

IS CONNECTED) 



PRINTOUTS. 



4A 



4.1 
4.2 



STATUS MESSAGES 
ERROR MESSAGES 



5. COMMENTS 



5.1 PROGRAM PHILOSOPHY 

5.2 ROUTINE DESCRIPTION 

5.3 DIAGNOSTIC REFERENCE TABLE 

6. APPENDIX CNONE) 



1. PURPOSE 

THE PURPOSE OF THE SCA WRAP-AROUND IS TO CHECK THE ABILITY OF THE SCA 
CIRCUITRY TO TIE THE OUTPUT OF SCA TRANSMIT SERIALIZER TO THE INPUT OF THE 
SCA RECEIVE DESERIALIZER, AND PROPERLY SHIFT THE SVNC/IOLE BITS OR DATA IN 
THIS LOOP, WHEN IN DIAGNOSTIC MODE. 

2. REQUIREMENTS 

2.i*»* PROGRAM PREREQUISITES 

THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR. THE 
DIAGNOSTIC MONITOR USES 1.5 K STORAGE WORDS AND THIS PROGRAM USES 
THE REMAINING PORTION OF 4K. 



NOTE 1. REFER TO LOGIC PAGE A0003 FOR CUSTOMER OPTION JUMPER ING- 

3. OPERATING PROCEDURE 

**CAUTION* LOAD AND GO OPERATION CANNOT BE USED ON SYSTEMS WITH 2 MICRO-SECOND 
CORE SPEED OR IF OPERATION IS TO BE IN BSC MODE- REFER TO SECTION 
3.2.3 FOR PROPER SELECTION OF OPERATING OPTIONS. 

MONITOR RELOAD, SWITCH SETTING /8080 OR /80C0, CANNOT BE USED 
WITH THIS PROGRAM IF ANY DEVICE TO BE CALLED BY THE NEW 
PROGRAM! S) MILL BE USING INTERRUPT LEVEL ONE. THE LEVEL ONE 
TRANSFER VECTOR IS SET DIRECTLY BY THIS PROGRAM. 

THESE OPERATING PROCEDURE APPLY TO SINGLE PROGRAM OPERATION ONLY. 
OPERATIONS REFER TO SECTION 3.2.3 OF THE 1130 DIAGNOSTIC MONITOR II 
DOCUMENTATION. THIS PROGRAM CANNOT BE OPERATED IN OVERLAP MODE. 

3.1*** PROGRAM LOADING 

STANDARD MONITOR LOADING PROCEDURES APPLY. 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DETAILS. 

1. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 

2. SET BIT SWITCH 15 OFF - LOAD AND GO (CANNOT BE USED ON SYSTEMS 

WITH 2 MICRO-SECOND MEMORY SPEED OR IF 
OPERATION IS TO BE IN BSC MODE) 
ON - TO SPECIFY OPTIONS BEFORE RUNNING. 
(SEE SECTION 3.2.3) 

IF HALTED AFTER LOADING, SELECT PROGRAM 
OPTIONS THEN TURN OFF HALT SWITCH OR 
FOLLOW NORMAL RESTART PROCEDURE 
(SEE SECTION 3.5) 

3. LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 

4. SELECT PROGRAM OPTIONS, IF DESIRED. 
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3.2*** PROGRAM OPERATION. 

STANDARD MONITOR OPERATING PROCEDURES APPtY. 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DETAILS. THIS PROGRAM CANNOT BE OPERATED IN OVERLAP MODE. 

3.2.1 PROGRAM CONTROL - FUNCTION 

1. SET SWITCHES 0-7 TO 01. 

2. SET SWITCHES 8-15 AS DESIRED. 



SWT 



FUNCTION 



8 
9 
10 
II 
12 
13 
14 
15 



RESTART 

ROUTINE START MESSAGE 

LOCK ON FUNCTION 

LOOP PROGRAM 

LOOP ON ERROR 

BYPASS ERROR PRINTOUT 

HALT ON ERROR 

HALT 



3. PRESS INT REG KEY ON CONSOLE. 

****** 



3.2.2 ROUTINE SELECTION - FUNCTION 1 

THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED. 
I. TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TP 41. 

B. SET ROUTINE NUMBER IN SWITCHES 8-15. 

THESE ROUTINES MILL RUN IN SEQUENCE AND TERMINATE AFTER THE I A«:t 
ROUTINE IF NO ROUTINE IS SELECTED. ^ 



2. 



RTN 



DESCRIPTION ISEE 5.2 FOR COMPLETE RTN DESCRIPTIONS! 



1 
2 
3 

4 

5 

6 

7 

8 

9 

A 

B 

C 



E 

F 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

lA 

IB 



PROGRAM RESET 

1 READ RESPONSE INTERRUPT ALLOWED 
READ RESPONSE INTERRUPTS ALLOWED 
READ RESPONSE INTERRUPTS ALLOWED 
READ RESPONSE INTERRUPTS ALLOWED 
READ RESPONSE INTERRUPTS ALLOWED 
READ RESPONSE INTERRUPTS ALLOWED 
READ RESPONSE INTERRUPTS ALLOWED 
8 READ RESPONSE INTERRUPTS ALLOWED 
1 WRAP-AROUND CYCLE ALLOWED 
WRAP-AROUND CYCLES ALLOWED 
READ RESPONSE INTERRUPT ALLOWED 
READ RESPONSE INTERRUPTS ALLOWED 
READ RESPONSE INTERRUPTS ALLOWED 
READ RESPONSE INTERRUPTS ALLOWED 
INTERRUPTS ALLOWED 
INTERRUPTS ALLOWED 
INTERRUPTS ALLOWED 
INTERRUPTS ALLOWED 
WRAP AROUND CYCLE 
WRAP AROUND CYCLES 
10 OR 64 CYCLES WRAP-AROUND 
10 OR 64 CYCLES WRAP-AROUND 
10 WRAP-AROUND WRT BUF /OOOO 
10 WRAP-AROUND WRT BUF /OOOO 
9 WRAP-AROUND 7 BIT WRT BUF /FEOO 
8 WRAP-AROUND 6 BIT WRT BUF /FCOO 



2 
3 

4 
5 
6 

7 



2 
1 
2 
3 
4 
5 
6 
7 



READ RESPONSE 
READ RESPONSE 
READ RESPONSE 

8 READ RESPONSE 

I 

2 



ALLOWED 
ALLOWED 



. WRT BUFFER 
WRT BUFFER 

. WRT BUFFER 
WRT BUFFER 
WRT BUFFER 
WRT BUFFER 
WRT BUFFER 
WRT BUFFER 
WRT BUFFER 
WRT BUFFER 
SYNC/IDLE 
SYNC/IDLE 
SYNC/IDLE 
SYNC/IDLE 
SYNC/IDLE 
SYNC/IDLE 
SYNC/ I OLE 
SYNC/IDLE 
SYNC/IDLE 
SYNC/ IDLE 
SYNC/IDLE 
WRT BUFFER 
SYNC/IDLE 
SYNC/ IDLE 
SYNC /I OLE 
SYNC/IDLE 



/FFOO 

/FFOO 

/FFOO 

/FFOO 

/FFOO 

/FFOO 

/FFOO 

/FFOO 

/FFOO 

/FFOO 

/3900 

/3900 

/3900 

/3900 

/3900 

/3900 

/3900 

/3900 

/3900 

/3900 

/3900 

/FFOO 

/AAOO 

/OOOO 

/AAOO 

/AAOO 



C. PRESS INT REQ. KEY ON CONSOLE. 

TO RESET ROUTINE SELECTION AND RETURN TO NORMAL OPERATION 

A. SET SWS 0-7 TO 41 

B. SET SWS 8-15 OFF 

C. PRESS INT. REQ. KEY 

****** 
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3.2.3 SCA PROGRAM OPTIONS 



FUNCTION 2 



SET SWITCH 0-7 TO 81. 

SET SWITCHES 10 THRU 15 AS DESIRED. 



sw 

SW 10 . 



FUNCTION 



SW 11 



... SELECT CHARACTER 

THIS OPTION ALLOWS SELECTION OF ANY 
CHARACTER TO WRAP-AROUND WHEN EXECUTING 
ROUTINE 17. AFTER SELECTING THIS 
OPTION, ENTER THE DESIRED CHARACTER IN 
SMS 8-15 VIA THE FUNCTION 3 SELECT 
CHARACTER OPTION. (REFER TO 3.2.A> 

NOTE SELECTION OF THIS OPTION INHIBITS THE 

FUNCTION 3 SCOPE LOOP OPTION. 

...2 MICRO-SECOND CORE SPEED 

THIS OPTION MUST BE SELECTED IF SYSTEM 
HAS A 2 MICRO-SECOND MEMORY CYCLE. DO 
NOT SELECT THIS OPTION ON 4 MICRO- 
SECOND SYSTEMS. 



SW 12 .. 



DIAGNOSTIC RUN 



SW 13 



NO RESET 



SW 14 .... FAST PASS 



SW 15 



BI-SYNC 



THIS OPTION MAKES ANALYSIS OF THE 
DIAGNOSTIC WORDS. BECAUSE OF THE 
CRITICAL TIMING INVOLVED IN SENSING 
THESE TRIGGERS WHILE THEY BEING SET AND 
CLEARED, THIS OPTION IS NOT RECOMMENDED 
DURING OVERLAP. 



THIS OPTION ALLOWS THE DELETION OF THE 
RESET ROUTINE IROUTINE 01) AFTER 
EXECUTING EACH OF THE OTHER ROUTINES. 
ROUTINE 01 TRAPS ANY UNEXPECTED TIMEOUT 
INTERRUPTS, DUE TO A CIRCUIT FAILURE. 
THIS CUTS PROGRAM RUN TIME TO 3 MIN. 



THIS OPTION ALLOWS A 250 MSEC ROUTINE 
RUN TIME FOR THOSE ROUTINES WHERE THE 
WRAP-AROUND FUNCTIONS ARE NOT EXPECTED. 
PROGRAM RUN TINE IS 45 SEC. 



THIS OPTION ALLOWS THE SCA TO OPERATE 
IN THE BINARY SYNCHRONOUS MODE. THIS 
OPTION INITIATES A SELF-MODIFICATION 
TO THE TEST PROGRAM. THE PROGRAM 
MODIFICATIONS ALTER ROUTINE INSTRUCTIONS 
USING OSU AND DIAGNOSTIC WORDS THAT 
WILL BE OF A DIFFERENT VALUE DUE TO 
BI-SYN MODE. DESELECTING THIS OPTION 
INITIATES A SELF-MODIFICATION TO THE 
TFST PROGRAM, THAT WILL CHANGE EFFECTED 
OSW AND DIAGNOSTIC WORDS SO AS TO 
OPERATE IN THF STR MODE. RELOADING THE 
PROGRAM IS NOT NECESSARY WHEN CHANGE 
MODES FROM STR TO BI-SYN OR FROM BI-SYN 
TO STR. 



3.2.4 SCA SCOPE LOOP OR SELECT CHARACTER OPTION - FUNCTION 3 

1. SET SWITCHES 0-7 TO CI. 

2. SET SWITCHES 8 THRU 15 AS DESIRFD. 

NOTE. ...IF SELECT CHAR OPTION (BIT 10 FNC 2) IS SELECTED, THE SC OPF 
LOOP OPTION WILL 8E INHIBITED. 

SCOPE LOOP OPTION 



SW 



FUNCTION 



8 .. 

9 .. 

10 .. 

11 .. 

12 .. 

13 .. 

14 .- 

15 .. 



2 SECOND ROUTINE DELAY 
1 SECOND ROUTINE DELAY 
.5 SECOND ROUTINE DELAY 
.25 SECOND ROUTINE DELAY 
.125 SECOND ROUTINE DELAY 
.0625 SECOND ROUTINE DELAY 
.03125 SECOND ROUTINE DELAY 
.015625 SECOND ROUTINE DELAY 



SW 

8 

T 
H 
R 

U 
G 
H 

15 



SELECT CHARACTER OPTION 

FUNCTION 

SELECT CHARACTER COMBINATION 
TO BE WRAPPED-AROUND, WHEN 
RUNNING ROUTINE 17 AND SELECT 
CHAR. OPTION IS SELECTED. 
(FUNCTION 2, SW 10) IF SELECT 
CHAR. OPTION IS NOT SELECTED, 
ALL ONES HILL BE WRAPPED- 
AROUNO. f/FF) 



3. PRESS INT REQ. KEY ON CONSOLE. 

4. RESET SCOPE LOOPS AND CHARACTER OPTIONS BY SETTING SWITCHES 
8 THRU 15 OFF AND PRESSING INT REQ. KEY. 



3.3«** PROGRAM HALTS 
3.3.1 NORMAL HALTS 



HALT NO 
(B REG) 



3001 
3002 



DESCRIPTION 



PROGRAM STOP OR ADDRESS STOP 
HALT ON ERROR 

** 



RESTART 
ACTION 



PRESS START 
PRFSS START 



PRHSS IK'T REO KEY ON CONSOLE. 



4. RFSFT OPTIONS BY TURNING SWITCHES 10 THRU 14 OFF AND 

PRESSING INT REQ- KEY. 
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3.3.2 ERROR HAtTS 



PRINTOUTS 



.HALT NO. 


DESCRIPTION 


RESTART 


.(B REGI 




ACTION 


. 30F1 . 


CHECK SUM ERROR ON FIRST 
CARD OF LOADER 


RELOAD 


. 30F2 . 


READER OSM ERROR WHEN 
LOADING LOADER 


'. RELOAD 


I 30F3 . 


CARD 2 OF LOADER DID NOT 
LOAD 


RELOAD 


. 30F4 . 


CAN NOT CLEAR CORE - DUE TO . 
ERROR IN ADDRESSING UPPER 
CORE. 




. 30F5 '. 


READER CHECK WHEN LOADING 


NPRO THEN PLACE CARDS 




MONITOR OR TEST PROGRAM 


RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 


'. 30F6 '. 


MONITOR DID NOT LOAD 


RELOAD 


, 30F7 . 


CHECK SUM WHEN LOADING 
MONITOR 


'. RELOAD 


. 30F8 . 


'. READER NOT READY 


MAKE READER READY 


. 30F9 


INVALID INTERRUPT WHICH WILL 
NOT RESET 


PRESS RESET AND START 


. 30FA 


'. CONSOLE PRINTER HANG UP - 


! FIX THE CONSOLE PRINTER . 




BUSY WILL NOT GO OFF 





ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 

(MESSAGE I 
(MSSAGEi 



APPNN DORR AAAA 

OR 

EPPNN DORR AAAA 



WHERE A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 

THIS WILL BE EITHER 00 FOR MESSAGES 
ORIGINATED BY MONITOR OR 19 FOR MESSAGES 
ORIGINATED BY THIS PROGRAM. 

NN IS THE MESSAGE SEQUENCE NUMBER 

RR IS THE ROUTINE NUMBER 

AAAA IS THE ADDRESS OF THE ROUTINE 

MESSAGE IS ANY VARIABLE INFORMATION 



4.I*** STATUS MESSAGES 
AOOOO 



NUM PID ADRS RELF 
XXXX XXXX XXXX XXXX 



LD 



A 0001 



****** 



THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
< EXCEPT MONITOR!. THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 

SWS PID 
XXXX XXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM THE WORD HALT WILL FOLLOW THE 
MESSAGE. 



3.**** PROGRAM TERMINATION 



A1900 DORR AAAA 



IF LOOP PROGRAM HAS NOT BEEN SPECIFIED. THE PROGRAM WILL TERMINATE 
AT THE END OF ROUTINE /IB- 

IF ANY ROUTINE IS SELECTED, THAT ROUTINE WILL LOOP AND WILL NOT 

TERMINATE. 



ROUTINE START MESSAGE - IF SWITCH 9, FUNCTION 0. IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. 



A1901 DORR AAAA 



3.5*** RESTART 



XXXXXX XXXXX 
SELECT CHAR. 



XXXX XXX 
DIAG RUN 



XX XXXXX 
NO RESET 



XXXX XXXX 
FAST PASS 



XX XXX X XXX 
BI SYN 2 MIC 



1. TURN OFF SWITCHES 0-7- 

2. TURN ON SWITCH 8. 

3- SET DESIRED CONTROL IN SWITCHES 9-14. 
*. PRESS INTERRUPT REQUEST KEY. 

********** 



A1902 DORR AAAA 



THIS MESSAGE WILL BE PRINTED OUT WHENEVER A NEW SCA PROGRAM 
OPTION IS SELECTED. IFUNC. SW2» ONLY THOSE OPTIONS SELECTED WILL 
BE PRINTED OUT. IF ALL OPTIONS ARE DESELECTED, THE PRINT AREA 
WILL BE BLANK. 

XXXXX XXXX 
SCOPE LOOP 

THIS MESSAGE WILL BE PRINTED OUT WHENEVER A NEW SCOPE LOOP OPTION 
IS SELECTED. 

NOTE.... IF SELECT CHAR OPTION IS SELECTED, THE SCOPE LOOP OPTION 
IS INHIBITED. 
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A1903 0017 AAAA 



CHAR SELECTED *RTN 17* 
XXOO 

THIS MESSAGE IS PRINTED OUT WHENEVER SELECT CHAR OPTION IS 
SELECTEDf ROUTINE 17 IS BEING EXECUTED, AND A NEW CHAR. HAS BFEN 
SELECTED. 

XXOO = THF 2 CHARS- SELECTED FOR WRAP-AROUND. 

A190<^ RESTORE SYSTEM TC NORMAL 

THIS MESSAGE IS PRINTED OUT TO REMIND C.E. TO REMOVE READY 
JUMPER IF INSERTED FOR TEST, AND RESTORE SYSTEM TO NORMAL. 

A1905 DO NOT USE MNTR RLD IF DEVICE CALLED 

WILL USE INT LEV ONE 

THIS MESSAGE IS PRINTED OUT TO REMIND C.E. THAT LEVEL ONE 
INTERRUPT IS NOT HANDLED BY MONITOR. (SEE SECTION 3.2> 

4.2*** ERROR PRINTOUTS 

WHENEVER AN SCA ERROR MESSAGE IS BEING PRINTED OUT, THE SCA ALARM 
IS TURNED ON. 

THE C.E. BITS CAN BE JUMPERED, AT C.E. DISCRETION, TO ANY POINT IN 
THE SCA CIRCUITRY. IF THESE BITS ARE NOT WIRED, THEY WILL BE SET 
TO A 1. ISEE LOGIC FC732, NOTE 21. 

IF ALL DSW ANALYSIS APPEAR GOOD AND MANY FAILURES IN DIAGNOSTIC WORDS 
OR MANY DSW FAILURES AND DIAGNOSTIC WORD APPEAR GOOD, TAKE INTO 
CONSIDERATION THF READ DSW OR THE SENSE DIAGNOSTIC WORD COMMANDS 
ARE FAILING. 



f°0°5 OOON XXXX 

THIS ERROR WILL OCCUR IF AN INTERRUPT OCCURS, BUT THE ILSW 
WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSC. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



F1901 OORR AAAA 



DWl DW2 DSW ON/F F/ON *CF* 
XXXO XXOO XXXO XXOO XXOO OXXO 

AT LEAST 1 INTERRUPT EXPECTED AND RECEIVED. 



INT ERR 



EOOOl 



E0003 



F0004 



DWl = STORED CONTENTS OF DIAGNOSTIC WORD 1. 

DW2 = STORED CONTENTS OF DIAGNOSTIC WORD 2. 

DSW = STORED CONTENTS OF DSW. 
ON/F = DSW INTERRUPT BITS THAT WERE ON AND SHOULD BE OFF. 
F/ON = DSW INTERRUPT BITS THAT WERE OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC WORD 2. (ON OR OFFI 

INT ERR = THE CALCULATED DSW INTERRUPT BITS DID NOT 
COMPARE WITH RECEIVED DSW INTERRUPT BITS. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



E19C? OORR AAAA 



DWl DW2 DSW ON/F F/ON *CE* 
XXXO XXOO XXXO XXOO XXOO OXXO 



INT ERR 



SWS INVLD 
XXXX 

THE SETTING OF SWITCHES 4-7 DID NOT FQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 

OVR CORF 

THE PROGRAM, WHICH THE LOADER WAS ATTEMPTING TO LOAD, 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 

CKSUM 

A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS- 

1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 

2. THERE IS AN EXTRA CARD IN THE DECK. 

3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 

5. DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT CORRECTLY 
CALCULATED. 

WHFN THIS ERROR OCCURS, ATTEMPT TO RELOAD THE PROGRAM. 



AT LEAST I INTERRUPT EXPECTED, AND NON RECEIVED. 

DWl = STORED CONTENTS OF DIAGNOSTIC WORD 1. 

0W2 = STORED CONTENTS OF DIAGNOSTIC WORD 2. 

DSW = STORED CONTENTS OF DSW. 
ON/F = DSW INTERRUPT BITS THAT HERE ON AND SHOULD BE OFF. 
F/ON = DSW INTERRUPT BITS THAT WERE OFF AND SHOULD BE ON. 
♦CE* = CE BITS OF DIAGNOSTIC WORD 2. (ON OR OFF) 

INT ERR = THE CALCULATED DSW INTERRUPT BITS DID NOT COMPARE 
WITH THE RECEIVED DSW INTERRUPT BITS. 



REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



E19C3 OORR AAAA 



DWl DW2 DSW ON/F F/ON *CE* INT ERR 
XXXO XXOO XXXO XXOO XXOO OXXO 



NO INTERRUPTS EXPECTED, AND AT LEAST 1 RECEIVED. 

DWl = STORED CONTENTS OF DIAGNOSTIC WORD I. 

DW2 = STORED CONTENTS OF DIAGNOSTIC WORD 2. 

DSW = STORED CONTENTS OF DSW. 
ON/F = DSW INTERRUPT BITS THAT WERE ON AND SHOULD BE OFF. 
F/ON = DSW INTERRUPT BITS THAT WERE OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC WORD 2. (ON OR OFF) 

INT ERR = THE CALCULATED DSW INTERRUPT BITS DID NOT COMPARE 
WITH THE RECEIVED OSW INTERRUPT BITS. 



E1904 OORR AAAA 



REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 

OWl DW2 OSW ON/F F/ON *CE* 
XXXO XXOO XXXO XXOO XXOO OXXO 

AT LEAST 1 INTERRUPT EXPECTED AND RECEIVED. 



INT ERR RESET 
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DWl = STORED CONTENTS OF DIAGNOSTIC WORD I. 

DU2 = STORED CONTENTS OF DIAGNOSTIC WORD 2. 

OSH - STORED CONTNETS OF DSM. 
ON/F = OSH INTERRUPT BITS THAT MERE ON AND SHOULD BE OFF. 
F/ON = OSM INTERRUPT BITS THAT MERE OFF AND SHOULD BE ON. 
^CE* = CE BITS OF DIAGNOSTIC HORO 2. (ON OR OFF) 

INT ERR RESET = AN INTERRUPT ERROR MAS FOUND AFTER 
PROGRAMED RESET. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS 
OF ERROR. 



OSM - STORED CONTENTS OF OSM. 

DM2 = STORED CONTENTS OF DIAGNOSTIC MORD 2. 

MAS = STORED CONTENTS OF DIAGNOSTIC MORD I. 

S/B « CALCULATED CONTENTS OF DIAGNOSTIC MORD 1. 
fW/F = DIAGNOSTIC MORD I BITS THAT MERE ON AND SHOULD BE OFF. 
F/ON - DIAGNOSTIC MORD 1 BITS THAT MERE OFF AND SHOULD BE ON. 
•CE* = CE BITS OF DIAGNOSTIC MORD 2. ION OR OFF) 

DM1 ERR RESET = DIAGNOSTIC MORD 1 MAS FOUND IN ERROR AFTER 
PROGRAMED RESET. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



E1905 OORR AAAA 



DHl DM2 MAS S/B ON/F F/ON *CE* DSM ERR 
XXXO XXOO XXXO XXXO XXXO XXXO OXXO 



E1909 OORR AAAA 



DM1 = STORED CONTENTS OF DIAGNOSTIC MORD I. 

DM2 = STORED CONTENTS OF DIAGNOSTIC MORD 2. 

MAS = STORED CONTENTS OF DSW. 

S/B = CALCULATED CONTENTS OF OSM. 
ON/F = DSM BIT THAT MERE ON AND SHOULD BE OFF. 
F/ON = OSM BIT THAT MERE OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC MORD 2. (ON OR OFF) 

OSM ERR = THE CALCULATED DSM DID NOT COMPARE MITH THE 
RECEIVED DSM. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



DSM DM1 2MAS 2S/B ON/F F/ON ♦CE* 0M2 ERR 
XXXO XXXO XXOO XXOO XXOO XXOO OXXO 



E1906 OORR AAAA 



DM1 DM2 MAS S/B ON/F F/ON *CE* DSM ERR RESET 
XXXO XXOO XXXO XXXO XXXO XXXO OXXO 



E190A OORR AAAA 



OMl = STORED CONTENTS OF DIAGNOSTIC MORD 1. 

DM2 = STORED CONTENTSQF DIAGNOSTIC MORD 2. 

MAS = STORED CONTENTS OF DSM. 

S/B = CALCULATED CONTENTS OF OSM. 
ON/F = DSM BIT THAT MERE ON AND SHOULD BE OFF. 
F/ON = OSM BIT THAT MERE OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC MORD 2. (ON OR OFF) 

DSM ERR RESET = OSM MAS FOUND IN ERROR AFTER PROGRAMED RESET. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OR ERROR. 



DSM == STORED CONTENTS OF OSM 

OMl = STORED CONTENTS OF DIAGNOSTIC MORD I, 

MAS = STORED CONTENTS OF DIAGNOSTIC MORD 2. 

S/B = CALCULATED CONTENTS OF DIAGNOSTIC MORD 2. 
ON/F = DIAGNOSTIC MORD 2 BIJS tHAT MERE ON AND SHOULD BE OFF. 
F/ON = DIAGNOSTIC MORD 2 BITS THAT MERE OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC MORD 2. (ON OR OFF) 

0M2 ERR = THE CALCULATED DIAGNOSTIC MORD 2 010 NOT CCMPARE 
MITH RECEIVED DIAGNOSTIC MORD 2. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 

DSM OMl 2MAS 2S/B ON/F F/ON *CE* DM2 ERR RESET 
XXXO XXXO XXOO XXOO XXOO XXOO OXXO 



E1907 OORR AAAA 



DSW DM2 IMAS IS/B ON/F F/ON *CE* DM1 ERR 
XXXO XXOO XXXO XXXO XXXO XXXO OXXO 



DSM = STORED CONTENTS OF DSM 

OMl = STORED CONTENTS OF DIAGNOSTIC MORD 1. 

MAS = STORED CONTENTS OF DIAGNOSTIC MORD 2. 

S/B = CALCULATED CONTENTS OF DIAGNOSTIC MORD 2. 
ON/F = DIAGNOSTIC MORD 2 BITS THAT MERE ON AND SHOULD BE OFF. 
F/ON = DIAGNOSTIC MORD 2 BITS THAT MERE OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC MORD 2. (ON OR OFF! 

0M2 ERR RESET = DIAGNOSTIC MORD 2 MAS FOUND IN ERROR AFTER 
PROGRAM RESET. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



E190B OORR AAAA 



DSM = STORED CONTENTS OF DSM. 

0M2 = STORED CONTENTS OF DIAGNOSTIC MORD 2. 

MAS = STORED CONTENTS OF DIAGNOSTIC MORD 1. 

S/B = CALCULATED CONTENTS OF DIAGNOSTIC MORD I. 
ON/F " DIAGNOSTIC MORD 1 BITS THAT MERE ON AND SWULD BE OFF. 
F/ON = DIAGNOSTIC MORD I BITS THAT MERE OFF AND SHOULD BE ON. 
*CE* = CE BITS OF DIAGNOSTIC MORD 2. (ON OR OFF) 

DM1 ERR = THE CALCULATED DIAGNOSTIC MORD 1 DID NCT COMPARE 
MITH RECEIVED DIAGNOSTIC HORO 1. 

REFER TO DIAGNOSTIC REFERENCE PAGES FOR ANALYSIS OF ERROR. 



DHl DM2 DSM ON/F F/ON *CE* 
XXXO XXOO XXXO 0000 0000 0000 



INT ERR 



INT ERR = THE DSM BIT MERE FOUND NOT TO BE IN ERROR. BUT AT LEAST 
1 INTERRUPT MAS EXPECTED, AND NONE MAS RECEIVED. MAKE 
SURE CE. INTERRUPT DELAY SM IS OFF. IF INTERRUPT 
DELAY SM IS OFF, GO TO NET NUM. FC731AN4. 



E190C OORR AAAA 



MAS S/B *CE* 
XXOO XXOO OXXO 



DATA ERROR 



E190e OORR AAAA 



OSM DM2 IMAS IS/B ON/F F/ON *CE* DHl ERR RESET 
XXXO XXOO XXXO XXXO XXXO XXXO OXXO 



DATA ERROR = THE RECEIVE BUFFER HORO READ, DID NOT COMPARE HITH 
HORO EXPECTED. IF NO OTHER ERRORS ARE PRESENT, 
FAILURE COULD BE IN BUFFER, TRANSMIT SERIALIZER, OR 
RECEIVE DESERIALIZER. 
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5. COMMENTS 

5.1 PROGRAM PHILOSOPHY 

THE SCA WRAP-AROUND TEST WAS DESIGNED TO CHECK FOR PROPER OPERATION 

OF THE SCA CIRCUITRY IN DIAGNOSTIC MODE. THE 1ST INTERRUPT EXPECTED 

DURING STR-WRAP-AROUNO IS A WRITE INTERRUPT. THIS INTERRUPT 

IS FOLLOWED BY 8 READ INTERRUPTS, ANOTHER WRITE INTERRUPT, AND 

THEN THE ^TH READ INTERRUPT OF THE CYCLE. WHEN THE 9TH READ INTERRUPT 

OCCURS, THE 8 BITS THAT MAKE UP THE COMPLETE CHARACTER HAVE BEEN 

SHIFTED INTO THE READ DESERIALIZER. DURING BI SYN-WRAP-AROUND THE 

FIRST WRITE INTERRUPT DOES NOT OCCUR. 

IF THE BUFFER IS READ AFTER FINAL SHIFTING IS DONE INTO 

THF RFAD DESERIALIZER THE WORD READ FROM THE BUFFER SHOULD 

COMPARE WITH THE WORD LOADED INTO THE BUFFER. 

IF THE BUFFER WAS NOT LOADED, THE SYNC/IDLE REGISTER SHOULD 

HAVE BEEN LOftDFO INTO TRANSMIT SERIALIZER AND IS THE WORD READ FROM 

THE BUFFER. 

THF PROGRAM CHECKS THE OPERATION BY LOADING THE BUFFER WITH ALL ONES, 
AND CHECKING THE BUFFER AFTER EACH INTERRUPT FOR PROPER DATA SHIFTING 
(ROUTINES 02 THROUGH OBI THE PROGRAM ALSO CHECKS FOR LOADING OF THE 
TRANSMIT SERIALIZER FROM THF SYNC/IDLE REGISTER IF THE BUFFER IS NOT 
LOADED, AND AFTER EACH INTERRUPT, THE SHIFTING OF THE SYNC/IDLE 
CHARACTER. (ROUTINES DC THROUGH 15). 

ROUTINE 16 CHECKS WRAP-AROUND OF SYNC/IDLF CHARACTER WHEN THE BUFFER 
IS NOT LOADED. 

ROUTINE 17 CHECKS WRAP-AROUND OF DATA WORD FF WHICH WAS LOADED INTO 
THE BUFFER. IF SELECT CHAR. OPTION IS SELECTED, THAT CHAR. WILL BE 
WRAPED-AROUNO. 

ROUTINE 18 AND 19 CHECKS WRAP-AROUND WHEN THE BUFFER IS LOADED 
WITH ZEROS AND SYNC/ IDLE REGISTER HAS ALTERNETE PATTERN DURING 
ROUTINE IS AND ZEROS DURING ROUTINE 19. 

ROUTINE /I A AND /IB CHECKS WRAP-AROUND FOR A 7 BIT WORD 
AND 6 BIT WORD RESPECTIVELY. 

IF THE niAG RUN OPTION IS NOT SELECTED, ONLY INTERRUPTS, DSW BITS, 
AND BUFFER DATA IS CHECKED. IF DIAG RUN IS SELECTED, AN ANALYSIS IS 
ALSO HADE OF THF DIAGNOSTIC WORDS. 

VARIOUS SCA PROGRAM OPTIONS ARE ALSO AVAILABLE BECAUSE OF THE NATURE 
OF THE SCA OPERATION. THE MOST IMPORTANT FACTOR BEING, THAT A TIME- 
OUT INTERRUPT MAY OCCUR 3 SECONDS AFTER A SCA COMMAND HAS BEEN 
IMPROPERLY EXECUTED. BECAUSE OF THESE POSSIBLE TIMEOUTS AND INTER- 
MITTENT ERRORS, EACH ROUTINE IS ANALYZED FOR 4 SECONDS BEFORE ITS 
TERMINATION. AFTER THE ROUTINE HAS BEEN TERMINATED, THE RESET ROU- 
TINE IS EXECUTED AND ANOTHER 4 SECOND ANALYSIS CHECK TAKES PLACE FOR 
RESET OF THF SCA CIRCUITRY. 



THREE SCA PROGRAM OPTIONS ARE AVAILABLE TO REDUCE PROGRAM RUN TIME, 
BUT SACRIFICING THE ABILITY TO TRAP TIMEOUT ERRORS. THESE ARE 

1. FAST PASS (FUNC 2 - SW 14) 

THIS OPTION ANALYZES ROUTINES WHERE NO WRAP-AROUND 
OPERATION IS TAKING PLACE, FOR .250 SECONDS. {ROUTINES 
16 AND 17). 

2. NO RESET IFUNC 2 - SW 13) 

THIS OPTION BYPASSES RUNNING OF RESET ROUTINE AFTER EACH 
ROUTINE EXECUTION. 

3. FAST PASS AND NO RESET JFUNC 2 - SWS 13 AND 14) 

THIS OPTION ALLOWS BOTH THE NO RESET AND FAST PASS OPTION 
TO BE RUN AT SAME TIME. THIS OPTION CUTS PROGRAM RUN 
TIME TO ABOUT 55 SECONDS. 

THE DIAGNOSTIC MODE OPTION (FUNC 2 - SW 12) ALLOWS A MORE EXTENSIVE 
CHECK ON COMMAND OPERATION. UNLESS DIAGNOSTIC MODE IS 
SELECTED, ANALYSIS IS ONLY MADE ON DSW. 

THE SCOPE LOOP OPTION ALLOWS THE SELECTION OF THF RATE AT WHICH 
ANALYSIS WILL BE MADE DURING A ROUTINE. THIS RATE ALSO DETERMINES 
THE ROUTINE RUN TIME. THE SCOPE LOOP OPTION IS NOT AVAILABLE TO 
ROUTINES WHFRF WRAP-AROUND OPERATION TAKES PLACE. 

THE PROPER USE OF THIS OPTION IS TO LOOP THE SELECTED FAILING ROUTINE 
AND THEN EXECUTE THE DESIRED SCOPE LOOP OPTION TO SET ROUTINE LOOP 
RATE. 

THE SELECT CHAR. OPTION ALLOWS THE C.E. TO CHOOSE THE CHAR. OR CHAR. 
COMBINATION TO WRAP-AROUND WHEN RUNNING ROUTINE 17. IF THIS OPTION 
IS NOT SELECTED, ALL ONES WILL BE WRAPEO-AROUND. (/FF) 

5.2 ROUTINE DESCRIPTION 

ROUTINE 01 ... PROGRAM RESET 

THIS ROUTINE CHECKS THF ABILITY OF THE SCA RESET COMMAND TO 
ESTABLISH INITIAL RESET CONDITIONS OF THE SCA CIRCUITRY. 
ALL DIAGNOSTIC WORD TRIGGERS AND DSW TRIGGERS SHOULD BE TURNED 
OFF, WITH THE EXCEPTION OF THE SEND/RECEIVE RUN TRIGGER. THIS 
ROUTINE IS EXECUTED AS THE SECOND HALF OF ALL OTHER ROUTINES. 
IF THE NO RESET PROGRAM OPTION HAS NOT BEEN SELECTED, (FUNCTION 
2, BIT SW 13). THE NO RESET PROGRAM OPTION IS NOT APPLICABLE TO 
THIS ROUTINE. 

ROUTINE 02 ... 1 READ RESPONSE INTERRUPT ALLOWED ... BUFFER LOADED TO ALL ONES 

THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
WHEN ONLY THE 1ST INTERRUPT IS ALLOWED. THE BUFFER WORD 
READ SHOULD BE /FFOO. IF STR SWT IS IN BIN POSITION AND BI SVN 
OPTION IS NOT SELECTED, THE WRITE INTERRUPT WILL NOT OCCUR AND 
UNEXPECTED READ INTERRUPT KILL OCCUR CAUSING AN EXTRA BUFFER 
SHIFT ON' ALL ROUTINES. BI SYNC PROGRAM OPTION ADJUSTS THIS ROU- 
TINE FOR PROPER INTERRUPT SEQUENCE ANALYSIS. 
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ROUTINE 03 



2 READ RESPONSE INTERRUPTS ALLOWED 



BUFFER LOADED TO ALL ONES 



ROUTINE 04 .. 



THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
WHEN ONLY THE FIRST TWO INTERRUPTS ARE ALLOWED. THE BUFFER 
WORD READ SHOULD BE /COOO FOR STR AND BSC MODE. 

BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 

NOTE.... BUFFER IS RESET TO ALL ONES. IF BUFFER CAN NOT 
LOADED, IT WILL CONTAIN /FF. 



3 READ RESPONSE INTERRUPTS ALLOWED ... BUFFER LOADED TO ALL ONES 

THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
WHEN ONLY THE FIRST THREE INTERRUPTS ARE ALLOWED. THE BUFFER 
WORD READ SHOULD BE /EOOO FOR STR AND BSC MODE. 

BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 



ROUTINE 05 ... 4 READ RESPONSE INTERRUPTS ALLOWED 



BUFFER LOADED TO ALL ONES 



THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
MHEN ONLY THE FIRST FOUR INTERRUPTS ARE ALLOWED. THE BUFFER 
WORD READ SHOULD BE /FOOD FOR STR AND BSC MODE. 

BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 

ROUTINE 06 ... 5 READ RESPONSE INTERRUPTS ALLOWED ... BUFFER LOADED TO ALL ONES 

THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
WHEN ONLY THE FIRST FIVE INTERRUPTS ARE ALLOWED. THE BUFFER 
WORD READ SHOULD BE /F800 FOR STR AND BSC MODE. 

BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 



ROUTINE OA ... 1 WRAP-AROUND CYCLE ALLOWED ... BUFFER LOADED TO ALL ONES 

THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SC* CIRCUITRY 
WHEN ONLY 1 FULL WRAP-AROUND CYCLE ALLOWED. THE BUFFER 
WORD READ SHOULD BE /FFOO FOR STR MODE OR /FFOO FOR BSC MODE. 
BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 



ROUTINE OB ... 2 WRAP-AROUND CYCLES ALLOWED 



BUFFER LOADED TO ALL ONES 



ROUTINE OC 



THE ROUTINE CHECKS THE PROPER OPERATION WHEN 2 FULL DIAG MODE 

CYCLE IS ALLOWED TO TAKE PLACE. THE BUFFER WORD READ 

SHOULD BE /FFOO FOR STR AND BSC MODE. 

BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 

SEQUENCE ANALYSIS. 



1 READ RESPONSE INTERUPT ALLOWED ...BUFFER NOT LOADED 

THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
WHEN ONLY THE FIRST INTERRUPT IS ALLOWED. THE SYNC/IDLE 
REGISTER IS LOADED INTO THE TRANSMIT SERIALIZER. THE BUFFER WORD 
READ SHOULD BE /8000 FOR STR AND BSC MODE. 

BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 



ROUTINE 00 



2 READ RESPONSE INTERRUPTS ALLOWED 



BUFFER NOT LOADED 



THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
WHEN ONLY THE FIRST TWO INTERRUPTS ARE ALLOWED. THE SYNC/IDLE 
REGISTER CONTAINS /3900 AND IS LOADED INTO THE TRANSMIT 
SERIALIZER. THE BUFFER WORD READ SHOULD BE /COOO FOR STR AND BSC, 
BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 



ROUTINE 07 



6 READ RESPONSE INTERRUPTS ALLOWED 



BUFFER LOADED TO ALL ONES 



THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
WHEN ONLY THE FIRST SIX INTERRUPTS ARE ALLOWED. THE BUFFER 
WORD READ SHOULD BE /FCOO FOR STR AND BSC MODE. 

BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 



ROUTINE 08 



7 READ RESPONSE INTERRUPTS ALLOWED 



BUFFER LOADED TO ALL ONES 



THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
WHEN ONLY THE FIRST SEVEN INTERRUPTS ARE ALLOWED. THE BUFFER 
WORD READ SHOULD BE /FEOO FOR STR AND BSC MODE. 

BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 



ROUTINE 09 ... 8 READ RESPONSE INTERRUPTS ALLOWED 



BUFFER LOADED TO ALL ONES 



THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
WHEN ONLY THE FIRST EIGHT INTERRUPTS ARE ALLOWED. THE BUFFER 
WORD READ SHOULD BE /FEOO FOR STR MODE OR /FFOO FOR BSC MODE. 
BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 



ROUTINE OE ... 3 READ RESPONSE INTERRUPTS ALLOWED ... BUFFER NOT LOADED 

THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SAC CIRCUITRY 
WHEN ONLY THE FIRST THREE INTERRUPTS ARE ALLOWED. THE SYNC/IDLE 
REGISTER CONTAINS /3900 AND IS LOADED INTO THE TRANSMIT 
SERIALIZER. THE BUFFER WORD READ SHOULD BE /6000 FOR STR AND BSC. 
BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 

ROUTINE OF ... 4 READ RESPONSE INTERRUPTS ALLOWED ... BUFFER NOT LOADED 

THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
MHEN ONLY THE FIRST FOUR INTERRUPTS ARE ALLOWED. THE SYNC/IDLE 
REGISTER CONTAINS /3900 AND IS LOADED INTO THE TRANSMIT 
SERIALIZER. THE BUFFER WORD READ SHOULD BE /3000 FOR STR AND BSC. 
BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 
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ROUTINE 10 



5 READ RESPONSE INTERRUPTS ALLOWED 



ROUTINE 11 



ROUTINE 12 



BUFFER NOT LOADED 



THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
WHEN ONLY THE FIRST FIVE INTERRUPTS ARE ALLOWED. THE SYNC/IDLE 
REGISTER CONTAINS /3900 AND IS LOADED INTO THE TRANSMIT 
SERIALIZER. THE BUFFER WORD READ SHOULD BE /9800 FOR STR AND BSC. 
BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 



6 READ RESPONSE INTERRUPTS ALLOWED 



ROUTINE 13 



ROUTINE 14 



BUFFER NOT LOADED 



THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
WHEN ONLY THE FIRST SIX INTERRUPTS ARE ALLOWED- THE SYNC/IDLE 
REGISTER CONTAINS /3900 AND IS LOADED INTO THE TRANSMIT 
SERIALIZER. THE BUFFER WORD READ SHOULD BE /CCOO FOR STR AND BSC. 
BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SFOUENCE ANALYSIS. 

7 READ RESPONSE INTERRUPTS ALLOWED ... BUFFER NOT LOADED 

THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
WHEN ONLY THE FIRST SEVEN INTERRUPTS ARE ALLOWED. THE SYNC/IDLE 
REGISTER CONTAINS /3900 AND IS LOADED INTO THE TRANSMIT 
SERIALIZER. THE BUFFER WORD READ SHOULD BE /E600 FOR STR AND BSC. 
81 SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 

8 READ RESPONSE INTERRUPTS ALLOWED ... BUFFER NOT LOADED 

THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
WHEN ONLY THE FIRST EIGHT INTERRUPTS ARE ALLOWED- THE SYNC/IDLE 
REGISTER CONTAINS /3900 AND IS LOADED INTO THE TRANSMIT 
SERIALIZER. THE BUFFER WORD READ SHOULD BE /7300 FDR STR AND BSC. 
BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 

1 WRAP-AROUND CYCLE ALLOWED ... BUFFER NOT LOADED 

THIS ROUTINE CHECKS THE PROPER OPERATION OF THE SCA CIRCUITRY 
WHEN ONLY THE FIRST NINE INTERRUPTS ARE ALLOWED. THE SYNC/IDLE 
REGISTER CONTAINS /3900 AND IS LOADED INTO THE TRANSMIT 
SERIALIZER- THE BUFFER WORD READ SHOULD BE /3900 FOR STR AND BSC. 
BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 



ROUTINE 16 ... DIAG MODE WRAP-AROUND 



BUFFER NOT LOADED. 



THIS ROUTINE CHECKS THE WRAP-AROUND FUNCTION WHEN THE SYNC/IDLE 
REGISTER IS LOADED INTO THE TRANSMIT SERIZLIZER. IF NOT SELECTING 
DIAGNOSTIC RUN, 10 FULL CYCLES ARE ALLOWED TO TAKE PLACE- IF 
DIAG RUN OPTION IS SELECTED, 64 FULL CYCLES ARE ALLOW TO TAKE 
PLACE. AFTER EACH CYCLE, THE BUFFER WORD READ SHOULD BE /3900 
FOR STR MODE AND FOR BI SYNC MODE. 

BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 



ROUTINE 17 



DIAG MODE .. 



ROUTING 18 



ROUTINE 19 



ROUTINE lA 



WRAP-AROUND 



BUFFER LOADED TO ALL ONES. 



THIS ROUTINE CHECKS THE WRAP-AROUND FUNCTION WHEN THE BUFFER IS 
LOADED TO ALL ONES. IF NOT SELECTING DIAGNOSTIC RUN OPTION, 10 
FULL CYCLES ARE ALLOWED TO TAKE PLACE. IF DIAGNOSTIC RUN OPTION 
IS SELECTED, 64 FULL CYCLES ARE ALLOWED TO TAKE PLACE. AFTER EACH 
CYCLE, THE BUFFER WORD READ SHOULD BE /FFOO- IF SELECT CHAR. 
OPTION IS SELECTED, THE CHAR. SELECTED WILL BE WRAPED- AROUND. 
BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 



DIAG MODE .... WRAP-AROUND 



BUFFER LOADED WITH ZEROS. 



THIS ROUTINE CHECKS THE WRAP-AROUND FUNCTION WHEN THE BUFFER IS 
LOADED WITH ALL ZEROS. TEN FULL WRAP-AROUND CYCLES ARE ALLOWED 
TO TAKE PLACE. AFTER EACH CYCLE THE BUFFER WORD REAT) SFTOULD BE 
/OOOO FOR BOTH SRT AND BSC MOOES. THE SYNC/ 1 OLE REGISTER IS 
LOADED WITH /AAOO. 



DIAG MODE 



.. WRAP-AROUND 



BUFFER IS LOADED WITH ZEROS. 



THIS ROUTINE CHECKS THE WRAP-AROUND FUNCTION WHEN THE BUFFER IS 
LOADED WITH ALL ZEROS. TEN FULL WRAP-ARtWND CYCLES ARE ALLOWED 
TO TAKE PLACE. AFTER EACH CYCLE THE BUFFER WORD READ SHOULD BE 
/OOOO FDR BOTH SRT AND BSC MODES. THE SYNC/IDLE REGISTER IS 
LOADED WITH /OOOO. 



DIAG MODE 



WRAP-AROUND 



7 BIT WORD. 



THIS ROUTINE CHECKS THE WRAP-AROUND FUNCTION USING A 7 BIT 
BUFFER WORD SIZE. BUFFER IS LOADED WITH /FEOO ... ALL ONES. 
NINE FULL WRAP-AROUND CYCLES ARE ALLOWED TO TAKE PLACE. AFTER 
EACH CYCLE THE BUFFER WORD READ SHOULD BE /FEOO FOR BOTH STR 
AND BSC MODES- THE SYNC/ IDLE REGEITER IS LOADED WITH /AAOO. 



ROUTINE 15 



2 WRAP-AROUND CYCLE ALLOWED 



BUFFER NOT LOADED 



THE ROUTINE CHECKS THE PROPER OPERATION WHEN 2 FULL DIAG MODE 
CYCLF IS ALLOWED TO TAKE PLACE. THE SYNC/IDLE REGISTER CONTAINS 
/3900 AND IS LOADED INTO THE TRANSMIT SERIALIZER. THE BUFFER 
WORD READ SHOULD BE /7300 FOR STR AND BSC MODE. 

BI SYNC PROGRAM OPTION ALTERS THIS ROUTINE FOR PROPER INTERRUPT 
SEQUENCE ANALYSIS. 



ROUTINE IB ... DIAG MODE .... WRAP-AROUND 



6 BIT WORD 



THIS ROUTINE CHECKS THE WRAP-AROUND FUNCTION USING A 6 BIT 
BUFFER WORD SIZE. BUFFER IS LOADED WITH /FCOO ... ALL ONES. 
EIGHT FULL WRAP-AROUND CYCLES ARE ALLOWED TO TAKE PLACE. AFTER 
FACH CYCLE THF BUFFER WORD READ SHOULD BE /FCOO FOR BOTH STR 
AND BSC MODES. THE SYNC/IDLE REGEITER IS LOADED WITH /AAOO. 
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5.3 



DIAGNOSTIC REFERENCE TABLE 
ERROR BIT REFERENCE 



ERR BIT 



BIT POSITION 



DSM ERROR OWl ERROR 



8 

2 
1 

8 

2 
1 

e 



READ RESP 

1 WRT RESP . 

2 CHECK .... 

3 TIMEOUT .. 

4 ANS REQ 

5 BUSY ... 

6 ENABLE . 

7 READY .. 



SYNC TRIG 
IDLE CHAR 
CHAR CMPT 
END OP ... 



IM2 ERROR 

CLK GATE 
SYNC CNTR 
1ST TRANS 
PHS CNTR 



8 RCV RUN 



01 AG NODE .... RCV TAG 

TIMER TR CHAR PHS 

3 SEC TIMER 
1.5 SEC TIMER 

SEND DATA 



ROUTINE 01 



STR 
S/B ON 



COMMAND FUNCTION 
RESET STR WRT 

DSW ERR 
012345678 
X 



MODIFIER 
9 
DHl ERR 
012345678 



0W2 ERR 



12 3 4 5 



N 
E 

T 

N 
U 
M 



6 M 
2 2 



F F 

C C 

3 5 

2 3 

1 I 
B 6 
C Y 

2 4 



BI SYN 
S/B ON 



F F 

C C 

1 6 

1 4 

1 1 

B B 

L L 

4 2 



F F 

C C 

5 5 

2 3 

1 I 

B B 

H X 

4 4 



ALARM 



F 
C 
3 
2 
I 
B 
M 
2 



COMMENTS 



ROUTINE 02 


COMMAND 


FUNCTION 


MODIFIER 




OIAG MODE 


CONTROL 


12 




SYNC/ IDLE 


XIO WRT 


13 




HRT BUFFER 


XIO WRT 







OSW ERR 


DWl ERR 



DW2 ERR 



012345678 012345678 
STR 

S/B ON . . X X X 



... X 



.XX. 



12 3 4 5 
X X ... X 



N 



N 
U 

M 



FFFFFFFFF FFFFFFFFF 



F F F F F F 



CCCCCCCCC CCCCCCCCC CCCCCC 



1 1 

A B 



BI SYN 

S/B ON . . X 



3 5 6 
2 3 4 
111 

B B B 
C Y M 
2 4 2 



B B 
L L 
4 2 



1 1 

A A 



B B 
H X 
4 4 



ALARM 



F 
C 
3 
2 
1 
B 
M 
2 



X . . . 



« A • • 



.XX 



XX. 



COMMENTS 



WHEN OPERATING IN STR MOOEt IF A RD INTERRUPT OCCURS AND NO WRT 
INTERRUPT OCClMSt CHECK STR SWITCH IS IN STR POSITION. IF NO 
INTERRUPT OCCURSt POSSIBLE CAUSE OF FAILURE COULD BE IN CLOCK 
CIRCUITRY. 



ROUTINES 


COMMAND 


FUNCTION 


MODIFIER 


03, 04, 05, 








06, 07, 08, 


OIAG MODE 


CONTROL 


12 




SYNC/ IDLE 


XIO WRT 


13 


• 


WRT BUFFER 


XIO WRT 







DSM ERR 


OWl ERR 



012345678 012345678 



STR 

S/B ON. .XXX.... 



DW2 ERR 



12 3 4 5 



X X 



XX. 



THIS ROUTINE CHECKS FOR RESET CONDITION OF THE SCA CIRCUITRY. 
IT SHOULD BE ABLE TO TRAP SOLID AND INTERMITTENT PROBLEMS IN 
THIS AREA. IF READY DSW BIT IS ON, CHECK SET UP. 



FFFFFFFFF FFFFFFFFF FFFFFF 
CCCCCCCCC CCCCCCCCC CCCCCC 



333333332 356333336 



N 
U 
M 



555553461 
111111111 

BABABAAAA 
ALBMCBQXV 
222224246 



BI SYN 
S/B ON 



234214443 
lllllllll 
BBBABAABA 
CYMRERVPL 
242222244 



16 12 5 5 
14 112 3 
111111 

B B A A B B 
L L T E H X 
4 2 2 2 4 4 



ALARM 



F 
C 
3 
2 
1 
B 
M 
2 



X . X 



X X 



XX. 



COMMENTS 



TO TROUBLE SHOOT FAILURE WITH SCOPE, LOOP ROUTINE AND SET UP 
SCOPE LOOP OPTION AS DESIRED. 
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ROUTINE 09 



COMMAND FUNCTION 


MODIFIER 


DUG MODE CONTROL 


12 


SYNC/IDLE XIO WRT 


13 


WRT BUFFER XIO WRT 





DSW FRR 


OWl FRR 



012345678 



DW2 ERR 



012345678 012345 



S/B ON 



XXX 



XXX. 



X X 



. X 



ALARM 



i 1 K 

S/B ON 


• 

. . X 


X 


X 


• 


• 
• 


• 




. X 


• 

• 


• 


X 


X 


X 


• 


• 
• 


• 


• • 

• 


• 

X 


X 




• 


• 
• 


• 

X 


• 




N 


• 

F 


F 


F 


F 


• 

F 


• 

F 




F F 


• 

F 


• 

F 


• 

F 


F 


• 

F 


F 


• 

F 


F 


• 

F 


• 

F 


• 

F 




• 
F 


• 

F 


F 


• 

F 




E 


C 


C 


C 


C 


C 


C 




C C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 




C 


C 


C 


C 




T 


3 


3 


3 


3 


3 


3 




3 2 


3 


5 


6 


3 


3 


3 


3 


3 


6 


1 


6 




2 


5 


5 


3 






5 


5 


5 


5 


5 


3 




5 1 


2 


3 


4 


2 


1 


4 


4 


4 


3 


1 


4 




I 


2 


3 


2 




N 


1 


I 


1 


1 


1 


1 




1 1 


1 


1 


1 


I 


I 


1 


1 


1 


1 


1 


1 




1 


1 


1 


I 




U 


B 


A 


B 


A 


B 


A 




A A 


8 


B 


6 


A 


B 


A 


A 


B 


A 


8 


B 




A 


B 


B 


B 




M 


A 


L 


B 


M 


C 


B 


Q 


X V 


C 


Y 


M 


R 


E 


R 


V 


P 


L 


L 


L 




E 


H 


X 


M 




• 


2 


2 


2 


2 


2 


4 


2 


4 6 


2 


4 


2 


2 


2 


2 


2 


4 


4 


4 


2 


2 


2 


4 


4 


2 


BI SYN 




. 


« 


• 


• 


• 


• 


. 


« • 


• • 


. 


. 


• 


, 


« 


, 


« 


• 


• 


• 


« 


• 


« 


« 


• 



ROUTINE OC 



COMMAND 



FUNCTION 



DIAG MODE CONTROL 
SYNC/IDLE XIO WRT 
WRT BUFFER XIO WRT 



MODIFIER 

12 
13 





COMMENTS 











DSW FRR 










OWl ERR 








DW2 


ERR 




ALARM 











2 


3 


4 


«; 


6 


7 


8 







2 


3 


4 


5 


6 


7 


8 





1 


2 


3 


4 


5 


* 


STR 




■ 




• 


• 


, 




, 


, 


. 


. 




. 


• 


• 




• 


* 


• 


• 


« 




. 


« 


• 


• 


S/B ON 


• 


. X 




• 


• 


. 




• 


• 


X 


- 




. 


X 


X 




• 


• 


• 


X 


X 




. 


• 


X 


• 




N 


• 

F 




• 

F 


F 


F 




F 


* 

F 


• 

F 


F. 




F 


F 


• 

F 




• 

F 


m 

F 


• 

F 


m 

F 


F 




F 


F 


F 


F 




E 


C 




C 


C 


C 




C 


C 


C 


C 




C 


C 


C 




C 


C 


C 


C 


C 




C 


C 


C 


C 




T 


3 




3 


3 


3 




3 


3 


2 


3 




6 


3 


3 




3 


3 


6 


1 


6 




2 


5 


5 


3 






5 




5 


5 


5 




4 


6 


1 


2 




4 


2 


1 




4 


4 


3 


1 


4 




1 


2 


3 


2 




N 


1 




1 


1 


1 




1 


1 


I 


1 




1 


1 


1 




1 


1 


1 


1 


I 




1 


1 


1 


1 




U 


6 




B 


A 


B 




A 


A 


A 


B 


B 


B 


A 


B 




A 


B 


A 


B 


B 




A 


B 


B 


B 




M 


A 




B 


M 


C 




Q 


X 


V 


C 


Y 


M 


R 


E 


R 


V 


P 


L 


L 


L 




E 


H 


X 


M 




• 


2 




2 


2 


2 




2 


4 


6 


2 


4 


2 


2 


2 


2 


2 


4 


4 


4 


2 




2 


4 


4 


2 


BI SYN 




• 




• 


• 


, 




. 


. 


. 


• 


• 


• 


• 


. 


• 


• 


• 


, 


• 


• 




. 


• 


• 


. 


S/B ON 


• 


. X 




• 


• 


. 




. 


. 


X 


• 


• 


• 


X 


X 


• 


« 


• 


• 


X 


X 




• 


• 


• 


. 




COMMENTS 















































TO TROUBLE SHOOT FAILURE WITH SCOPEt LOOP ROUTINE AND SET UP 
SCOPE LOOP OPTION AS DESIRED. 



TO TROUBLE SHOOT FAILURE WITH SCOPE. LOOP ROUTINE AND SET UP 
SCOPE LOOP OPTION AS DESIRED. 



ROUTINES COMMAND 


FUNCTION 


MODIFIER 


0A,08,17,1A,1B 






DIAG MODE 


CONTROL 


12 


SYNC/IDLE 


XIO WRT 


13 


WRT BUFFER 


XIO WRT 






STR . . . 

S/B ON . . X X X 



DSW ERR DWl ERR 

012345678 012345678 



DW2 ERR ALARM 
12 3 4 5 
X X . . X X 



N 
U 
M 



FFFFFFFFF 
CCCCCCCCC 
333333 3 32 
555553461 
111111111 
BABABAAAA 
ALBMCBOXV 
222224246 



FFFFFFFFF 



F F F F F F 



CCCCCCCCC CCCCCC 
3563 3 3336 161255 



BI SYN 
S/B ON 



234214443 
1 1 1 I I 1 1 1 1 

B8BABAABA 
CYMRERVPL 
242222244 



14 112 3 
111111 

B B A A B B 
L L T E H X 
4 2 2 2 4 4 



.XXX 



..XX 



X X 



X X 



COMMENTS 



F 
C 
3 
2 

I 
B 
M 
2 



TO TROUBLE SHOOT FAILURE WITH SCOPE, LOOP ROUTINE AND SET UP 
SCOPE LOOP OPTION AS DESIRED. 



NOTE.., 



IF DATA SET SW IS NOT IN TEST, SOME ROUTINES WILL 
FAIL DW2 - BIT 3 



ROUTINE 00 



COMMAND 



FUNCTION 



DIAG MODE CONTROL 
SYNC/IOLE XIO WRT 
WRT BUFFER XIO WRT 



MODIFIER 

12 
13 













( 


3SV 


< ERR 










1 


3W1 ERR 








0W2 


ERR 




ALAI 











2 


3 


4 


5 


6 


7 


8 





1 


2 


3 


4 


5 


6 


7 


8 





1 


2 


3 


4 


5 


* 


STR 




. 




. 


. 


• 


« 


• 


. 


. 


• 


• 


, 


« 


• 


• 


• 


• 


« 


, 


, 






• 


. 


• 


S/B ON 


• • • 




X 


• 


• 


• 


• 


• 


X 


« 


• 


. 


X 


X 


• 


• 


• 


• 


X 


X 






• 


* 


• 




N 


F 




F 


F 


F 


• 

F 


F 


F 


« 

F 


F 


F 


F 


• 

F 


• 

F 


• 

F 


F 


• 

F 


F 


F 


F 






F 


F 


F 




E 


C 




C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 






C 


C 


C 




T 


3 




3 


3 


3 


3 


3 


3 


2 


3 


5 


6 


3 


3 


3 


3 


3 


6 


1 


6 






5 


5 


3 






5 




5 


5 


5 


3 


4 


6 


1 


2 


3 


4 


2 


1 


4 


4 


4 


3 


1 


4 






2 


3 


2 




N 


1 




I 


1 


1 


1 


1 


1 


1 


1 


1 


I 


I 


1 


1 


1 


1 


1 


1 


1 






1 


1 


1 




U 


B 




B 


A 


B 


A 


A 


A 


A 


B 


B 


B 


A 


B 


A 


A 


B 


A 


6 


B 






B 


B 


B 




M 


A 




B 


M 


C 


B 


Q 


X 


V 


C 


Y 


M 


R 


E 


R 


V 


P 


L 


L 


L 






H 


X 


M 




• 


2 




2 


2 


2 


4 


2 


4 


6 


2 


4 


2 


2 


2 


2 


2 


4 


4 


4 


2 






4 


4 


2 


BI SYN 




• 




. 


« 


• 


• 


• 


. 


. 


• 


• 


. 


• 


• 


■ 


• 


• 


• 


• 


• 






• 


. 


• 


S/8 ON 


- • 


, X 




. 


• 


• 


« 


• 


. 


X 


• 


• 


« 


X 


X 


* 


• 


• 


X 


X 


X 






• 


. 


■ 




COMMENTS 















































TO TROUBLE SHOPT FAILURE WITH SCOPE, LOOP ROUTINE AND SET UP 
SCOPE LOOP OPTION AS DESIRED. 



DATE 


15JUN67 


01QCT67 


01 APR68 


15SFP68 


01JUL69 


010CT69 


01JUN70 


PROG 10 


0319-* 


DATE 


15JUN67 


010CT67 


01APR68 


15SFP68 


01JUL69 


0inCT69 


01JUN70 


PPGG ID 


0319-* 


EC NO. 


420317 


420374 


4204! 1 


421416 


571013 


571066 


571097 


PAGE 


11 


EC NO. 


420317 


420374 


420411 


421416 


57101-', 


571066 


571097 


par,r 


UA 
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ROUTINE OE 



STR 

S/B ON . 



BI SYN 
S/B ON 



COMMAND 

OIAG MODE 
SYNC/ IDLE 
WRT BUFFER 



FUNCTION 

CONTROL 
XIO WRT 
XIO WRT 



MODIFIER 

12 
13 





DSW ERR DWl ERR 0W2 ERR ALARM 

012345678 012345578 012345 



X X 



. X 



X X 



ROUTINES 
10, 11 


COMMAND FUNCTION 

01 AG MODE CONTROL 
SYNC/ IDLE XIO MRT 
WRT BUFFER XIO HRT 


MODIFIER 

12 
13 








DSW ERR 


DHl ERR 


DW2 FRR 



- 


• 

. X 


• 

X 


• 


• 


• 


• 


• 


• 
• 


X 


- 


• 


: 


X 


X 


• 




• 


• 

X 


• 

X 


• 

X 


I 


X 


: 


X 




N 


F 


F 


F 


F 


F 


F 


F 


F 


• 

F 


F 


F 


F 


• 

F 


• 

F 


F 




• 

F 


• 

F 


F 


F 


F 


F 


F 


• 

F 




E 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 




C 


C 


C 


C 


C 


C 


C 


C 




T 


3 


3 


3 


3 


3 


3 


3 


3 


2 


3 


5 


6 


3 


3 


3 




3 


6 


1 


6 


1 


2 


5 


5 


3 




5 


5 


5 


5 


5 


3 


4 


6 


1 


2 


3 


4 


2 


1 


4 




4 


3 


1 


4 


I 


t 


2 


3 


2 


N 


1 


1 


1 


1 


1 


1 


1 


1 


1 


I 


1 


I 


1 


1 


1 




1 


1 


1 


1 


1 


1 


1 


1 


1 


U 


B 


A 


B 


A 


B 


A 


A 


A 


A 


B 


B 


B 


A 


B 


A 




B 


A 


B 


B 


A 


A 


B 


B 


B 


M 


A 


L 


B 


H 


C 


B 


Q 


X 


V 


C 


Y 


M 


R 


E 


R 




P 


L 


L 


L 


T 


E 


H 


X 


M 


• 


2 

• 


2 

• 


2 


2 

• 


2 


4 


2 

• 


4 


6 


2 


4 


2 

• 


2 

• 


2 

• 


2 

• 


2 


4 

• 


4 

• 


4 


2 

• 


2 

* 


2 


4 


4 

■ 


2 



012345678 012345678 012345 

STR 

S/B ON -.XX X 



X X 



X X 



. . X 



ALARM 



COMMENTS 





N 


F 


F F 


F 


F 


F 


F 


F 


F 


F 


F 


F 


F 


F 


F 


F 


F 


F 


F 


F 




F 


F 


F 


F 




E 


C 


C C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 




C 


C 


C 


C 




T 


3 


3 3 


3 


3 


3 


3 


3 


2 


3 


5 


6 


3 


3 


3 


3 


3 


6 


1 


6 




2 


5 


5 


3 






5 


5 5 


5 


5 


3 


4 


6 


1 


2 


3 


4 


2 


1 


4 


4 


4 


3 


1 


4 




1 


2 


3 


2 




N 


1 


1 I 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 


I 




1 


1 


1 


1 




U 


B 


A B 


A 


8 


A 


A 


A 


A 


B 


B 


B 


A 


B 


A 


A 


B 




B 


B 




A 


B 


B 


B 




M 


A 


L B 


M 


C 


B 





X 


V 


C 


Y 


H 


R 


E 


R 


V 


P 




L 


L 




E 


H 


X 


H 




. 


2 


2 2 


2 


2 


4 


2 


4 


6 


2 


4 


2 


2 


2 


2 


2 


4 




4 


2 


2 


2 


4 


4 


2 


Bl SYN 




. 


, . 


« 


, 


. 


» 


• 


, 


• 


• 


. 


• 


^ 


^ 


• 


^ 




^ 


« 


« 


• 


^ 


^ 


^ 


S/B ON 


. . X 


- • 


• 


• 


« 


• 


• 


X 


m 


- 


- 


X 


X 


- 


• 


- 




X 


X 


• 


- 


• 


- 


• 




COMMENTS 















































TO TROUBLE SHOOT FAILURE WITH SCOPE, LOOP ROUTINE AND SET UP 
SCOPE LOOP OPTION AS DESIRED. 



TO TROUBLE SHOOT FAILURE WITH SCOPE, LOOP ROUTINE AND SET UP 
SCOPE LOOP OPTION AS DESIRED. 



ROUTINE OF 


COMMAND FUNCTION 




MODIFIER 




DIAG MODE CONTROL 




12 




SYNC/IDLE XIO WRT 




13 




WRT BUFFER XIO WRT 









DSW ERR 




OWl ERR 




012345678 


1 


2 3 4 5 6 7 8 


STR 








S/B ON . 


.XX X 


« 


• X n • • • • 



FFFFFFFFF 



FFFFFFFFF 



F F F F F F 



CCCCCCCCC CCCCCCCCC CCCCCC 



333333332 
555553461 
111111111 
BABABAAAA 
ALBMCBQXV 
222224246 



356333336 
234214443 
1 1 1 1 1 1 1 1 I 

BBBABAABA 
CYMRERVPL 
242222244 



16 12 5 5 

14 112 3 

1 1 1 1 I 1 

B B A A B B 

L L T E H X 

4 2 2 2 4 4 



BI SYN . . 

S/fl ON . . X . 



ROUTINE 12 



DW2 ERR ALARM 

12 3 4 5 
X X . X . X 



F 
C 
3 
2 
1 
B 
M 
2 



. . X 



.XX. 



A A ♦ A • • 



BI SYN 
S/B ON 



COMMAND 



STR 

S/B ON . . 



N 
U 
M 



FUNCTION 



DIAG MODE CONTROL 
SYNC/ IDLE XIO WRT 
MRT BUFFER XIO WRT 

DSW ERR 

012345678 



MODIFIER 

12 
13 



DWl ERR 
012345678 
...XX...X 



DW2 ERR ALARM 
12 3 4 5 

A A • • • X • 



FFFFFFFFF 



FFFFFFFFF 



F F F F F F 



CCCCCCCCC CCCCCCCCC CCCCCC 



333333332 



356333336 



555553461 234214443 



111111111 

BABABAAAA 
ALBMCBQXV 
222224246 



111111111 

BBBABAABA 
CYMRERVPL 
242222244 



16 12 5 5 
14 112 3 
111111 
B B A A 6 B 
L L T E H X 
4 2 2 2 4 4 



F 
C 
3 
2 
1 
6 
M 
2 



. X 



X X 



X X 



COMMENTS 



COMMENTS 



TO TROUBLE SHOOT FAILURE WITH SCOPE, LOOP ROUTINE AND SET UP 
SCOPE LOOP OPTION AS DESIRED. 



TO TROUBLE SHOOT FAILURE WITH SCOPE, LOOP ROUTINE AND SET UP 
SCOPE LOOP OPTION AS DESIRED. 



DATE 


15JUN67 


010CT67 


01APR68 


15SEP68 


01JUL69 


010CT69 


01JUN70 


PROG ID 


03 19-* 


DATE 


15JUN67 


010CT67 


01APR68 


15SEP68 


01JUL69 


010CT69 


01JUN70 


PROG ID 


03 19-* 


EC NO. 


420317 


4203 74 


420411 


421416 


571013 


571066 


571097 


PAGE 


12 


EC NO. 


420317 


420374 


420411 


421416 


571013 


571066 


571097 


PAGE 


12A 
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ROUTINE 13 



COMMAND 

01 AG MODE 
SYNC/ IDLE 
WRT BUFFER 



FUNCTION 

CONTROL 
XIO WRT 
XIO WRT 



MODIFIER 

12 
13 





DSW ERR DWl ERR DW2 FRR ALARM 

012345678 012345678 012345 



ROUTINES COMMAND FUNCTION 


MODIFIERS 


14, 16, 18» 19 




01 AG MODE CONTROL 


12 


SYNC/IDLE XIO WRT 


13 


WRT BUFFER XIO WRT 






STR 




. 


• « 


• 


• 


^ 


• 


. 




























" 








S/B ON 


« 


. X 


X X 


• 


• 


♦ 


• 


• 


X 




• 


X 


X 


X 


- 


- 




X 


X 


X 


. 


X 


. 


X 


* 




N 


F 


F F 


F 


F 


F 


F 


F 


F 


F 


• 

F 


F 


* 

F 


F 


F 


• 

F 




• 

F 


F 


F 


F 


• 

F 


• 

F 


F 


• 

F 




b 


C 


C C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 




C 


C 


C 


C 


r. 


r 


r 


r 




T 


3 


3 3 


3 


3 


3 


3 


3 


2 


3 


5 


6 


3 


3 


3 


3 




6 


1 


6 


1 


? 


5 


5 


3 






b 


5 5 


5 


5 


3 


4 


6 


1 


2 


3 


4 


2 


1 


4 


4 




3 


1 


4 


I 


1 


2 


3 


? 




N 


I 


1 1 


I 


1 


I 


1 


I 


1 


1 


I 


1 


1 


1 


1 


1 




1 


1 


I 


1 


1 


1 


1 


1 




U 


B 


A B 


A 


B 


A 


A 


A 


A 


B 


B 


B 


A 


B 


A 


A 




A 


6 


B 


A 


A 


R 


B 


R 




M 


A 


L B 


M 


C 


8 


Q 


X 


V 


C 


Y 


M 


R 


E 


R 


V 




L 


L 


t 


T 


F 


H 


X 


M 




. 


2 


2 2 


2 


2 


4 


2 


4 


6 


2 


4 


2 


2 


2 


2 


2 




4 


4 


2 


2 


2 


4 


4 


? 


Bl SYN 




• 


• • 


• 


• 


• 


. 


. 










^ 


























S/B ON 


. 


. X 


X X 


• 


• 


• 


• 


• 


X 


• 


• 


X 


X 


X 


- 


• 




X 


X 


X 


« 


X 


. 


X 


• 




COMMENTS 















































STR 
S/P ON 



nSW FRR OWl FRR DW2 ERR ALARM 

012345678 012345678 012345 



BI SYN 
S/B ON 



- 


. X 


• 

X 


X 


• 


• 


• 


• 


: 


X 


* 
• 


* 


• 
• 


X 


X 




. 


• 
• 




X 


• 

X 




« 

X 


X 


• 

X 


* 
• 


N 


F 


F 


F 


F 


F 


F 


F 


F 


F 


• 

F 


• 

F 


« 

F 


• 

F 


• 

F 




F 


F 




F 


• 

F 




• 

F 


F 


• 

F 


• 

F 


t 


t 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 


C 




C 


C 




C 


C 




C 


C 


C 


r 


T 


3 


3 


3 


3 


3 


3 


3 


3 


2 


3 


5 


6 


3 


3 




3 


3 




1 


6 




2 


5 


5 


3 




5 


5 


5 


5 


5 


3 


4 


6 


I 


2 


3 


4 


2 


1 




4 


4 




1 


4 




1 


2 


3 


? 


N 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 


1 




I 


1 




1 


I 


1 


1 


U 


b 


A 


6 


A 


B 


A 


A 


A 


A 


B 


B 


B 


A 


B 




A 


B 




B 


B 




A 


R 


n 


R 


M 


A 


L 


B 


M 


C 


B 


Q 


X 


V 


C 


Y 


M 


R 


E 


R 


V 


P 




t 


L 




F 


H 


X 


H 


• 


2 


2 

« 


2 

• 


2 


2 


4 


2 

• 


4 

• 


6 

* 


2 

• 


4 


2 


2 

• 


2 


2 


2 

• 


4 

• 


• 


4 


2 

• 




2 


4 

• 


4 

• 


2 



TO TROUBLE SHOOT FAILURE WITH SCOPE, LOOP ROUTINE AND SET UP 
SCOPE LOOP OPTION AS DESIRED. 



XXX 



X X 



X X 



XXX 



COMMENTS 



ROUTINE 15 



COMMAND 



TO TROUBLE SHOOT FAILURE WITH SCOPE, LOOP ROUTINE AND SET UP 
SCOPE LOOP OPTION AS DESIRED. 



FUNCTION 



DUG MODE CONTROL 
STNC/lOtE XIO WRT 
WRT BUFFER XIO WRT 

DSW ERR 



MODIFIER 

12 

13 



OSWl ERR 



LAST PAGE 



DSH2 ERR ALARM 



012345678 012345678 012345 
STR ......... ....... 

S/B ON .. X X X X 



..XX. 



. X 



X X 



N 


F F F 


F 


F F F F F 


FFFFFFFFF 


F F F F F F 


F 


E 


C C C 


c 


C C c C C 


CCCCCCCCC 


C C C C C C 


r 


T 


3 3 3 


3 


3 3 3 3 2 


356333336 


16 12 5 5 


3 




5 5 5 


b 


5 3 4 6 1 


234214443 


14 112 3 


? 


N 


1 1 1 


1 


1 1 1 I 1 


111111111 


111111 


1 


U 


BAB 


A 


B A A A A 


B8BABAABA 


B 8 A A B R 


n 


H 


ALB 


M 


C B X V 


CYMRERVPL 


L L T E H X 


M 


« 


2 2 2 


2 


2 4 2 4 6 


242222244 


4 2 2 2 4 4 


2 


BI SYN 


• • • 












S/B ON . . 


XXX 


• 


• • • • X 


... X X ... X 


X X . X . X 


. 


COMMENTS 













TO TROUBLE SHOOT FAILURES WITH SCOPE, LOOP ROUTINE AND SET UP 
SCOPE LOOP OPTION AS DESIRED. 



DATF 
EC NO. 



15JUN67 
420317 



010CT67 
^20^74 



01APP6S 
4204! 5 



l^SEP^e 
421416 



01JUL69 
571013 



010CT69 
571066 



01JUN70 
571097 



PROG ID 
PAGE 



0319-* 
13 



DATE 
EC NO. 



15JUN6 7 
* 2031 7 



010CT67 
420374 



01APR68 
420411 



15SEP6R 
421416 



01JUL69 
■571013 



010CT69 
571066 



01JUN70 
571097 



PRHG ID 
PAGE 



031 9-* 
HA 
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05 DC 



ORG 



*£1500 
EQUATE TABLE 



0160 

0161 

0162 

0163 

0164 



0165 

0166 

0167 

0168 



017A 
018A 
019A 
OlAA 
OIBA 
01B6 
OIBC 
OIBD 



* THIS TABLE EQUATES TEST PROGRAM LABELS 

* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* ADDRESSES. 



* 

4c 


MONITOR 


ENTRY ADDRESSES 


BEGIN 


EQU 


/160 


BEGIN ROUTINE 


START 


EQU 


BEGINCl 


SUPERVISOR ROUTINE 


ERROR 


EQU 


START61 


ERROR LOG ROUTINE 


LOG 


FOU 


ERROREl 


STATUS LOG ROUTINE 


END 

* 

* 


EQU 


LOGGl 


END ROUTINE 


* 


MONITOR 


CONTROL 


WORD ADDRESSES 


RTNSW 


EQU 


EN0&1 


ROUTINE START. SW 


ERLCK 


EQU 


ENDC2 


LOCK ON ERR CONTROL 


LOGBY 


EQU 


EN0e3 


I/O BUSY SW ADDRS 


RLCF 

* 


EQU 


END £4 


RELOC FACTOR AOORS 


* 

* 


INTERRUPT TRANSFER VECTOR ADDRESSES 


ILO 


EQU 


/17A 


INTERRUPT LEVEL 


ILl 


EQU 


IL0S16 


INTERRUPT LEVEL 1 


IL2 


EQU 


ILltl6 


INTERRUPT LEVEL 2 


IL3 


EQU 


IL2616 


INTERRUPT LEVEL 3 


IL4 


EQU 


IL3616 


INTERRUPT LEVEL 4 


RQTV 


EQU 


IL4E1 


CON/PRINT REQUEST 


ROKB 


EQU 


RQTYEl 


USE KEYBOARD REQUEST 


SVKB 


ECU 


RQKBEl 


KB SERVICE REQUEST 


* 

* _ 


* 

4t 


4 


5CA WRAP- 


AROUND TEST 



05E7 0000 
05E8 1 C400 05DF 
05EA EC80 0166 
05EC lOOA 
05ED 1 4C90 05E7 



* PROGRAM STATUS TABLE 

* 

PROGRAM ID 
ROUTINE NUMBER 
ROUTINE ADDRESS 
PROGRAM CONTROL 
ROUTINE SELECTION 
OPTION SELECTION SW 
RTN SCAN OPTION 
LOOP PROGRAM 
RESTART ADDRESS 
ENTRY SET IN MN/LINE 

TERMINATOR 

* 

********* *«*****»^*^^^^^^^^^^^^^^^^^^^^^^^^^ 

♦ LOCK ON FUNCTION ROUTINE 

*************^#*^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

* 

LOCK DC /OOOO 

SWO LD SWO 

ERLCK OR WITH MON LOCK SW 

10 CHECK BIT 10 

LOCK,- BR IF NOT LOCK/FUNC 



05DC 0319 


PID 


DC 


/0319 


05DD 0000 


RID 


DC 


/OOOO 


05DE 0000 


RAO 


DC 


/OOOO 


05DF 0000 


SWO 


DC 





05E0 0000 


SWl 


DC 





05 EI 0000 


SW2 


DC 





05E2 0000 


SW3 


DC 





05E3 1 093A 




DC 


PLOQP 


05E4 1 0927 




DC 


STRT 


05E5 1 0927 


MLSCF 


DC 


STRT 


05E6 FFFF 




DC 


/FFFF 



DC 

LD 

OR 

SLA 

BSC 



DATE 
EC NO. 



15JUN67 
420317 



010CT67 
420374 



01JUL69 
571013 



01SEP69 
571062 



01JUN70 
571097 



31900020 

31900030 

31900040 

31900050 

31900060 

31900070 

31900080 

31900090 

31900100 

31900110 

31900120 

31900130 

31900140 

31900150 

31900160 

31900170 

31900180 

31900190 

31900200 

31900210 

31900220 

31900230 

31900240 

31900250 

31900260 

31900270 

31900280 

31900290 

31900300 

31900310 

31900320 

31900330 

31900340 

31900350 

31900360 

31900370 

31900380 

31900390 

31900400 

31900410 

31900420 

31900430 

31900440 

31900450 

31900460 

31900470 

31900480 

31900490 

31900500 

31900510 

31900520 

31900530 

31900540 

31900550 

31900560 

31900570 

31900580 

31900590 

31900600 

31900610 

31900620 

31900630 

31900640 

31900650 

31900660 

31900670 

31900680 

31900690 



PROG ID 
PAGE 



05EF 1 C400 05F5 
05F1 1 4CA0 05F5 
05F3 1 4C80 0567 
05F5 OOOO 



05F6 6700 FFE6 
05F8 1 CFOO 0676 
05FA 1 DFOO 0710 
05FC 7302 
05FD 70FA 

05FE 4480 0160 
0600 I 05DC 



0601 OOOO 

0602 1000 

0603 OOOO 

0604 1 7401 0689 
0606 6700 FFF6 
0608 1 CFOO 0710 
060A 1 DFOO 0676 
060C 7302 
0600 70FA 

060E 1 C400 05E1 
0610 1 E400 0798 
0612 1 F400 0798 
0614 1 EC80 0603 

0616 1888 

0617 1 0400 06ED 

0619 1010 

061 A I D400 06E5 
061C 1084 
061D 1 D400 064E 

061F 1010 

0620 1082 

0621 1 4C20 0628 

0623 1 C400 06DC 

0625 D036 

0626 D036 

0627 7013 

0628 I 4C04 0633 
062A 1 C400 06DC 



03 19-0 
1 



DATE 
EC NO. 



15JUN67 
420317 



010CT67 
420374 





LD 


L 


LOOP 


LOAD LOOP ADDRS 


31900700 






BSC 


I 


LOOP.Z 


LOOP ON LAST FUNC 


31900710 






BSC 


I 


LOCK 


IF LOOP ADDRS NOT 


31900720 




LOOP 


DC 




*-* 


LOCK/ERR LOOP ADR. 


31900730 




* 










31900740 




********************************************* 


31900750 




* 






TEST INITIALIZATION 


31900760 




********************************************* 


31900770 




* 










31900780 




BFGN 


LOX 


L3 


-26 




31900790 




SVWTS 


LDD 


L3 


SIX+26 




31900800 






STD 


L3 


WTSVO+26 




31900810 






MDX 


3 


2 




31900820 






MDX 




SVWTS 


y 


31900830 




* 










31900840 






BSI 


I 


BEGIN 


MON INITIALIZATION 


31900850 






DC 




PID 


PSt TABLE 


31900860 




* 










31900870 




*^ — — . 










31900880 








~'~*^- 








♦ START OF 


TEST AND SINGLE. PASS INITIALIZE 


31900890 




*— — — . 










31900900 
















* 










31900910 




********************************************* 


31900920 




* 






PROGRAM WAIT 


31900930 




********************************************* 


31900940 




* 










31900950 




* THIS ROUTINE IS USED 


BY THE TEST PROGRAM 


31900960 




♦ TO 


MARK 


TIME WHILE WAITING FOR AN INTERRUPT 


31900970 




* TO 


OCCUR 


a 






31900980 




* 










31900990 




********************************************* 


31901000 




* 










31901010 




WCNT 


DC 







WAIT COUNTER 


31901020 




DELY3 


DC 




/lOOO 


DELAY CONSTANT 


31901030 




♦ 










31901040 




GO 


DC 




*-* 




31901050 






MDX 


L 


LOPSW.tl 


TURN, EXP INTRPT SW 


31901060 




RSTRT 


LDX 


L3 


-26 




31901070 






LDD 


L3 


WTSV0*26 


MOVE DATA 


31901080 






STD 


L3 


SIX*26 


TO A 2ND. AREA 


31901090 






MDX 


3 


2 




31901100 






MDX 




RSTRT*2 




31901110 




* 










31901120 






LD 


L 


SW2 


PICK UP SWITCH READING 


31901130 






AND 


L 


KOOOl 


DECIDES IF STR PARAM. S/B 


31901140 






FOR 


L 


KOOOl 




31901150 






OR 


I 


GO 


TO PICK UP PARAMETERS 


31901160 




* 










31901170 






SRT 




8 


SHIFTS SWS.8-H INTO EXT 


31901180 






STO 


L 


PASS 


PASS CNT. NOW IN ACC 


31901190 




* 


SLA 




16 




31901200 
31901210 






STO 


L 


DSWAL 


CLEAR COMBINED DSW WD. 


31901220 






SLT 




4 


SWS. 8-11 NOW IN ACCINTCN 


31901230 






STO 


L 


STRMD*-1 


INT CNT GOES IN STR MODE 


31901240 




* 










31901250 






SLA 




16 


ACC CLEARED 


31901260 






SLT 




2 


SWS. 12 C 13 NOW IN ACC 


31901270 






BSC 


L 


CKSIX, Z 


BRANCH IF ACC IS NONZER/ 


31901280 




* 








CKSIX IF SW 12 OR 13 IS ON 


31901290 






LD 


L 


NOPS 




31901300 






STO 




SIX 


PUT NOP INSTR WHERE SIXWAS 


31901310 






STO 




SEVEN 


PUT NOP INSTR WHERE SVNWAS 


31901320 






MDX 




CKSYN 


CHECK SYNC MODE 


31901330 




* 










31901340 




CKSIX 


BSC 


L 


SVN,E 


BR IF ACC IS OOOtSW 71 


31901350 




* 










31901360 






LD 


L 


NOPS 


BIT SEVEN IS OFF 


31901370 




01JUL69 


01SEP69 01JUN70 


PROG ID 


0319-0 


571013 


571062 571097 


PAGE 


lA 
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062C 1 D400 0650 

062E 1 R400 0664 

0630 1 0400 0665 

0632 T004 

0633 1 C400 06DC 
0635 1 0400 065C 
0637 1 D400 0666 

0639 1 D400 0667 

063B 1081 
063C 1 4C04 0646 

063E 1 C400 06DC 

0640 1 0400 065F 
0642 1 0400 0661 
0644 1 0400 0671 

0646 1081 

0647 1 4C04 0640 

0649 1 CCOO 06DC 
064B 1 DCOO 0660 

064D 6700 0000 
064F 1 7780 064F 

0651 7001 

0652 7004 

0653 1 CCOO 060E 
0655 1 DFOO 0662 

0657 1 OCOO 0994 

0659 1 OCOO 06CE 

065B 7000 
065C 0000 





STO 


L 


SEVEN 




STO 


L 


WAIT2 




STO 


L 


WAIT2*1 


^ 


MDX 




SVNi-4 


SVN 


LD 


L 


NOPS 




STO 


L 


SIX 




STO 


L 


WAIT3 


# 


STO 


L 


WAIT3+1 


CKSYN 


SLT 




1 




BSC 


L 


NOSYN, E 


* 










LD 


L 


NOPS 




STO 


L 


WRITE 




STO 


L 


MAITO+1 




STO 


L 


WAIT8+1 


♦ 








NOSYN 


SLT 




1 




BSC 


L 


STRMO.E 


« 










LDD 


L 


NOPS 




STO 


L 


MAITO 


♦ 








STRHD 


LDX 


L3 


*-* 




MDX 


13 


STRMO+1 




MDX 




SET 


* 


MDX 




NOSET 


SET 


LDD 


L 


BR 




STO 


L3 


WAITl 


* 








NOSFT 


XIO 


L 


RESET 


4< 










XIO 


L 


SYALT 


* 










MDX 




SIX 




BSS 


E 






NOP SEVEN 

NOP WAIT2 

NOP READ BUF INST FOR WAIT 

2 NOP WAIT3 

BIT 7 IS ON 

NOP SIX 

NOP WAIT3 

NOP READ BUF AFTER WAIT 3 

SW 14 NOW IN ACC 

BR IF ACC IS 000(SW140FF) 



NOP INSTR TO LOAD BUF. 
NOP, NO TIME TO LD. BUF. 
NOP 

SW 15 NOW IN ACC 

BR IF ACC IS ODD.SW 15 ON 

SW 15 IS OFF 

IST.WRT NOT NEEDED IN BSC 



SW 15 IS ON, STR MODE 
PICK UP BR INSTRUC. 



BRANCH INSTRUCTION 
WAIT 1 NO LONGER NEEDED 

EXECUTE RESET 

LOAD SYNC ALT PATTERN 



* THE FOLLOWING INSTRUCTIONS ARE MODIFIED BY THE 

* PROGRAM TO ALLOW THE CORRECT NUMBER OF INTER- 

* RUPTS FOR EACH TEST ROUTINE. SOME XIO INSTRUC- 

* TIONS MAY BE REPLACED BY NOP INSTRUCTIONS TO 

* ALLOW THE PROPER SEQUENCES OF INTERRUPT SERVICING 



065C 





0870 


* 

SIX 
* 
SEVEN 

* 

* 
WRITE 

* 
* 

WAITO 


XIO 


SET6 


0650 





087A 


XIO 


SETT 


065E 





0861 


XIO 


DIAG 


065F 





0876 


XIO 


WRCAT 


0660 
0661 






3000 
0874 


WAIT 
XIO 



WRCAT 


0662 
0663 






3001 
0860 


WAITl 

* 
WAIT2 

WAIT3 


WAIT 
XIO 


1 
RDCAT 


0664 
0665 






3002 
085E 


WAIT 
XIO 


2 
RDCAT 


0666 
0667 






3003 
085C 


WAIT 
XIO 


3 
RDCAT 



FOR SIX BIT CHAR. 
FOR SEVEN CHAR. 
EXECUTE OIAG MODE 
LOAD BUFFER 



WAIT FOR STR WRITE RSP. 
LOAD BUFFER 

WAIT FOR 1ST. READ RSP, 
READ BUFFER 

WAIT FOR 2N0.READ RSP. 
READ BUFFER 

WAIT FOR 3R0.READ RSP. 
READ BUFFER 



31901380 
31901390 
31901400 
31901410 
31901420 
31901430 
31901440 
31901450 
31901460 
31901470 
31901480 
31901490 
31901500 
31901510 
31901520 
31901530 
31901540 
31901550 
31901560 
31901570 
31901580 
31901590 
31901600 
31901610 
31901620 
31901630 
31901640 
31901650 
31901660 
31901670 
31901680 
31901690 
31901700 
31901710 
31901720 
31901730 
31901740 
31901750 
31901760 
31901770 
31901780 
31901790 
31901800 
31901810 
31901820 
31901830 
31901840 
31901850 
31901860 
31901870 
31901880 
31901890 
31901900 
31901910 
31901920 
31901930 
31901940 
31901950 
31901960 
31901970 
31901980 
31901990 
31902000 
31902010 
31902020 
31902030 
31902040 
31902050 



066 8 





3004 




WAIT4 


WAIT 




4 


0669 





085A 




4[ 


XIO 




RDCAT 


066A 





3005 




WAIT5 


WAIT 




5 


066B 





0858 




# 


XIO 




RDCAT 


066C 





3006 




WAIT6 


WAIT 




6 


066D 





0856 




* 
WAIT7 


XIO 




RDCAT 


066E 





3007 




WAIT 




7 


066F 





0854 




* 
WAIT8 


XIO 




RDCAT 


0670 





3008 




WAIT 




8 


0671 





864 




^ 


XIO 




WRCAT 


0672 





3009 




WAIT9 


WAIT 




9 


0673 





0850 




* 
WAITA 


XIO 




ROC AT 


0674 





300A 




WAIT 




/A 


0675 





084E 






XIO 




ROC AT 


0676 


1 


74FF 


06FD 




MDX 


L 


PASS,-1 


0678 





70EB 




* 
* 

END 2 


MDX 




WAIT2 


0679 





084E 




XIO 




RDIAl 


067A 





084F 






XIO 




RDIA2 


067B 





0850 




^ 


XIO 




ENDOP 


067C 





C069 






LD 




DIAWl 


0670 





D054 






STO 




DUAL 


067E 





C068 






LD 




0IAW2 


067F 





D054 




* 


STO 




0I2AL 


0680 





0847 




XIO 




RDIAl 


0681 





0848 




* 


XIO 




R0IA2 


0682 





C063 




LD 




OIAWl 


0683 





E84E 






OR 




DUAL 


0684 





D04D 






STO 




DUAL 


0685 





C061 






LD 




D1AM2 


0686 





E84D 






OR 




DI2AL 


0687 





D04C 




* 


STO 




DI2AL 


0688 


1 


6C00 


06EA 


STX 


L 


PRTPN 


068A 


1 


C400 


0602 


WAITX 


LD 


L 


DELY3 


06 ec 


1 


0400 


0601 




STO 


L 


MCNT 


068E 


1 


C400 


05EI 




LD 


L 


SW2 


0690 





lOOB 






SLA 




11 


0691 





4810 






BSC 




- 


0692 





7005 






MDX 




MAITC 


0693 


1 


C400 


0601 




LD 


L 


WCNT 


0695 





1001 






SLA 




1 


0696 


1 


0400 


0601 




STO 


L 


WCNT 


0698 





0829 




WAITC 


XIO 




OSWSE 


0699 


1 


ECOO 


06E5 




OR 


L 


DSWAL 


069B 


1 


0400 


06E5 




STO 


L 


OSWAL 


0690 





082A 






XIO 




RDIAl 


069E 





082B 






XIO 




R0IA2 


06 9F 


1 


C400 


06E6 




LD 


L 


DIAMl 


06A1 





E830 






OR 




DUAL 


06A2 





D02F 






STO 




DUAL 


06A3 


1 


C400 


06E7 




LO 


L 


DIAH2 


06A5 





E82E 






OR 




DI2AL 


06A6 





0020 






STO 




DI2AL 


06A7 


1 


6700 


06AD 




LDX 


L3 


MAITB 


06 A9 


1 


6F00 


05E5 




STX 


L3 


MtSCF 



WAIT FOR 4TH.REA0 RSP. 
READ BUFFER 

WAIT FOR 5TH.REA0 RSP. 
READ BUFFER 

WAIT FOR 6TH.REA0 RSP. 
READ BUFFER 

WAIT FOR 7TH.REA0 RSP. 
READ BUFFER 

WAIT FOR 8TH.READ RSP. 
LOAD BUFFER 

WAIT FOR WRITE RESPONSE 
READ THE BUFFER 

WAIT FOR 9TH.REAn RSP. 
READ THE BUFFER 
DECREMENT PASS CNT- 



REAO OIAG. WD.l 
READ OIAG. WO. 2 
END OPERATION 

LOAD STORD OWl 
SAVE TO ACCUMULATE 
LOAD STORED DW2 
SAVE TO ACCUMULATE 

READ DIAG.WDl AGAIN 
READ DIAG.WD2 AGAIN 

LOAD STORED OWl 

DIFFER FROM PREVIOUS ONE? 

SAVE ACCUMULATED DWl 

LOAD STORED DW2 

DIFFER FROM PREVIOUS 2 . 

SAVE ACCUMULATED DW2 

TURN ON INTRPT RCV. 

LD 4 SEC CONSTANT 

SET IN WAIT COUNTER 

LD RTN OPTION SWT 

CK FOR 2 MICRO SPEED 

SKIP IF ON 

BRANCH 

LO WAIT COUNT 

DOUBLE IT 

LO 4 SEC CONSTANT 

SENSE DSW 

SAVE DSW DATA 

READ DIAG WORD 1 
READ OIAG WORD 2 

SAVE OIAG 1 DATA 



SAVE OIAG 2 DATA 
SET UP MON RETURN 



31902060 
319020 70 
31902080 
31902090 
31902100 
31902110 
31902120 
31902130 
31902140 
31902150 
31902160 
31902170 
31902180 
31902190 
31902200 
31902210 
31902220 
31902230 
31902240 
31902250 
31902260 
31902270 
31902280 
31902290 
31902300 
31902310 
31902320 
31902330 
31902340 
31902350 
31902360 
31902370 
31902380 
31902390 
31902400 
31902410 
31902420 
31902430 
31902440 
31902450 
31902460 
31902470 
31902480 
31902490 
31902500 
31902510 
31902520 
31902530 
31902540 
31902550 
31902560 
31902570 
31902580 
31902590 
31902600 
31902610 
31902620 
31902630 
31902640 
31902650 
31902660 
31902670 
31902680 
31902690 
31902700 
31902710 
31902720 
31902730 



DATE 
EC NO. 



15JUN67 
420317 



01DCT67 
420374 



01JUL69 
571013 



01SEP69 
571062 



01JUN70 
571097 



PROG ID 


0319-0 


DATE 


tSJUN67 


010CT67 


0IJUL69 


01SEP69 


01JUN70 


PACE 


2 


EC NO. 


♦20317 


420374 


571013 


571062 


571097 



PROG 10 
PAGE 



0319-0 
2A 
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06AB 4480 0161 

06A0 1 74FF 0601 
06AF 70E8 
06B0 0815 

06B1 1 OCOO nOQA 

06B3 1 4400 0988 

06B5 1 4C00 0712 



WAI TP 



06B7 0000 



06 B 8 





080D 


06B9 





E82B 


06BA 





D02A 


06BB 





6302 


06BC 





73FF 



06B0 1 4CC0 06fl7 



06C0 0000 
06C0 0000 
06C1 5408 



06C2 

06C3 

06C4 

06C5 

06C6 

06C7 

06C8 

06C9 

06CA 

06CB 

06CC 

06 CD 

06CE 

06CF 

06DO 

0601 

0602 

0603 

06D4 

06D5 

06 D6 

06D7 

06D8 

06D9 

060A 

060B 

06 DC 

060D 

06DE 

06E0 

06E1 

06E2 

06E3 

06E4 

06E5 



0000 

5700 

1 06E4 
5200 
0000 

5701 

1 06E6 
C 5201 
1 06E7 
5202 

0000 

5404 

06E0 

5104 

0000 
0000 
0000 
0000 
0000 

0000 

1 06E1 
5100 
0000 
5401 
0000 
5402 
1000 

1000 

6400 0679 

AAOO 

FFOO 

0008 

0009 

0000 



0000 



BSI 
MOX 
MDX 
XIO 
XIO 
BSI 
BSC 



* 

* 
*♦*** 

* THF 

* AFT 

*♦*** 

* 

INTR 

* 



I START GO TO MONITOR 

L WCNT,-1 REDUCE WAIT COUNT 

WAITC 

DSWSN SENSE RESET OSW 

L RESET EXECUTE RESET 

L OLYTM DELAY 

L SNDSW GO MAKF ANALYSIS 



INTERRUPT 

MONITOR RETURNS CONTROL TO THIS ROUTINE 
ER DETECTING A SCA INTERRUPT. 



DC 

XIO 

OR 

STO 

LDX 

MOX 

BOSC 



/OOOO 

DSWSN 

DSHAL 

OSWAL 

2 

-1 

INTR 



SENSE OSW 



THERE TWO INST ARE USED 
* FOR A SMALL DELAY 



DIAG 

* 
DSWSF 

RDCAT 

OSWSN 

RDIAl 

RniA2 

ENDOP 

SYALT 

01 Awn 

DUAL 

DI2AL 

WRCAT 

SFT7 

SET6 

NOPS 

BR 

ALT 

SEND 

K0008 

K0009 

RCVED 

OSWAL 



lOCC , STORAGE , AND SWS FDR INTRPT RTN 



RSS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

LDX 

DC 

DC 

DC 

DC 

DC 

DC 





/54b8 



/5700 

RCVED 

/52O0 



/5701 

DIAWl 

/5201 

0IAW2 

/5202 



/5404 

ALT 

/5104 

•-* 

*-* 

*-* 

*-* 

• -* 

*-* 

SEND 

/5100 



/5401 



/5402 

/lOOO 

/IPOO 

END? 

/AAOO 

/FFOO 

/0008 

/0009 

*-* 

*-♦ 



SENSE DSW 

READ CAT 

SENSE CAT DSW 

READ DIAG WORD 1 

READ DIAG WORD 2 

END OP 

LO SYNC ALT PATTERN 

COMBINED DIAG WORDS 
1 AND 2 MODIFIED 
DIAG 1 DATA 

DIAG 2 DATA 

WRITE CAT 

SET 7 

SET 6 



PATTERN lOlOlOlO 
PATTERN Ilium 
CONSTANT 8 
CONSTANT 9 
CAT RECIEVEO WORD 
DSW DATA 



DATE 


15JUN67 


0lnCT67 


01JUL69 


01SEP69 


01JUN70 


EC NO. 


420317 


420374 


571013 


571062 


571097 



31902740 

31902750 

31902760 

31902770 

31902780 

31902790 

31902800 

31902810 

31902820 

31902830 

31902840 

31902850 

31902860 

31902870 

31902880 

31902890 

31902900 

31902910 

31902920 

31902930 

31902940 

31902950 

31902960 

31902970 

31902980 

31902990 

31903000 

31903010 

31903020 

31903030 

31903040 

31903050 

31903060 

31903070 

31903080 

31903090 

31903100 

31903110 

31903120 

31903130 

31903140 

31903150 

31903160 

31903170 

31903180 

31903190 

31903200 

31903210 

31903220 

31903230 

31903240 

31903250 

31903260 

31903270 

31903280 

31903290 

31903300 

31903310 

31903320 

31903330 

31903340 

31903350 

31903360 

31903370 

31903380 

31903390 

31903400 

31903410 



PROG ID 
PAGE 



06E6 





0000 


06E7 





0000 


06F8 





0000 


06E9 





0000 


06EA 





0000 


06EB 





0000 


06EC 





0000 


06ED 





0000 


06FF 





0000 


06EF 





0000 


06F0 





0000 


06F1 





0000 


06F2 





0000 


06F3 





0000 


06F4 





0000 


06F5 





0000 



C6F6 



OOIA 



0710 0000 

0711 0000 



0712 C0D2 




0713 C 00D4 




0714 COBF 




0715 1890 




0716 1010 




0717 1086 




0718 1001 




0719 E8B8 




071A 08B5 




071 B 1 C400 


0944 


0710 1 4C20 


0733 


071F 1 6780 


0603 


0721 1 C400 


05E1 


0723 4804 




0724 7303 




0725 C301 




0726 F012 




0727 E0A8 




0728 D0A7 




0729 1887 




072A 1007 




072B 00A6 




072C C 1087 




0720 1009 




072E D0A5 




072F C302 




0730 DODF 




0731 C303 




0732 OOOE 





0733 1 4400 ODEE 
0735 1 A400 0D85 
0737 1 4CO0 0B74 

0739 FFFF 



OIAWl DC 
DIAW2 DC 
CAOSW DC 
LOPSW DC 
PRTPN DC 
SYCMO DC 
RDCPR DC 
PASS DC 
CNTIN DC 
INBUF DC 
DIASW DC 
STOCT DC 
STOPS DC 
RDCNT DC 
WRCNT DC 
RDWRT DC 

WTSVO BSS 

nswxx DC 

DIAXX OC 

* 

* SET 

********* 

* 

SNDSW LO 
STO 
LD 
SRT 
SLA 
SLT 
SLA 
OR 

STO 

* 

LO 
BSC 

* 

LDX 

LD 

BSC 

MOX 

LO 

EOR 

AND 

STO 

SRT 

SLA 

STO 

SLT 

SLA 

STO 

LD 
STO 
LD 
STO 



*-* 

*-* 

*-* 

*-* 

*-* 

*-• 

*-* 

*-* 

♦-* 

*-* 

*-* 

*-* 

*-♦ 

*-♦ 

*-* 

*-* 

26 

*-* 

*-* 



saved diag 1 
saved diag 2 
saved dsw 
exp intrpt sw 
print peno sw 
sync mode sw 
data read s/b 
rtn pass cnt 
intrpt count 
data read has 
diag mode sw 
end intrpt cnt 
end rtn pass cnt 
read intrpt cnt 
write intrpt sw 
Saved dsw 

ALLOWS a max. int. CNT 9 



UP DATA ANALYSIS 



OSWAL 

CADSW 

0I2AL 

16 

16 

6 

1 

DUAL 

DiAWD 

RSTSW 
CHECK, Z 



13 GO 
L SH2 



E 

3 

1 

FFFF 

DIAWD 

DIAHO 

7 

7 

OIIAL 

7 

9 

0I2AL 



3 2 

DSWXX 
3 3 

DIAXX 



LOAD OSW DATA 
STORE DSW DATA 
LD DIAG 2 DATA 



COMBINE DIAG WOS 162 
SAVE COMBINED DIA WO 

LD PROG RESET SWITCH 
BRANCH IF ACC IS NON ZERO 

LD ADDR OF RTN JUST RUN 
PICK UP OPTION SWITCH 
SKIP IF ODD 

LO 1ST. PARAMETER, MASK 
MASK COHPLEMENTEO 



SEPARATE DWl t DW2 
STORE DM1 

STORE 0W2 
LOAD DSW S/B 
LOAD DIAG WORD S/B 



MAKE DATA CHECK 
MAKE INTRPT ANAL 
GO MAKE ANALYSIS 



CHECK BSI L OATCK 
BSI L INTAN 

BSC L CONAN 

* 

FFFF OC /FFFF 

* 
**********»<,*^**^^^„^^^^^^^^^^^^^^^^^^^^^^^^ 

* CONTROL ROUTINE 

*******♦**************♦♦**;» <,*^^^^^^,^^^^^^^^^ 



0319-0 
3 
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EC NO. 



15JUN6 7 
42031 7 



0inCT67 
420374 



01JUL69 
571013 



01SEP69 
571062 



01JUN70 
571097 



31903420 

31903430 

31903440 

31903450 

31903460 

31903470 

31903480 

31903490 

31903500 

31903510 

31903520 

31903530 

31903540 

31903550 

31903560 

31903570 

31903580 

31903590 

31903600 

31903610 

31903620 

31903630 

31903640 

31903650 

31903660 

31903670 

31903680 

31903690 

31903700 

31903710 

31903720 

31903730 

31903740 

31903750 

31903760 

31903770 

31903780 

31903790 

31903800 

31903810 

31903820 

31903830 

31903840 

31903850 

31903860 

31903870 

31903880 

31903890 

31903900 

31903910 

31903920 

31903930 

31903940 

31903950 

31903960 

31903970 

31903980 

31903990 

31904000 

31904010 

31904020 

31904030 

31904040 

31904050 

31904060 

31904070 

31904080 

31904090 
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073A 
073R 
0730 
073F 
0741 
07A? 
074A 
0745 
0747 
0749 
074R 
0740 
074e 
0750 
075? 
0754 
C756 
0758 
C75A 
075C 
075E 

076C 
0761 
0762 
0764 
0765 
0766 
076 8 
76 A 
076C 
076D 
076F 
0771 
0773 
0774 
0776 



0000 

1 C400 
I 4C08 
1 D400 

9051 

1 4C0fi 

1810 

1 D400 
1 D400 
1 7401 



* T 

« T 

*** 

* 

CNT 



HIS ROUTI'^F CHECKS SWITCHES AND CONTROLS 
HE SEQUENCE IN WHICH TEST ROUTINES APE RUN 



1 C400 

9045 

1 4C30 
1 6780 
1 C700 
1 0400 
1 D400 
1 0400 

0400 

1 4400 
4480 

&30C 

1010 

1 0700 
73FF 

70EC 

1 0400 
1 6700 

6E00 
6304 
6F00 
OCOO 
4480 



1 0D32 



OCOO 
4480 



0778 




099C 


0779 




09A9 


077A 




09B9 


077B 




09CA 


077C 




090A 


0770 




09FA 


077E 




09FA 


077F 




OAOA 


0780 




OAIA 


0781 




0A29 


078? 




0A3A 


0783 




0A4A 


0784 




0A5A 


0785 




0A6A 


0786 




0A7A 


0787 




0A8A 


0788 




0A9A 


0789 




OAAA 


078A 




OABA 


078B 




0AC9 


078C 




OADA 


0780 




0AF9 



rspo 

0749 

0500 

0750 

C^iEO 
0500 
0500 
500 

0760 
050D 
0777 
050F 
05F5 
05^5 
0165 
079 A 
0161 



0031 



0500 
0CB3 
0035 

003? 
0992 
0163 

0998 
0164 



CM?n 



CM30 



* 
EMM 



RL OC 

to 

BSC 

STO 

S 

RSC 

SRA 

STU 

STO 

MOX 

LO 

S 

BSC 

LDX 

to 

STO 
STO 
STO 
STO 
BSI 
BSI 

SG LOX 
SLA 
STO 
MOX 
MOX 
STO 
LDX 
STX 
LOX 
STX 

xm 

BSI 
OC 
XIO 
BSI 



/oooo 

L SWI 

L CN?n,e 

L RID 

RIDCK 
L CN30,f. 

16 
L SWI 
L RIO 
L RI0,1 
L RIO 

RIOCK 
L ENMSG,-Z 
n RID 
L3 RTTBL-1 



RAD 

LOOP 

MLSCF 

RTNSW 

CKOPT 

START 



3 12 

16 
L3 TA8LE-1 
3 -1 

ENMSGG? 
L RIO 
L3 NMSG 
L3 TABLFSS 

3 4 
L3 TABLE 

BZON 

LOG 

TABLE 

BZOFF 

END 



BRANCH IE NO RTN SELECTED 
SAVE NEW RTN NUMBER 

BR IF VALID RTN 

IF INVALID RTN GO 

TO RTN ONE 

ADV TO NEXT RTN 



PRINT RESTORE MSG 

FETCH RETURN AORS 

LOAD LOOP RTN ADDR. 
SET MLSCF FOR RETURN 

CK FOR EUNC 2e3 
GO TO MONITOR 

CLR PRINT TABLE 



RESET PTN ID 

SET ALPHA MSG 

SET UP MSG ID 
EXECUTE ALARM ON 
GO TYPE MESSAGE 

EXECUTE ALARM OFF 
END PROGRAM 



* 

* 
RTT 



ROUTINE SEQUENCE TA3LF 



RL OC 
DC 
DC 

OC 
OC 
OC 
DC 
DC 
DC 
OC 
OC 

OC 

OC 
DC 

OC 
or 
OC 

DC 
DC 
OC 
OC 
DC 



RTOl 
RTO? 
RT03 
RT04 
RT05 
RT06 
RT07 
RT08 
RT09 
RTOA 
RTOR 
RTOC 
RTOD 
RTOE 
RTOF 
RTIO 
RTll 
RT12 
RTt3 
RT14 
RT15 
RT16 



31904100 
31904110 
31904120 
31904130 
31904140 
31904150 
31904160 
31904170 
31904180 
31904190 
31904200 
31904210 
31904220 
31904230 
31904240 
31904250 
31904260 
31904270 
31904280 
31904290 
31904300 
31904310 
31904320 
31904330 
31904340 
31904350 
31904360 
31904370 
31904380 
31904390 
31904400 
31904410 
31904420 
31904430 
31904440 
31904450 
31904460 
31904470 
31904480 
31904490 
31904500 
31904510 
31904520 
31904530 
31904540 
31904550 
31904560 
31904570 
31904530 
31904590 
31904600 
31904610 
31904620 
31904630 
31904640 
31904650 
31904660 
31904670 
31904680 
31904690 
31904700 
31904710 
31904720 
31904730 
31904740 
31904750 
31904760 
31904770 



078E 1 OBOO 
078F 1 0B25 

0790 1 0B36 

0791 1 0B4B 
0797 1 0560 



LOTN 



OC 
OC 
DC 
OC 

OC 



RT17 
RTIB 
RT19 
RTIA 
RT18 



0793 
0794 



0798 
0799 



OOIR 
0000 

0795 0000 

0796 1 7401 0944 
r 0001 

oooc 



079A 
079B 
079C 
079F 
079F 
07A0 
07A2 
07A3 
07A5 
07A7 
07A8 
07AA 
07AB 
07AD 
07AF 
07B1 
07B2 
07B4 
0785 
0737 
07B8 
07BA 
078C 
07BD 
7BF 
07C1 
07C3 
07C5 
07C6 
07C8 
07C9 
07CR 
7CC 



0000 

C0F8 

1 E400 

4820 
C 7065 

C400 

looa 

4428 
C400 
lOOC 
4428 
630A 
6F00 

1 6F00 
1 C400 

lOOD 
4428 
COEl 
a400 
CODF 
D400 
C400 

lOOE 

1 4428 

6700 

1 6F00 
1 C4C0 

lOOA 

1 4C28 

COCC 

1 F400 
4820 
7006 



C5FI 

C5F1 

ORBO 
C5F1 

0847 

OAFE 
OBIO 
05E1 

0854 

094A 

094B 
05E1 

085F 
lOCO 
0602 
05F1 

0701 

n5E2 



07CD 1 C400 05E2 
07CF 4820 
0700 7022 
07D1 1 4CS0 079A 

0703 1 C400 n5E2 

0705 1 D400 0795 

0707 4820 

0708 7G01 
07D9 f) 70F3 

070A C 630C 
070B 1010 
07DC 1 
07DE 73FF 
070E 70FC 

1 

1 

C 



D700 0031 



* 

LRTN-RTTBLSl 



PIOCK OC 

S2WAS OC 

S3WAS or 

SAVF1 

KCOOl OC 

FSTCK DC 



MDX 



6 700 OCAl 
6E00 0035 
6302 



07E0 
07E2 
07E4 
07E5 1 6F00 CD?? 



CKOPT OC 
LO 
EOR 
BSC 
MOX 
LO 
SLA 
BSI 
LO 
SLA 
BSI 
LDX 
STX 
STX 
LO 
SLA 
BSI 
LO 
STO 
LO 
STO 
LO 
SLA 
BSI 
LOX 
STX 
LD 
SLA 
BSC 
LD 
FOR 
BSC 
MDX 

NOPNT LD 
BSC 
MOX 

OPRTN BSC 

« 

S3PNT LD 
STO 
BSC 
MOX 
MOX 

LOGO? LOX 
SLA 
STO 
MDX 
MOX 
LDX 
STX 
LDX 
STX 



*-* 
*-* 
L RSTSW,f.l 
/OOOl 
«-* 

«-* 

S2WAS 
L SW2 

Z 

S2PNT 
L SW2 

11 
L LOG 11, £7 
L SW2 

12 
L DIAMO.SZ 

3 10 
L3 RT16E5 
L3 WRAP+1 
L SW2 

13 
L NORST.EZ 

SAVEl 
L RSOFF 

SAVEiei 
L RS0FF61 
L SW2 

14 
L FASTI, ez 
L3 /lOOO 
L3 DELY3 
L SW2 

10 
L OPRTN, £Z 

S3 WAS 
L SW3 

Z 

S3PNT 

L SW3 

Z 

SCOPE 
I CKOPT 



SW3 

S3WAS 

Z 

LOGO? 
NOPNT 



3 1? 
16 
L3 TABLF-1 
3 -1 

LOG02t2 
L3 ADR6 
L3 TA6LF&3 

3 2 
L3 TABLE 



SW2 WAS 
SW3 WAS 
ALLOW RESET 



LOAD SW2 WAS 
COMPARE WITH SW? NOW 
CHK FOR CHANGE 
SET UP TO PRINT OPTS 
LD RTN OPTION SWT 
CK FOR 2 MICRO SPEED 

LD RTN OPTION SW 
CHK FOR DIAGNOSTIC 
SET UP DIAG MD 

SET RTN PASS CNT / ? 
SET RTN PASS CNT / 2 
LD RTN OPTION SW 
CHK FOR ALT RESET 
SET UP FOR NO RESET 
ALLOW RESET 



LD RTN OPTION SW 
CK FOR FAST PASS 
SET UP FAST PASS 

RESTORE NORMAL OFLAY 
LOAD SW2 
CHK IF SEL CHAR 
BRANCH IF SEL CHAR 
LOAD SW3 WAS 
COMPARE WITH SW3 NOW 

SET UP TO PRINT 

SCOPE LOOP 

LD SCOPE OPT SW 

CK WHAT TIME BASE 
EXIT TO RETURN 

LOAD SH3 

STORE IN SW3 WAS 

CHK IF ON 

LOG SCOPE LOOP 

CHK FOR SCOPE OPTION 

CLEAR MSG TABLE 



SET UP ALPHA MSG 
SET UP MSG ID 



31904780 

31904790 

31904800 

31904810 

31904820 

31904830 

31904840 

31904850 

31904860 

31904870 

31904880 

31904890 

31904900 

31904910 

31904920 

31904930 

31904940 

31904950 

31904960 

31904970 

31904980 

31904990 

31905000 

31905010 

31905020 

31905030 

31905040 

31905050 

31905060 

31905070 

31905080 

31905090 

31905100 

31905110 

31905120 

31905130 

31905140 

31905150 

31905160 

31905170 

31905180 

31905190 

31905200 

31905210 

31905220 

31905230 

31905240 

31905250 

31905260 

31905270 

31905280 

31905290 

31905300 

31905310 

31905320 

31905330 

31905340 

31905350 

31905360 

31905370 

31905380 

31905390 

31905400 

31905410 

31905420 

31905430 

31905440 

31905450 
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C7E7 


n 


6300 




LOX 


3 





07FR 




6F00 


om4 


STX 


L3 


TAfiLFC? 


07FA 




ocoo 


ncg? 


XIO 


L 


BZHN 


07 FC 




4480 


0163 


BSI 


I 


LOG 


07EE 




003? 




-^c 




TABLF 


07EF 




OCOO 


0'-'98 


XID 


L 


BZnPF 


7F1 




4C0 


C7CP 


BSC 


L 


NOPNJT 


07F3 




r.400 


OSOE 


Snpr LO 


L 


RAD 


n7F5 




90A2 




S 




KOOOl 


07F6 


C 


00A2 




STO 




PSTCK 


07F7 


1 


C480 


799 


LO 


I 


FSTCK 


07F9 





4820 




BSC 




Z 


07FA 





7001 




MDX 




SCOPl 


07FB 





7005 




MOX 




OPRTN 


07FC 


1 


C400 


05F2 


SCQOI LO 


L 


SW3 


7FE 





48 20 




BSC 




L 


07FF 





7001 




KOX 




SC0P2 


0800 





7000 




MDX 




OPRTN 


0801 





1004 




SCQP2 SLA 




4 


0802 


1 


0400 


060? 


STO 


L 


0FLY3 


0804 





70CC 




MOX 
* 
S?PNT LOX 




OPRTN 


0805 





6 30C 




3 


12 


0806 





1010 




SLA 




16 


0807 


1 


D700 


0031 


STO 


L3 


TABLE-1 


0809 





73FF 




MOX 


3 


-1 


080A 





70FC 




MDX 




S2PNT62 


080B 


1 


C400 


05F1 


LO 


L 


SW2 


080D 





lOOA 




SLA 




10 


OBOE 


1 


4428 


8B3 


BSl 


L 


LOGIO.CZ 


0810 


1 


C400 


05E1 


LD 


L 


SW2 


0812 





lOOB 




SLA 




11 


0813 


1 


4428 


08BD 


8SI 


L 


LOGll.eZ 


0815 


1 


C400 


05F1 


LD 


L 


SW2 


0817 





lOOC 




SLA 




12 


0818 


1 


4428 


08C7 


BSI 


L 


L0G12,£Z 


081A 


1 


0400 


05E1 


LO 


L 


SW2 


081C 





1000 




SLA 




13 


0810 


1 


4428 


0801 


BSI 


L 


L0G13,SZ 


081F 


1 


CAOO 


05F1 


LO 


L 


SW2 


0821 





lOOE 




SLA 




14 


0822 


1 


4428 


osne 


BSI 


L 


LOGIA.GZ 


082A 


1 


C400 


05F1 


LO 


L 


SW2 


0826 





lOOF 




SLA 




15 


0827 


1 


4428 


08E5 


BSI 


L 


L0Gl5,eZ 


0829 


1 


CAOO 


05F1 


LO 


L 


SW2 


082B 


I 


D400 


0794 


STO 


L 


S2WAS 


0820 


1 


6700 


0909 


LOGOl LOX 


L3 


LOGl 


082F 


1 


6F00 


0035 


STX 


L3 


TABLEE3 


0831 





6301 




LOX 


3 


1 


0832 


1 


6F00 


0D3? 


STX 


L3 


TABLE 


0834 





6300 




LDX 


3 





0835 


1 


6F00 


on^^^ 


STX 


13 


TABLEE? 


0837 


1 


OCOO 


0992 


XIO 


L 


BZON 


0839 





4480 


0163 


BSI 


I 


LOG 


083R 


1 


0032 




DC 




TABLF 


083C 


1 


OCOO 


0998 


XIO 


L 


BZOFF 


083E 





631D 




LOX 


3 


29 


083F 


1 


C40C 


0914 


CLLOG LO 


L 


LOGlB-l 


0841 


1 


0700 


0908 


STO 


L3 


LOGl-1 


0843 





73FF 




MOX 


3 


-1 


0844 





70FA 




MDX 




CLLOG 


0845 


1 


4C00 


n7A0 


BSC 


L 


CKOPTEft 


0847 





0000 




ntAMO oc 




*-* 


0848 


1 


7401 


0R81 


MOX 


L 


SWDIA,£1 



FXFCUTF ALARM ON 
GO PRINT MESSAGP 

FXFCUTF ALARH OFF 
SFT UP SCOPE LOOP 

CHK IF NO SCOPE 



NfJt ALLOW LOOP 
EXIT TO RETURN 
SET UP SCOPE OFLAY 
CHK IF DELAY SELECTED 

EXIT TO RFTURM 



EXIT TO RETURN 
CLEAR PRINT TABLF 



LOAD SW? 

CHK SELECT CHAR ON 

LD RTN OPTION SWT 
CK FOR 2 MICRO SPEED 

LOAD SW2 

CHK niAG RUN ON 

LOAD SH2 

CHK NO RESET ON 

LOAD SW2 

CHK FAST PASS ON 

LOAD SW2 

CHECK FAR RI SYN 

LOAD SW? 

STORE IN SW2 WAS 

SET UP ALPHA MSG 

SET UP »»SG ID 

SET UP MODIFIERS 

EXECUTE ALARM ON 
GO LOG MESSAGE 

EXECUTE ALARM OFF 
CLEAR OUT MSG TABLE 



TURN ON DIAG OPT SW 



NOP 



31905460 
31905470 
31905480 
31905490 
31905500 
31905510 
31905520 
31905530 
31905540 
31905550 
31905560 
31905570 
319055 80 
31905590 
31905600 
31905610 
31905620 
31905630 
31905640 
31905650 
31905660 
31905670 
3190568C 
31905690 
31905700 
31905710 
31905720 
31905730 
31905740 
31905750 
31905760 
31905770 
31905780 
31905790 
31905800 
31905810 
31905820 
31905830 
31905840 
31905850 
31905860 
31905870 
31905880 
31905890 
31905900 
31905910 
31905920 
31905930 
31905940 
31905950 
31905960 
31905970 
31905980 
31905990 
31906000 
31906010 
31906020 
31906030 
31906040 
31906050 
31906060 
31906070 
31906080 
31906090 
31906100 
31906110 
31906120 
31906130 



84B 





6340 






LDX 


3 


64 




31906IA0 


1^8 4C 


1 


6FC0 


OAFF 




STX 


L3 


RT16e5 


SET RTN PASS TO 64 


31906150 


084F 


1 


6FO0 


riBlO 




STX 


L3 


WRAPSl 


SET RTN PASS TO 64 


31906160 


0R5O 


1 


7A05 


34 7 




MOX 


L 


DI AM0,£5 


MODIFY RETURN ADOR 


31906170 


0852 


1 


4C80 


084 7 


* 


BSC 


I 


DIAMD 


EXIT TO RETURN 


31906180 
31906190 


0854 





0000 




NOR ST 


OC 




*-* 




31906200 


0*^55 


1 


CAOO 


OFIF 




LD 


I 


KIOOO 


LOAD NOP 


31906210 


0857 


1 


D400 


094A 




STO 


L 


RSOFE 


PREVENT RESET 


31906220 


0859 


1 


OAOO 


094B 




STO 


L 


RSOFFSl 




31906230 


085B 


1 


7406 


0854 




MDX 


L 


N0RST,£6 


MODIFY RETURN 


319062A0 


085D 


1 


4C80 


PB5A 


* 


BSC 


I 


NORST 


EXIT TO RETURN 


31906250 
31906260 


085F 





0000 




FASTI 


DC 




*-* 




31906270 


0860 


1 


CAOO 


OSOF 




LD 


L 


RAO 


CK IF FAST PASS OK 


31906230 


086? 


1 


9400 


0798 




S 


L 


KOOOl 




31906290 


0864 


1 


0400 


0799 




STO 


L 


FSTCK 




31905300 


0866 


1 


C48C 


079"^ 




LD 


I 


FSTCK 


CHK FOR FAST PASS 


31906310 


0868 





A820 






BSC 




Z 




31906320 


0869 





7002 






MDX 




FAST2 


FAST PASS ALLOWED 


31906330 


086A 


1 


4C80 


085F 


* 


BSC 


I 


FASTI 


EXIT TO RETURN 


31906340 
31906350 


086C 





6700 


0100 


PAST2 


LDX 


L3 


/OlOO 


SET UP 250 MSEC ANAL 


31906360 


086E 


1 


6F00 


0602 




STX 


L3 


0ELY3 




31906370 


0870 


1 


7A0A 


085F 




MOX 


L 


FASTI, £A 


MODIFY RETURN EXIT 


31906380 


0872 





70F7 




* 


MOX 




FAST2-2 


EXIT TO RETURN 


31905390 
31906400 


0873 





0000 




SELCH 


DC 




*-* 




31906410 


0874 





COIB 






LO 




PASSl 


LOAD 1ST PASS SW 


3M05420 


0875 





A820 






BSC 




Z 




31906430 


0876 





701A 






MDX 




CHPNT 


PRINT MSG IF ON 


31906440 


0877 





1000 






SLA 







NO-OP 


31906450 


0878 





1000 






SLA 







NO-OP 


31906460 


0879 


1 


CAOO 


0795 




LD 


L 


S3WAS 


LOAD SW3 


31906470 


087B 


1 


FAOO 


05E2 




FOR 


L 


SH3 


EOR WITH SW3 NOW 


31906480 


087D 





A820 






BSC 




Z 


CHK IF SW3 CHANGED 


31906490 


087E 





7012 






MDX 




CHPNT 


GO PRINT SEL CHAR 


31906500 


087F 


1 


CAOO 


05E2 


CHRTN 


LO 


L 


SW3 


FETCH CHAR 


31906510 


0881 


I 


DADO 


0795 




STO 


L 


S3 HAS 


STORE INTO SW3 MAS 


31906520 


0883 





1008 






SLA 




8 




31906530 


0884 


1 


OAOO 


06EC 




STO 


L 


RDCPR 


SET UP RD CHAR S/B 


31906540 


0886 


1 


OAOO 


06E1 




STO 


L 


SEND 


SET UP WRT BUFFER 


31906550 


0888 





1010 






SLA 




16 


CLEAR ACC 


31906560 


0889 





1000 






SLA 







NO-OP 


31906570 


088A 


1 


OAOO 


06E0 




STO 


L 


ALT 




319065S0 


088C 





6300 






LOX 


3 







31906590 


0880 





6802 






STX 


3 


PASSl 


TURN OFF 1ST PASS SW 


31906600 


088E 


1 


4C80 


0873 


* 


BSC 


1 


SELCH 


EXIT TO RETURN 


31906610 
31906620 


0890 





0001 




PASSl 


DC 




/OOOl 




31906630 
31906640 


0891 


1 


CAOO 


05E2 


CHPNT 


LO 


L 


SM3 


LOAD SW3 


31906650 


0893 





1008 






SLA 




8 




31906660 


0894 





0001 






STO 




PNTCH 


STORE NEW CHAR 


31906670 


0895 





7001 




* 


MOX 




LOG03 


SET UP MESSAGE 


31906680 
31906690 


0896 





0000 




PNTCH 
ft 


DC 




*-♦ 


NEW CHAR 


31906700 
31906710 


0897 





630C 




L0G03 


LDX 


3 


12 


CLEAR MSG TABLE 


31906720 


0898 





lOlO 






SLA 




16 




31906730 


0899 


1 


D700 


0D31 




STO 


L3 


TABLE-1 




31906740 


089B 





73FF 






MOX 


3 


-1 




31906750 


089C 


n 


70FC 






MDX 




LOG0362 




31905760 


08 90 


I 


6700 


0CA7 




LDX 


L3 


ADR7 


SET UP ALPHA MSG 


31906770 


089F 


1 


6F00 


0035 




STX 


L3 


TABLE63 




31905780 


08A1 





6303 






LOX 


3 


3 


SET UP MSG ID 


31905790 


08A2 


] 


6F00 


PD32 




STX 


L3 


TABLE 




31906800 


0aA4 





6301 






LDX 


3 


1 


SET UP MODIFIERS 


31906810 



DATE 


15JUN67 


nincT67 


"I JUI ft9 


01SFPA9 


01JUN70 


EC NO. 


A2031 7 


A?n374 


■" r 1 f" 1 3 


571062 


571097 



PROG ID 


0319-n 


DATE 


15JUN67 


0inCT67 


01JUL69 


01SEP69 


01JUN70 


PAGE 


5 


FC NO. 


420317 


A20374 


571013 


571062 


571097 



PROG 10 
PAGE 



0319-0 
5A 
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08A5 


1 


6F00 


0D34 


08A7 


1 


C400 


0896 


08 A9 


1 


D400 


0D37 


CSAB 


1 


OCOO 


099? 


08An 





4480 


0163 


08AF 


1 


0032 




08B0 


1 


OCOO 


0998 



08B2 C 70CC 



08B3 0000 
08B4 6306 



08B5 
08B7 



C70C 08EE 
0700 0908 



08B9 73FF 
08BA 70FA 
08BB 1 4C80 08B3 

08BD 0000 
08BE 6304 
08BF 1 C700 0904 
08C1 I 0700 0921 
08C3 73FF 
08C4 70FA 
08C5 1 4C80 08BD 

08C7 0000 

08C8 C 6304 

08C9 1 

08CB 1 

08C0 

08CE 

08CF 1 



C700 08F4 
0700 090F 
73FF 

70FA 
4C80 08C7 



0801 
0802 
0803 
0805 



0000 

6304 

1 C700 08F8 
1 0700 0914 



0807 73FF 
080« 70FA 
0809 1 4C80 08D1 

080B 0000 
080C 6305 
080D I C700 OaFC 
080F 1 0700 0919 
08E1 73FF 
0eE2 70FA 
08E3 1 4C80 08DB 

08E5 0000 
08E6 6303 
08E7 I C700 0901 
08E9 1 D700 091F 
08EB 73FF 



08EC 





70FA 


08ED 


1 


4C80 


08EF 





9A36 


O8F0 





5536 


08F1 





1E9E 


08F2 





211E 


08F3 





263F 


08F4 





6?00 


oaF5 





3??2 


08F6 





3E16 


0eF7 





?162 


08F8 





B276 



LOGIO 



* 
LOG 11 



* 
L0G12 



* 
LaG13 



* 
LOG 14 



LOG 15 



* 

AOLOG 



* 
AILOG 



STX 

LO 

STO 

XIO 

8SI 

DC 

XIO 

MOX 

DC 

LOX 

LO 

STO 

MDX 

MOX 

BSC 

DC 

LDX 

LD 

STO 

MOX 

MDX 

BSC 

DC 

LDX 

LD 

STO 

MDX 

MDX 

BSC 

DC 
LDX 
LD 
STO 

MDX 
MDX 
BSC 

OC 

LOX 

LO 

STO 

MDX 

MOX 

BSC 

OC 

LOX 

LD 

STO 

MDX 

MDX 

BSC 

nc 

DC 
DC 
OC 
DC 
OC 

DC 
OC 
OC 
OC 



L3 TABLEE2 



PNTCH 

TABLETS 

BZON 

LOG 

TABLE 

BZOFF 

CHRTN 



*-* 
3 6 
L3 AOLOG-1 
L3 LOGl-1 
3 -1 

L0G1062 
I LOGIO 

*-* 
3 4 
L3 ElLOG-1 
L3 LOGIE-I 
3 -1 

L0G11E2 
I LOGll 

*-♦ 
3 4 
L3 AlLOG-1 
L3 LOGlA-1 
3 -1 

LOG 12 62 
I L0G12 

*-* 
3 4 
L3 BlLOG-1 
L3 LOGlB-1 
3 -1 

L0G13S2 
I L0G13 

♦-* 
3 5 
L3 ClLOG-1 
L3 LOGlC-1 
3 -1 

LOG 1462 
I L0G14 

*-* 
3 3 
L3 OlLOG-1 
L3 LOGlD-1 
3 -1 

LOG1562 
I LOG 15 



/9A36 
/5E36 
/1F9F 
/2UF 
/263E 
/6200 

/32?2 
/3E16 
/2162 
/8276 



LOAD NEW CHAR 

EXECUTE ALARM ON 
GO LOG MESSAGF 

EXECUTE ALARM OFF 
GO SET UP CHAR 



LOAD SELECT CHAR 



EXIT TO RETURN AODR 



LD 2 MIC SPO MSG 



EXIT TO RETURN ADOR 



LD OIAG RUN FOR MSG 



EXIT TO RETURN AODR 



LD NO RESET FOR MSG 



EXIT TO RETURN AODR 



LD FAST PASS FOR MSG 



EXIT TO RETURN ADOR 



LOAD BI SYN FOR MSG 



EXIT TO RETURN 

SE 

LE 

CT 

C 

HA 
R. 

DI 

AG 

R 

UN 



31905820 

31905830 

31905840 

31906850 

31906860 

31906870 

31906880 

31906890 

31906900 

31906910 

31906920 

31906930 

31906940 

31906950 

31906960 

31906970 

31906980 

31906990 

31907000 

31907010 

31907020 

319070 30 

31907040 

31907050 

31907060 

31907070 

31907080 

31907090 

31907100 

31907110 

31907120 

31907130 

31907140 

31907150 

31907160 

31907170 

31907180 

31907190 

31907200 

31907210 

31907220 

31907230 

31907240 

31907250 

31907260 

31907270 

31907280 

31907290 

31907300 

31907310 

31907320 

31907330 

31907340 

31907350 

31907360 

31907370 

31907380 

31907390 

31907400 

31907410 

31907420 

31907430 

31907440 

31907450 

31907460 

31907470 

31907480 

31907490 



08F9 7552 
08FA 2162 
08FB 369A 
08FC 369E 

08FD 123E 
08FE 9A9E 
08FF 2156 

0900 3F9A 

0901 9A21 

0902 1A22 

0903 2 19 A 

0904 A676 

0905 2108 

0906 2172 

0907 221E 

0908 6252 



0909 





2121 


090A 





2121 


090B 





2121 


090C 





2121 


090D 





2121 


090E 





2121 


090F 





2121 


0910 





2121 


0911 





2121 


0912 





2121 


0913 





2121 


0914 





2121 


0915 





2121 


0916 





2121 


0917 





2121 


0918 





2121 


0919 





2121 


091A 





2121 


091B 





2121 


091C 





2121 


091D 





2121 


09 IF 





2121 


091F 





2121 


0920 





2121 


0921 





2121 


0922 





2121 


0923 





2121 


0924 





2121 


0925 





2121 


0926 





FFFF 



* 






81L0G DC 


/7652 


NO 


OC 


/2162 


R 


DC 


/369A 


ES 


DC 


/369E 


ET 


CI LOG OC 


/123E 


FA 


OC 


/9A9E 


ST 


DC 


/2156 


P 


DC 


/3E9A 


AS 


DC 


/9A21 


S 


OILOG OC 


/1A22 


BI • 


DC 


/219A 


S 


OC 


/A675 


YN 


EILOG OC 


/21D8 


2. 


DC 


/2172 


M 


OC 


/221E 


IC 


DC 


/6252 


RO 


* 
************************************ 


* ALPHA 


MESSAGE FOR 


SCA PROG OPT 


************************************ 


* 

LOGl DC 


/2121 




DC 


/2121 




DC 


/2121 




DC 


/2121 




OC 


/2121 




DC 


/2121 




DC 


/2121 




LOGl A DC 


/21Z1 




• DC 


/2121 




OC 


/2121 




OC 


/2121 




OC 


/2121 




LOGIB DC 


/2121 




DC 


/Z121 




OC 


/2121 




OC 


/2121 




DC 


/2121 




LOGIC DC 


/2121 




DC 


/2121 




DC 


/2121 




DC 


/2121 




DC 


/2121 




LOGIO DC 


/2121 




DC 


/2121 




OC 


/2121 




LOGIE OC 


/2121 




OC 


/2121 




OC 


/2121 




OC 


/2121 




OC 


/FFFF 


TERMINATES 



IONS 



* INITIALIZATION ROUTINE 

* 

THIS ROUTINE PERFORMS THE REQUIRED 
INITIALIZATION FOR RESTART OF THE PROGRAM. 
IT LOADS THE FIRST ROUTINE OR THE DESIRED 
ROUTINE VIA SELECT SWITCHES INTO THE 
MAINLINE SEQUENCE CONTROL FIELD. 

********************************************* 



31907500 

31907510 

31907520 

31907530 

31907540 

31907550 

31907560 

31907570 

31907580 

31907590 

31907500 

31907610 

31907520 

31907630 

31907640 

31907650 

31907660 

31907670 

31907580 

31907690 

31907700 

31907710 

31907720 

31907730 

31907740 

31907750 

31907760 

31907770 

31907780 

31907790 

31907800 

31907810 

31907820 

31907830 

31907840 

31907850 

31907860 

31907870 

31907880 

31907890 

31907900 

31907910 

31907920 

31907930 

31907940 

31907950 

31907950 

31907970 

31907980 

31907990 

31908000 

31908010 

31908020 

31908030 

31908040 

31908050 

31908060 

31908070 

3190808Q 

31908090 

31908100 

31908110 

31908120 

31908130 

31908140 

31908150 

31908150 

31908170 



DATE 
EC Nfl- 



15JUN67 
420317 



0inCT67 
4?^37'4 



01 JUL 6 9 
571013 



01SFP69 
5 71062 



01JUN70 
571097 



PROG 10 


0319-0 


DATF 


15JUN67 


010CT67 


01JUL69 


01SEP69 


01JUN70 


PAGE 


6 


FC no. 


420317 


420374 


571013 


571062 


571097 



PROG ID 
PAGE 



0319-0 
6A 
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PART NO. 
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7 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA MRAP-AROUND TEST STR/BSC 



PART NO. 
PAGE 



2243568 
7A 



09?1 





630C 




STRT 


LOX 


3 


12 


CLEAR PRINT TABLE 


31908180 


092R 





1010 






SLA 




16 




31908190 


0979 


1 


0700 


0031 




STO 


L3 


TABLE-1 




31908200 


092B 





73FF 






MOX 


3 


-1 




31908210 


092C 





70FC 






MDX 




STRT+? 




31908220 


09?D 


1 


6700 


0CC6 




LOX 


L3 


NSTRT 




31908230 


092F 


1 


6F00 


0035 




SIX 


L3 


TA8LE+3 


SET UP ALPHA MSG 


31908240 


0931 


c 


6305 






LOX 


3 


5 




31908250 


093? 


1 


6FC0 


003? 




STX 


L3 


TABLE 


SET UP MSG ID 


31908260 


093A 


1 


OCOO 


099? 




xin 


L 


BZON 


EXECUTE ALARM ON 


31908270 


0936 


c 


4480 


0163 




PSI 


I 


LOG 


GO PRINT MESSAGE 


31908280 


0938 


1 


0032 






DC 




TABLE 




31908290 


093 9 





oe5E 






xin 




BZOFF 


EXFCUTF ALARM OFF 


31908300 


093A 





6300 




PLOOP 


LOX 


3 







31908310 


093B 


I 


6P00 


0500 




STX 


L3 


RID 


RESET ROUTINE NO. 


31908320 


093D 


1 


6500 


0667 




LOX 


LI 


INTR 




31908330 


093F 





6D00 


0009 




STX 


LI 


9 


SET UP INTRPT AOOR 


31908340 


09A1 





6000 


OOIA 




STX 


LI 


/OOIA 


SET UP INTRPT APOR 


31908350 


0943 


c 


7 009 




* 


MOX 




OFFl 


TURN OFF PROG SWS 


31908360 
31908370 










***♦*: 


*^:lf^^**#^i*^t****tf^^Hii^1t:****************** 


31908380 










* 






TURN OFF 


ALL SWITCHES 


31908390 










t:^i:*t=*:t^*****:t!^*******:***:*********:i'*********1f* 


31908400 










♦ 










31908410 


0944 


n 


0000 




RSTSW 

* 


OC 




♦-* 


PROG RESET SW 


31908420 
31908430 


09^.5 


c 


0000 




HFF 


DC 







ENTRY AND SAVE AREA 


31908440 


0O46 





0851 






XIO 




aZHFF 


TURN OFF ALARM 


31908450 


0947 





COFC 






LO 




RSTSW 


LO PROG RFSFT SW 


31908460 


0948 





4820 






8SC 




1 




31908470 


0949 





7"03 






MOX 




OFFl 


SW ON , GO TO OFFl 


31908480 


094A 


I 


7401 


0944 


RSHFF 


MDX 


L 


RSTSW, tl 


TURN ON RESET SW 


31908490 


094C 





7002 




* 


MOX 




OFF? 




31908500 
31908510 


094D 





6300 




OFFl 


LOX 


3 







31908520 


094F 





6BF5 




* 


STX 


3 


RSTSW 




31908530 
31908540 


094F 





1010 




OFF? 


SLA 




16 




31908550 


0950 





6306 






LOX 


3 


6 




31908560 


0951 


1 


D700 


0D3D 


0FF3 


STO 


L3 


DIAXl-1 




31908570 


095 3 





73FF 






MDX 


3 


-1 




31908580 


0954 





70FC 






MDX 




OFF 3 




31908590 


0955 


p 


6312 






LOX 


3 


18 




31908600 


0956 


1 


0700 


06E3 


0FF4 


STO 


L3 


RCVED-1 




31908610 


0958 





73FF 






MDX 


3 


-1 




31908620 


0959 





70FC 






MDX 




0FF4 




31908630 


095A 





6302 






LOX 


3 


2 




31908640 


095B 


1 


D700 


0RE4 


0FF5 


STO 


L3 


OSWWl-1 




31908650 


0950 





73FF 






MDX 


3 


-1 




31908660 


095F 





70FC 






MOX 




0FF5 




31908670 


095F 





6304 






LOX 


0| 


4 




31908680 


0960 


1 


D700 


0R7D 


nFF6 


STO 


L3 


TRGWO-1 




31908690 


0962 





73FF 






MOX 


3 


-1 




31908700 


0963 


c 


70FC 






MDX 




0FF6 




31908710 


0964 


1 


0400 


0710 




STO 


L 


DSWXX 




31908720 


0966 


1 


D400 


0711 




STO 


L 


DIAXX 




31908730 


0968 


1 


0400 


060? 




STO 


L 


DUAL 




31908740 


096A 


1 


0400 


06D4 




STO 


L 


0I7AL 




31908750 


096C 


c 


6700 


1000 




LDX 


L3 


/lOOO 




31908760 


096E 


1 


6F00 


0602 




STX 


L3 


nELY3 


RESTORE DELAY 3 


31908770 


0970 


1 


C400 


OBOl 




LO 


L 


RT17ei 


RESTORE DATA WORD 


31908780 


0972 


1 


0400 


06E1 




STO 


L 


SEND 




31908790 


0974 





6700 


3900 




LOX 


L3 


/3900 


RESTORE SYNC ALT 


31908800 


0976 


1 


6F00 


06E0 




STX 


L3 


ALT 




31908810 


0978 


1 


4400 


079A 




BSI 


L 


CKOPT 


CK FOR FUNC 2£3 


31908820 


097A 


1 


4400 


05F7 




BSI 


L 


LOCK 


CK LOCK, LOOP/ERR FNC 


31908830 


097C 





COOA 






LD 




LOOPF 


LD LOOP ON ERR SW 


31908840 


097D 





6300 






LOX 


3 







31908850 



097E 





6808 




STX 


3 


LOOPE 


097F 


1 


4CA0 


05F5 


BSC 


I 


LOOP.Z 


0981 


1 


C400 


0944 


LD 


L 


RSTSW 


0983 


1 


4C30 


0g9C 


BSC 


L 


RTOlfZ- 


0985 


1 


4400 


073A 


BSI 


L 


CNTRL 



0987 P 0000 



098R 0000 

0989 C 630C 
098A 6B05 
098B 1 74FF 0990 
098D 70FD 
098E 1 4C80 0988 

0990 0000 



*-» 



CLR LOOP ON ERR SW 
LOOP IF SW IS ON 

BRANCH TO RESET RTN 
LOOP ON FRROR SW 



0992 




0000 


0992 


n 


0000 


0993 





5102 


0994 





OOOO 


0995 


c 


5540 


0996 


1 


09gA 


0997 





5104 


0998 





0000 


0999 





5101 


099A 





3900 



099B C 0001 

099C 0aF7 

099D I CCOO 09A6 

099F 1 DCOO 0710 

09A1 1 7401 0944 

09A3 1 4C00 06RA 

09A6 0000 

09A6 0080 

09A7 0000 



LOOPF OC 

* TIME DELAY - 140 MSEC 

* 

*-* 

3 12 

3 TMDLY 
L TMDLY, -1 

*-3 
I DLYTM 



OLYTM DC 

LDX 

STX 

MOX 

MDX 

RSC 
* 
TMOLY DC *-* 

* 1130 SCA lOCC 

* 





RSS 


E 









BZON 


OC 
DC 





/510? 




ALARM ON 


RESFT 


OC 

DC 





/5540 




PROGRAMED RESET 


SI»EG 


OC 
OC 




ICHAR 
/5104 




SYNC/IDLE RFG 


BZOFF 


nc 

DC 





/5101 




ALARM OFF 


ICHAR 
4 


nc 




/3900 




IDLE CHARACTER 


***♦************»♦******:»:»:*<, i^*<,<,#^#«^^;^^»^^^^ 


* 






ROUTINE 


01 








DC 




1 






RTOl 


XIO 




RESET 




EXECUTE RESET 




LDD 


L 


OSWOl 




SET UP ANALYSIS DATA 




STD 


L 


DSWXX 








MDX 


L 


RSTSW, ei 




TURN ON PROG RESET 


4: 


BSC 


L 


WAITX 








BSS 


F 









DSWOI 


DC 
DC 




/0080 





S/B DSW 



* ROUTINE 02 

* 



SET UP DATA READ S/B 



09A8 





0001 




DC 




1 


09A9 





6700 


FFOO 


RT02 LOX 


L3 


/FFOO 


09AB 


I 


6F00 


06EC 


STX 


L3 


RDCPR 


09AD 


1 


4400 


0603 


BSI 


L 


GO 


09AF 





0012 




DC 




/0012 


09B0 





2000 




DC 




/?000 


09B1 





E080 




DC 




/F080 


0982 





1862 




DC 




/1862 


09B3 





2000 




OC 




/2000 


09B4 





A080 




DC 




/A080 


0985 





1860 




DC 




/I 860 


09B6 





0000 




DC 








MASK FOR STR 
OSW FOR STR 
OIAG FOR STR 
MASK FOR BSC 
OSW FOR BSC 
DIAG WORD BSC S/B 



«*«4c#««4i*«%«:«::^^«**4::^:^4i4c«4e««:i^^4:4:^«4,4,^«^^4,^^^:(,4i 



31908860 

31908870 

31908880 

31908890 

31908900 

31908910 

31908920 

3190B930 

31908940 

31908950 

31908960 

31908970 

31908980 

31908990 

31909000 

31909010 

31909020 

31909030 

31909040 

31909050 

31909060 

31909070 

31909080 

31909090 

31909100 

31909110 

31909120 

31909130 

31909140 

31909150 

31909160 

31909170 

31909180 

31909190 

31909200 

31909210 

31909220 

31909230 

31909240 

31909250 

31909260 

31909270 

31909280 

31909290 

31909300 

31909310 

31909320 

31909330 

31909340 

31909350 

31909360 

31909370 

31909380 

31909390 

31909400 

31909410 

31909420 

31909430 

31909440 

31909450 

31909460 

31909470 

31909480 

31909490 

31909500 

31909510 

31909520 

31909530 



DATE 


15JUN67 


010CT67 


01JUL69 


01SEP69 


01JUN70 


EC NO. 


420317 


420374 


571013 


571062 


571097 



PROG ID 
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EC NO. 


420317 


420374 
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* ROUTINE 03 

* 



09B7 1000 




NOP 








09B8 0001 




DC 




I 




09B9 6700 
09BB 1 6F00 
09BD 1 4400 
09BF 0022 
09C0 0000 


COOO 
06EC 
0603 


RT03 LOX 
STX 
BSI 
DC 
DC 


L3 
L3 
L 


/COOO 
RDCPR 

GO 

/0022 




SET UP n 


09C1 E080 
09C2 1862 
09C3 0000 




OC 
DC 
OC 




/E080 
/1862 




DSH STR 
DIAG STR 


09C4 A080 
09C5 I860 
09C6 0000 




DC 
OC 
OC 




/A080 
/1 860 



DSW BSC 
DIAG BSC 



* ROUTINE 04 

* 



09C8 




0000 




BSS 


E 







09C8 





1000 




NOP 








09C9 





0001 




DC 




I 




09CA 





6700 


EOOO 


RT04 LDX 


L3 


/EOOO 




09CC 


1 


6F00 


06EC 


STX 


L3 


RDCPR 


SET UP DATA 


09CE 


1 


4400 


0603 


BSI 


L 


GO 




09D0 





0032 




DC 




/0032 




09D1 





0000 




OC 









09D2 





E080 




DC 




/E080 


OSW 


09D3 





1862 




DC 




/1862 


01 AGS FOR S 


09D4 





0000 




OC 









09D5 





A080 




DC 




/A080 


DSH FOR BSC 


09D6 





1860 




DC 




/1 860 




09D7 





0000 




OC 










* ROUTINE 05 

* 



09D8 




0000 




09D8 





1000 




09D9 





0001 




09DA 





6 700 


FOOD 


09DC 


1 


6F00 


06EC 


09DE 


1 


4400 


0603 


09E0 





0042 




09E1 





0000 




09E2 





E080 




09E3 





1862 




09E4 





0002 




09E5 





A080 




09E6 





1860 




09E7 





0000 





RT05 



BSS 

NOP 

OC 

LOX 

STX 

BSI 

OC 

DC 

DC 

OC 

OC 

DC 

OC 

OC 



L3 /FOOO 
L3 RDCPR 
L GO 
/0042 


/E080 
/1862 
/0002 
/A080 
/1 860 




SET UP DATA READ S/B 



DSW STR 
01 AGS 



DSW BSC 



* ROUTINE 06 

* 





09E8 0000 


BSS 


E 






09E8 1000 


NOP 








09E9 0001 


OC 


1 






09EA 6700 F800 


RT06 LDX 


L3 /F800 






09EC 1 6FO0 06EC 


STX 


L3 RDCPR 


SET UP 




09EE 1 4400 0603 


BSI 


L GO 






09F0 0052 


DC 


/0052 






09F1 GOOD 


DC 









09F2 E080 


DC 


/E080 


DSH STI 


DATE 


15JUN6T 010CT67 


01JUL69 


01SEP69 


01JUN70 


|EC NO. 


420317 420374 


571013 


571062 


571097 



31909540 

31909550 

31909560 

31909570 

31909580 

319O9590 

31909600 

31909610 

31909620 

31909630 

31909640 

31909650 

31909660 

31909670 

31909680 

31909690 

31909700 

31909710 

31909720 

31909730 

31909740 

31909750 

31909760 

31909770 

31909780 

31909790 

31909800 

31909810 

31909820 

31909830 

31909840 

31909850 

31909860 

31909870 

31909880 

31909890 

31909900 

31909910 

31909920 

31909930 

31909940 

31909950 

31909960 

31909970 

31909980 

31909990 

31910000 

31910010 

31910020 

31910030 

31910040 

31910050 

31910060 

31910070 

31910080 

31910090 

31910100 

31910110 

31910120 

31910130 

31910140 

31910150 

31910160 

31910170 

31910180 

31910190 

31910200 

31910210 



PROG ID 
PAGE 



09F3 1862 
09F4 0000 
09F5 A080 
09F6 1860 
09F7 0000 



DC 


/1862 


DIAGS 


OC 







OC 


/A080 


DSW BSC 


DC 


/1860 


01 AGS 


DC 








* ROUTINE 07 



09F8 
09F8 
09F9 
09FA 
09FC 
09FE 
OAOO 
OAOl 
0A02 
0A03 
0A04 
0A05 
0A06 
OA07 



0000 

1000 

0001 

6700 FCOO 

6F00 OfeEC 

4400 0603 
0062 
0000 
E080 

1862 

0000 

A 080 

1860 

0000 



RT07 



BSS 


E 





NOP 






DC 




1 


LDX 


L3 


/FCOO 


STX 


L3 


RDCPR 


BSI 


L 


GO 


OC 




/0062 


DC 







DC 




/E080 


DC 




/1 862 


DC 







DC 




/A080 


DC 




/ie6o 


OC 








SET UP DATA READ S/B 



DSW 
DIAGS STR 

DSW BSC 
DIAGS 



* ROUTINE 08 



OA08 




0000 




0A08 





1000 




0A09 





0001 




OAOA 





6700 


FEOO 


OAOC 


1 


6F00 


06 EC 


OAOE 


1 


4400 


0603 


OAIO 





0072 




OAll 





0000 




0A12 





E080 




0A13 





1862 




0A14 





0000 




0A15 





A080 




0A16 





1860 




0A17 





0000 





RT08 



BSS 


E 





NOP 






DC 




1 


LDX 


L3 


/FEOO 


STX 


L3 


RDCPR 


BSI 


L 


GO 


DC 




/0072 


DC 







DC 




/E080 


OC 




/1862 


OC 







DC 




/A080 


DC 
OC 




/1 860 




SET UP DATA READ S/B 



OSW STR 
DIAGS 



0A28 0001 



DSW BSC 
01 AGS 



* ROUTINE 09 

4c 



SET UP DATA READ S/B 

INT CNT 
STR MASK 
DSW 
DIAGS 

DSH FOR BSC 
BSC OIAGS 



* ROUTINE OA 

* . 

OC 1 



0A18 




0000 




BSS 


E 





0A18 





1000 




NOP 






0A19 





0001 




OC 




1 


OAIA 





6700 


FFOO 


RT09 LOX 


L3 


/FFOO 


OAIC 


1 


6F00 


06 EC 


STX 


L3 


RDCPR 


OAIE 


1 


4400 


0603 


BSI 


L 


GO 


0A20 





0092 




DC 




/0092 


0A21 





0004 




DC 




/0004 


0A22 





E080 




OC 




/E080 


0A23 





3862 




DC 




/3862 


0A24 





0004 




OC 




/0004 


0A25 





E080 




DC 




/E080 


0A26 





3862 




DC 




/3862 


0A27 





0000 




OC 








0319-0 
8 



DATE 
EC JtO. 



15JUN67 
_420317_ 



010CT67 
42ai74 



01JUL69 
J71013_ 



01SEP59 
571i)62 



01JUN70 
571097 



31910220 

31910230 

31910240 

31910250 

31910260 

31910270 

31910280 

31910290 

31910300 

31910310 

31910320 

31910330 

31910340 

31910350 

31910360 

31910370 

31910380 

31910390 

31910400 

31910410 

31910420 

31910430 

31910440 

31910450 

31910460 

31910470 

31910480 

31910490 

31910500 

31910510 

31910520 

31910530 

31910540 

31910550 

31910560 

31910570 

31910580 

31910590 

31910600 

31910610 

31910620 

31910630 

31910640 

31910650 

31910660 

31910670 

31910680 

31910690 

31910700 

31910710 

31910720 

31910730 

31910740 

31910750 

31910760 

31910770 

31910780 

31910790 

31910800 

31910810 

31910820 

31910830 

31910840 

31910850 

31910860 

31910870 

31910880 

31910890 



PROG ID 
^AGE 



03 19-0 
8A 
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PART NO. 
PAGE 



2243568 
9A 



nA29 





6700 


FFOO 


0A2B 


1 


6F00 


06EC 


OA?D 


1 


4A0 


0603 


0A2F 





0102 




0A30 





2000 




0A31 





E080 




0A32 





1866 




0A33 





2000 




0A3'f 





E080 




0A35 





1866 




0A36 





0000 





RTOA 



LDX 


L3 


/FFOO 


STX 


L3 


ROCPR 


8SI 


L 


GO 


OC 




/0102 


DC 




/2000 


DC 




/F080 


nc 




/I 866 


DC 




/2000 


DC 




/E080 


DC 




/I 866 


DC 








0A58 




ocoo 




0A58 





1000 




0A59 





0001 




0A5A 





6700 


CCOO 


0A5C 


1 


6FO0 


06FC 


0A5F 


1 


4400 


0603 


0A60 





0020 




0A61 





0010 




0A62 





C080 




0A6? 





18E2 




0A64 





0010 




0A65 





8080 




0A66 





18E0 





SET UP DATA READ S/B 



STR MASK 

OSW 

DIAGS 

BSC MASK 

DSH 

DIAGS 



******* ****4**********«******#****;«**«******# 

* ROUTINE OB 

***************** ****«*«***:»***********4i**«** 



SET UP DATA PFAD S/B 



STR MASK 

DSW 

DIAGS 

BSC MASK 

DSW 

DIAGS 



********************************************* 

* ROUTINE OC 

********************************************* 

* 



SET UP DATA READ S/B 

INT CNT 

STR MASK 

DSW 

DIAGS 

BSC MASK 

DSW 

DIAGS 



********************************************* 

* ROUTINE 00 

********************************************* 



BSS 



0A38 




0000 




BSS 


E 





0A38 





lono 




NOP 






0A39 





0001 




DC 




1 


0A3A 





6700 


FFOO 


PTOB LDX 


L3 


/FFOO 


0A3C 


1 


6F00 


06FC 


STX 


L3 


RDCPR 


0A3F 


1 


4400 


0603 


BSl 


L 


GO 


nA40 





0202 




DC 




/0202 


0A41 


c 


2000 




DC 




/2000 


0A42 





E080 




DC 




/E080 


0A43 





1R66 




nc 




/I 866 


0A44 





2000 




DC 




/2000 


0A45 





E080 




DC 




/E080 


0A46 





1866 




DC 




/1866 


0A47 





0000 




OC 








0A48 




0000 




BSS 


F 





0A48 





1000 




NOP 






0A49 





0001 




DC 




1 


0A4A 





6 700 


8000 


RTOC LDX 


L3 


/8000 


0A4C 


1 


6F00 


06EC 


STX 


L3 


RDCPR 


0A4E 


1 


4400 


0603 


BSI 


L 


GO 


0A50 





0010 




DC 




/OOIO 


0A51 





2000 




DC 




/2D00 


0A52 





C080 




DC 




/C080 


0A53 





1862 




DC 




/1862 


0A54 





2000 




DC 




/2000 


0A55 





8080 




OC 




/8080 


0A56 





1860 




DC 




/lfl60 


OA57 





0000 




OC 




n 



RTOD 



NOP 






DC 




1 


LDX 


1.3 


/cooo 


STX 


L3 


RDCPR 


BSI 


L 


GO 


DC 




/0020 


DC 




/OOlO 


DC 




/C080 


DC 




/18E2 


OC 




/OOIO 


OC 




/8C80 


DC 




/18E0 



SET UP DATA READ S/B 



STR MASK 
DSW 
DIAGS 
BSC MASK 
OSW BSC 
DIAGS 



31910900 
31910910 
31910920 
31910930 
31910940 
31910950 
31910960 
31910970 
3191O9B0 
31910990 
31911000 
31911010 
31911020 
31911030 
31911040 
31911050 
31911060 
31911070 
31911080 
31911090 
31911100 
31911110 
31911120 
31911130 
31911140 
31911150 
31911160 
31911170 
31911180 
31911190 
31911200 
31911210 
31911220 
31911230 
31911240 
31911250 
31911260 
31911270 
31911280 
31911290 
31911300 
31911310 
31911320 
31911330 
31911340 
31911350 
31911360 
31911370 
31911380 
31911390 
31911400 
31911410 
31911420 
31911430 
31911440 
31911450 
31911450 
31911470 
31911480 
31911490 
31911500 
31911510 
31911520 
31911530 
31911540 
31911550 
31911560 
31911570 



0A67 0000 



OC 



********************************************* 

* ROUTINE OE 

********************************************* 

« 



0A68 




0000 




BSS 


F 





0A6 8 





1000 




NOP 






0A69 





OCOl 




DC 




1 


0A6A 





6700 


60C0 


RTOF LDX 


L3 


/6000 


0A6C 


1 


6FO0 


06 EC 


STX 


L3 


ROCPR 


0A6E 


1 


4400 


0603 


BSI 


L 


GO 


OA70 





0030 




DC 




/0030 


0A71 





0000 




DC 







0A72 





C080 




DC 




/C08 


Ofl73 





18EA 




OC 




/18FA 


0A74 





0000 




OC 







0A75 





8080 




DC 




/8oao 


0A76 





18E8 




DC 




/18F8 


0A77 





0000 




DC 








SET UP DATA READ S/B 



STR DSW 
DIAGS 



BSC OSW 
DIAGS 



********************************************* 

* ROUTINE OF 

********************************************* 

* 



0A78 




0000 






BSS 


E 





0A78 


C 


1000 






NOP 






0A79 





0001 






nc 




1 


nA7A 





6700 


3000 


RTOF 


LDX 


L3 


/3000 


0a7C 


1 


6F00 


06FC 




STX 


L3 


RDCPR 


0A7F 


1 


4400 


0603 




BSI 


L 


GO 


0A80 





0040 






DC 




/0040 


0A81 





0080 






DC 




/0080 


0A82 





C080 






DC 




/C080 


0A83 





186A 






DC 




/186A 


0A84 





0080 






DC 




/0080 


0Aa5 





8080 






nc 




/8080 


0A86 





1868 






DC 




/I 868 


0A37 


c 


0000 






nc 








SET UP DATA READ S/B 



STR MASK 

DSW 

DIAGS 

BSC MASK 

OSW 

DIAGS 



********************************************* 

* ROUTINE 10 

********************************************* 

* 



0A88 




ocoo 




BSS 


F 





0A88 





1000 




NOP 






nA89 





0001 




OC 




1 


0A8A 





6700 


9800 


PTIO LDX 


L3 


/9800 


0A8C 


1 


6F00 


06EC 


STX 


L3 


ROC PR 


0A8E 


1 


4400 


0603 


BSI 


I 


GO 


0A90 





0050 




DC 




/0050 


0A91 





0000 




DC 







0A92 





C080 




DC 




/C080 


0A93 





1862 




DC 




/1862 


0A94 


c 


0000 




DC 







0A95 





8080 




DC 




/8080 


0A96 





1860 




DC 




/1860 


nA97 





0000 




OC 








SET UP DATA READ S/B 



STR OSW 
DIAGS 



0A98 
0A98 
0A99 
0A9A 



0000 
1000 
0001 
6700 CCOO 



0A9C 1 6F00 06EC 



BSC DSW 
DIAGS 



********************************************* 

* ROUTINE 11 

********************************************* 

* 

BSS E 

NOP 

DC 1 

RTll LDX L3 /CCOO 

STX L3 ROCPR SET UP DATA READ S/B 



31911580 
31911590 
31911600 
31911610 
31911520 
31911630 
31911640 
31911650 
31911660 
31911670 
31911680 
31911690 
31911700 
31911710 
31911720 
31911730 
31911740 
31911750 
31911760 
31911770 
31911780 
31911790 
31911800 
31911810 
31911820 
31911830 
31911840 
31911850 
31911860 
31911870 
31911880 
31911890 
31911900 
31911910 
31911920 
31911930 
31911940 
31911950 
31911960 
31911970 
31911980 
31911990 
31912000 
31912010 
31912020 
31912030 
31912040 
31912050 
31912060 
31912070 
31912080 
31912090 
31912100 
31912110 
31912120 
31912130 
31912140 
31912150 
31912160 
31912170 
31912180 
31912190 
31912200 
31912210 
31912220 
31912230 
31912240 
31912250 



DATE 
EC NO. 



15JUN67 
420317 



010CT67 
420374 



01JUL69 
571013 



01SEP69 
571062 



01JUN70 
571097 
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SCA WRAP-AROUND TFST STR/BSC 



PART NO. 2243568 
PAGE lOA 



0A9E 1 4400 0603 
OAAO 0060 
OAAl 0000 


BSI 1 

OC 
DC 


L GD 

/0060 





0AA2 C080 
0AA3 1862 
0AA4 0000 


DC 

DC 
OC 


/C080 
/186? 




STR DSW 

DIAGS 


0AA5 8080 
0AA6 1860 
0AA7 0000 


OC 
DC 
DC 


/8080 
/1860 



BSC DSW 
OIAGS 



0AA8 




0000 




8SS 


E 





0AA8 





1000 




NOP 






0AA9 





0001 




OC 




1 


OAAA 





6700 


F60n 


RT12 LDX 


L3 


/E600 


OAAC 


1 


6F00 


06FC 


STX 


L3 


RDCPR 


OAAE 


1 


4400 


0603 


SSI 


L 


GO 


OABO 





0070 




OC 




/0070 


OABl 





0010 




or 




/OOIO 


OAB? 





C080 




DC 




/C080 


0AB3 





18E2 




DC 




/18E2 


0AB4 





0010 




DC 




/OOIO 


0AB5 





8080 




DC 




/8080 


0A86 





18E0 




nc 




/ISFO 


0AB7 





0000 




OC 








* ROUTINE 12 



SET UP DATA READ S/B 



STR MASK 

DSW 

DIAGS 

BSC MASK 

DSW 

DIAGS 



* ROUTINE 13 



SET UP DATA READ S/B 

INT. COUNT 

STR MASK 

OSW 

OIAGS 

BSC MASK 

DSW 

OIAGS 



* ROUTINE 14 

* 



0AB8 




0000 




PSS 


F 





OABa 


C 


1000 




NOP 






0A89 





0001 




DC 




I 


OABA 





6700 


7300 


RT13 LDX 


L3 


/7300 


0A8C 


1 


6F00 


06FC 


STX 


L3 


RDCPR 


OABF 


1 


4400 


0603 


BSI 


L 


GO 


OACC 





0090 




OC 




/0090 


OACl 





0004 




DC 




/0004 


0AC2 





E080 




DC 




/E080 


0AC3 





38EA 




DC 




/38EA 


0AC4 





0004 




DC 




/0004 


0AC5 





E080 




DC 




/E080 


0AC6 





38EA 




DC 




/38EA 


0AC7 





0000 




DC 








0AC8 





0001 




DC 




1 


0AC9 


c 


6700 


3900 


RT14 LDX 


L3 


/3900 


OACB 


1 


6F00 


06EC 


STX 


L3 


RDCPR 


OACO 


1 


4400 


0603 


RSI 


L 


GO 


OACF 





0100 




OC 




/OlOO 


OADO 





2080 




OC 




/2O80 


OADl 





E080 




OC 




/EOflO 


0AD2 





186E 




DC 




/186F 


0AO3 





2080 




DC 




/2080 


OADA 





E080 




DC 




/E080 


0AD5 





186E 




OC 




/186E 


0AD6 





0000 




DC 








SET UP DATA READ S/8 



STR MASK 

OSW 

DIAGS 

BSC MASK 

OSW 

DIAGS 



* ROUTINE 15 



31912260 

31912270 

31912280 

31912290 

31912300 

31912310 

31912320 

31913330 

31912340 

31912350 

31912360 

31912370 

31912380 

31912390 

31912400 

31912410 

31912420 

31912430 

31912440 

31912450 

31912460 

31912470 

31912480 

31912490 

31912500 

31912510 

31912520 

31912530 

31912540 

31912550 

31912560 

31912570 

31912580 

31912590 

31912600 

31912610 

31912620 

31912630 

31912640 

31912650 

31912660 

31912670 

31912680 

31912690 

31912700 

31912710 

31912720 

31912730 

31912740 

31912750 

31912760 

31912770 

31912780 

31912790 

31912800 

31912810 

31912820 

31912830 

31912840 

31912850 

31912860 

31912870 

31912880 

31912890 

31912900 

31912910 

31912920 

31912930 



0AD8 




0000 




0AD8 





1000 




0AD9 





0001 




OADA 





6700 


7300 


OADC 


1 


6F00 


e6FC 


OADE 


1 


4400 


0603 


OAEO 





0200 




OAEl 





2000 




0AE2 





F080 




0AF3 





18EA 




0AE4 





2 004 




0AE5 





E080 




0AF6 





18EA 




nAE7 





0000 





RT15 



BSS 


F 





NOP 






OC 




1 


LDX 


L3 


/7300 


STX 


L3 


RDCPR 


BSI 


L 


GO 


DC 




/0200 


nc 




/2000 


DC 




/Eoao 


DC 




/18EA 


DC 




/2004 


DC 




/E080 


OC 




/ISEA 


DC 








SET UP DATA READ S/B 



STR OSW 
DIAGS 
BSC MASK 
DSW 
DIAGS 



* ROUTINE 16 



0AE8 


C 


0000 




0AE9 





6700 


3900 


OAEB 


1 


6F00 


06EC 


OAED 





6 700 


OOOA 


OAFF 


1 


6F00 


06F? 


OAFl 


1 


C400 


OfeF2 


0AF3 





1008 




0AF4 





0002 




0AF5 


1 


4400 


0603 


0AF7 





0000 




OAFS 





2080 




OAF 9 





EOBO 




OAFA 





186E 




OAFB 





2080 




OAFC 


c 


F080 




OAFO 





186E 




OAFF 





0000 





RT16 



DC 







LDX 


L3 


/3900 


STX 


L3 


RDCPR 


LDX 


L3 


10 


STX 


L3 


STOPS 


LD 


L 


STOPS 


SLA 




8 


STO 




*+2 


BSI 


L 


GO 


DC 




*-* 


DC 




/2080 


DC 




/E080 


OC 




/186E 


OC 




/20B0 


DC 




/E080 


DC 




/186F 


DC 








SET UP DATA READ S/B 
SET RTN PASS COUNT~ 



PASS COUNT 
STR MA 
DSW 

DIAGS BSC 
BSC MASK 
DSW 



* ROUTINE 17 

* 



OAFF 





0000 






DC 







OBOO 





6700 


FFOO 


RT17 


LDX 


L3 


/FFOO 


0B02 


1 


6Fro 


06FC 




STX 


L3 


RDCPR 


0B04 


I 


6F00 


06E1 




STX 


L3 


SEND 


0B06 





6700 


AAOO 




LDX 


L3 


/AAOO 


0B08 


1 


6F00 


06F0 




STX 


L3 


ALT 


OBOA 


1 


C400 


05F1 




LD 


L 


SW2 


OBOC 





lOOA 






SLA 




10 


OBOD 


1 


4428 


087 3 




BSI 


L 


SELCH.eZ 


060F 





6 700 


OOOA 


WRAP 


LDX 


L3 


10 


OBll 


1 


6F00 


06F? 


* 


STX 


L3 


STOPS 


0613 


1 


C400 


06F2 


LD 


L 


STOPS 


0B15 





1008 






SLA 




8 


0B16 


1 


8400 


0B23 




A 


L 


K0002 


0B18 


c 


D002 






STO 




♦♦2 


OBig 


1 


4400 


0603 




RSI 


L 


GO 


OBIB 





0000 






DC 




*_* 


OBIC 





2080 






OC 




/2080 


OBID 





F080 






OC 




/E080 


OBIE 





1866 






OC 




/1866 


OBIF 





2088 






DC 




/2088 


0820 





E080 






OC 




/E080 


0821 





1866 






DC 




/I 866 


0B22 





0000 






DC 







0B23 





0002 




K0002 


DC 




2 



CHK FOR SELECT CHAR 
SET UP SELECTED CHAR 
SET RTN PASS COUNT 



STR MASK RTN 17 

DSW 

DIAGS 

BSC MASK 

OSW 

OIAGS BSC 



31912940 

31912950 

31912960 

31912970 

31912980 

31912990 

31913000 

31913010 

31913020 

31913030 

31913040 

31913050 

31913060 

31913070 

31913080 

31913090 

31913100 

31913110 

31913120 

31913130 

31913140 

31913150 

31913160 

31913170 

31913180 

31913190 

31913200 

31913210 

31913220 

31913230 

31913240 

31913250 

31913260 

31913270 

31913280 

31913290 

31913300 

31913310 

31913320 

31913330 

31913340 

31913350 

31913360 

31913370 

31913380 

31913390 

31913400 

31913410 

31913420 

31913430 

31913440 

31913450 

31913460 

31913470 

31913480 

31913490 

31913500 

31913510 

31913520 

31913530 

31913540 

31913550 

31913560 

31913570 

31913580 

31913590 

31913600 

31913610 



DATE 
EC NO- 



15JUN67 
420317 



010CT67 
420374 



01 JUL 69 
571013 



01SEP69 
571062 



01JUN70 
571097 
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01SFP69 
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EC NO. 


420317 


420374 


571013 


571062 


571097 



PROG ID 
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PART NO. 
PAGE 



2243568 
llA 



GB24 





0000 






DC 







0B2 5 





6700 


ocoo 


RTIR 


LDX 


L3 


/oooo 


0B27 


1 


6F00 


06EC 




STX 


L3 


RDCPR 


0B29 


1 


6F0O 


06E1 




STX 


L3 


SEND 


OB?B 


I 


4400 


0603 




BSI 


L 


GO 


0B20 





0A02 






DC 




/0A02 


OB?E 





2 090 






DC 




/2090 


OB?F 





E080 






DC 




/E080 


0B30 





186E 






DC 




/186E 


0B31 





2090 






DC 




/2090 


0B32 





E080 






DC 




/E080 


0R33 





186E 






DC 




/186E 


0B34 





0000 




* 
* 


DC 








* 

* 

* ROUTINE 18 

********************************************* 



ZERO VALUE 

SET UP S/B DATA WORD 

SET UP BUFFER WRITE 

PASS COUNT 

STR MASK 

DSW 

DIAGS 

BSC MASK 

DSM 

DIAGS 



* ROUTINE 19 

* 



ZERO VALUE 

SET UP S/B DATA WORD 

SET UP BUFFER WRITE 

ZERO VALUE 

SET UP WRITE SYN REO 

PASS COUNT 
STR MASK 
OSH 

OIAGS STR 
BSC MASK 
DSW 
DIAGS 



****♦***♦♦♦♦*♦♦**♦♦**♦**♦******♦************* 
* ROUTINE lA 

* 



7 BIT WORD 
SET UP S/B DATA WORD 
SET UP BUFFER WRITE 
ALTERNATE BIT PATTERN 
SET UP WRT SYN REG 

PASS COUNT 
STR MASK 
DSW 

BSC MASK 
DSW BSC 
DIAGS 



* ROUTINE 18 



0635 





0000 




DC 







0B3 6 





6 700 


OPOO 


RT19 LDX 


L3 


/OOOO 


OB 3 8 


1 


6F00 


06EC 


STX 


L3 


ROC PR 


0B3A 


1 


6F00 


06E1 


STX 


L3 


SEND 


0B3C 





6700 


0000 


LDX 


L3 


/OOOO 


0B3E 


1 


6F00 


06EO 


STX 


L3 


ALT 


0B40 


1 


4400 


0603 


BSI 


L 


GO 


0B42 





0A02 




DC 




/0A02 


0B43 





2090 




DC 




/2090 


0B44 





E080 




DC 




/E080 


0B45 





I86E 




DC 




/186E 


0B46 





2090 




DC 




/2090 


0B47 





E080 




DC 




/E080 


0B48 





186E 




DC 




/186E 


0B49 





0000 




DC 

* 
* 








0B4A 





OOOO 




DC 







OB 48 





6700 


FFOO 


RTIA LDX 


L3 


/FFOO 


0B40 


1 


6F00 


06 EC 


STX 


L3 


ROC PR 


0B4F 


1 


6F00 


06E1 


STX 


L3 


SEND 


0B51 





6700 


AAOO 


LDX 


L3 


/AAOO 


0B53 


1 


6F00 


06E0 


STX 


L3 


ALT 


0B55 


1 


4400 


0603 


BSI 


L 


GO 


0B57 





0906 




DC 




/0906 


0B58 





2000 




OC 




/2000 


0R59 





E080 




DC 




/E080 


0B5A 





1866 




DC 




/1866 


0B5B 





2000 




nc 




/2000 


0B5C 





F080 




DC 




/E080 


0B5D 





1866 




DC 




/1366 


0B5F 





OOOO 




DC 
* 

* 








0R5F OOOO 



OC 







31913620 
31913630 
31913640 
31913650 
31913660 
31913570 
31913680 
31913690 
31913700 
31913T10 
31913720 
31913730 
31913740 
31913750 
31913750 
31913770 
31913780 
31913790 
31913800 
31913810 
31913820 
31913830 
31913840 
31913850 
31913860 
31913870 
31913880 
31913890 
31913900 
31913910 
31913920 
31913930 
31913940 
31913950 
31913960 
31913970 
31913980 
31913990 
31914000 
31914010 
31914020 
31914030 
31914040 
31914050 
31914060 
31914070 
31914080 
31914090 
31914100 
31914110 
31914120 
31914130 
31914140 
31914150 
31914160 
31914170 
31914180 
31914190 
31914200 
31914210 
31914220 
31914230 
31914240 
31914250 
31914260 
31914270 
31914280 
31914290 



0B60 





6700 


FCOO 


RT18 


LDX 


L3 


/FCOO 


0B62 


1 


6F00 


06EC 




STX 


L3 


RDCPR 


0B64 


1 


6F00 


06E1 




STX 


L3 


SEND 


0B66 





6700 


AAOO 




LDX 


L3 


/AAOO 


0B6 8 


1 


6F00 


06 EO 




STX 


L3 


ALT 


0B6A 


1 


4400 


0603 




BSI 


L 


GO 


0B6C 





080A 






DC 




/080A 


0B6D 





2000 






DC 




/2000 


086E 





E080 






OC 




/E080 


0B6F 





1866 






OC 




/1856 


0B70 





2000 






OC 




/2000 


0B71 





E080 






DC 




/E080 


0B72 





1866 






OC 




/1866 


0B73 





OOOO 




* 


DC 








0B74 1 C400 0710 
0B76 1 4400 0B82 
0878 C008 
0B79 1 4C18 0946 
0B7B 1 C400 0711 
0B7D 700A 



0B7E OOOO 
0R7F OOOO 
0B80 OOOO 
0B81 OOOO 



0B82 OOOO 
0B83 DOFB 
0B84 1 4400 0B8D 
0B86 1 4C80 0B82 



0R88 n0F6 
0B89 1 4400 0B9A 
OBRR 1 4400 0945 



6 BIT WORD 
SET UP S/B DATA WORD 
SET UP BUFFER WRITE 
ALTERNATE BIT PATTERN 
SET UP WRT SYN REG 

PASS COUNT 

STR MASK 

DSW 

DIAGS 

BSC MASK 

DSW 

DIAGS 



* CONTROL ANALYSIS 

* CONTROLS ANALYSIS Of^ RESULTS FOR 

* FUNCTION LAST EXECUTED 

4c«*4c4«««4t#4c««:«4c4t4:4:««*««4:*«4<*«:^«4::»4E4c*4c*:»**4:4:4<4: 

LOAD S/B DSW 



CON AN LO 


L 


oswxx 


BSI 


L 


STORl 


LD 




SWOIA 


BSC 


L 


OFFGl.e- 


LO 


L 


OIAXX 


MDX 




ST0R2 



CHECK IF DIAG OPT ON 
RESTORE PROGRAM SWS 
LOAD S/B DIAG WORDS 



#««:»«*:«4i«4i*****4i4:4i*«**4:*«4i4:4i4:«:4c4:4c4:4<4:4,4c*4i#:»4i«4c 

* STORAGE FOR CONTROL ANALYSIS 

* 

TRGWD OC *-* DIAG WORD ERR. BITS 

STWO DC *-* STORED WORD 

DSWRD DC *-* DSW ERROR BITS 

SWDIA DC *-* DIAG OPTION SW 

* 

* 

*-* SAVED RETURN ADDR 

STWO STORE S/B DSW WORD 

L ANALl GO TO ANAL. 1 

I SrORl RETURN TO SAVED AODR 



STORl DC 
STO 
BSI 
BSC 

* 

ST0R2 STO STWO STORE S/B DIAG WORD 
BSI L ANAL2 GO TO ANAL. 2 
BSI L OFF GO TO SW RESET RTN 

* CHECK TO SEE IF DSW ERROR EXISTS 

* 

SAVED RETURN AODR 
LOAD SENSED DSW 
EOR WITH S/B DSW 
STORE IN DSW ERR BIT 
CHK IF FRR BITS ON 
ERR BITS ARE ON 
ERR BITS ARE NOT ON 
CHK WHICH BITS ON 
BRANCH TO RETURN ADR 
* 

* CHECK TO SEE IF DIAG TRIG ERROR EXISTS 

**«****«*«*r«***^t«r**4txt*«****** ******* ********* 



0B8D 





OOOO 




ANAll 


DC 




*-* 


OBBE 


1 


C400 


06F8 




LO 


L 


CADSW 


0B90 


1 


F400 


0710 




EOR 


L 


DSWXX 


0R92 





DOFD 






STO 




DSHRO 


0B93 





4820 






BSC 




Z 


0B94 





7001 






MOX 




ANLOl 


0695 





7002 






MDX 




ANL0162 


0B96 


1 


4400 


0BA7 


ANini 


BSI 


L 


DSWAN 


0R98 


1 


4C80 


0P8D 




BSC 


I 


ANALl 



31914300 
31914310 
31914320 
31914330 
31914340 
31914350 
31914360 
31914370 
31914380 
31914390 
31914400 
31914410 
31914420 
31914430 
31914440 
31914450 
31914460 
31914470 
31914480 
31914490 
31914500 
31914510 
31914520 
31914530 
31914540 
31914550 
31914560 
31914570 
31914580 
31914590 
31914600 
31914610 
31914620 
31914630 
31914640 
31914550 
31914560 
31914670 
31914680 
31914590 
31914700 
31914710 
31914720 
31914730 
31914740 
31914750 
31914760 
31914770 
31914780 
31914790 
31914800 
31914810 
31914820 
31914830 
31914840 
31914850 
31914860 
31914870 
31914880 
31914890 
31914900 
31914910 
31914920 
31914930 
31914940 
31914950 
31914960 
31914970 



DATE 

EC NO. 



1 SJUN6 7 
470317 



010CT67 
4?03 7/» 



01JUL6q 



01SFPfe9 
■;7106? 



01JUN70 
571097 
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DATF 
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EC NO. 


420317 


A20?74 
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0319-0 
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0B9A 





0000 




ANAL2 


DC 




*-* 


0B9B 


I 


C400 


0600 


CKIT3 


LD 


L 


DIAWD 


0B90 


1 


F400 


0711 




FOR 


L 


DIAXX 


0B9F 





DODE 






STO 




TRGWD 


OBAO 





4820 






BSC 




Z 


OBAl 





7001 






MDX 




ANL02 


DBA? 





7002 






MDX 




ANL02e2 


OBA^ 


1 


4400 


OCDF 


ANLO? 


BSI 


t 


TRGAN 


0BA5 


1 


4C80 


0B9A 


* 


BSC 


I 


ANAL2 



0PE5 r 0000 
0BE6 0000 



0BE7 c onoo 

0BE8 1 C400 Cf-ni 

OBFA 1890 

OBFR C IQIO 

oeec 1083 



SAVED RETURN ADOR 
LOAD HAS DIAG WDS 
EOR S/B DIAG WORDS 
SET IN DIAG ERR BITS 
CHKIF FRR BITS ON 
ERROR BITS ARE ON 
ERR BITS ARE NOT ON 
GO TO TRIGGER ANAL 
BRANCH TO SAVED ADDR 



* 

* DSW ANALYSIS 

* COMPARE SHOULD/BE DSW WITH WAS OSW 

* AND ANALIZE ANY ERRORS 

SAVED RETURN ADDRESS 
LOAD DSW WAS 
AND WITH DSW ERR 
STORE ON/F ERR BITS 
LOAD OSW ERR BITS 
EOR WITH ON/F ERR 
STORE OSW F/ON ERR 
EXECUTE ALARM ON 
SET UP MESSAGE ID 5 
STORE IN MESSAGE # 
GO CHK WHICH MSG ID 

SET IN MODIFIER ID 
LO ALPHA 1 ADDR 
SET UP ALPHA MSG 
LOAD ON/F ERR BITS 

LOAD F/ON FRR BITS 

LD OSW SHOULD/BE 
SET UP ERR MESSAGE 
LOAD SENSED DSW 
SET UP ERR MESSAGE 

MASK OUT CE BITS 
SET UP ERR MESSAGE 

SET UP ERR MESSAGE 
GO PRINT ERROR 
MESSAGE TABLE 
LOOP ADDRESS 
EXECUTE ALARM OFF 
EXIT TO RETURN AOOR 

* OSW ANALYSIS SWITCHES S STORAGE 

«********:**«*********:S!****«********* ********* 

* 

DSWWl nC *-* DSW F/ON WORD 

DSWW? DC *-* DSW ON/F WORD 
********************************************* 

*4t^ «****;(;*;******* **************************** 
* 

MSG in DC *-* 

LO L DIAHOEl LOAD *CE* BITS 
SRT 16 
SLA 16 
SLT 3 



0BA7 





0000 




OS HAN DC 




*-* 


0BA8 




C400 


06F8 


LD 


L 


CADSW 


OBAA 




E400 


0880 


AND 


L 


DSWRD 


OBAC 




0400 


0BE5 


STO 


L 


OSWWl 


OBAE 




C400 


0880 


LO 


L 


DSWRD 


OBBO 




F400 


0BE5 


EOR 


L 


OSMWl 


08B2 




0400 


0BE6 


STO 


L 


DSWW2 


0BB4 




OCOO 


0992 


XIO 


L 


BZON 


0B86 




6305 




LDX 


3 


5 


0B87 




6F00 


0C2A 


STX 


L3 


MSG NO 


0BB9 




4400 


0BF7 


BSI 


L 


HSGID 


OBBB 




6700 


007F 


LDX 


L3 


/007F 


OBBD 




6F00 


0D34 


STX 


L3 


TABLEe2 


OBBF 




6 700 


0C2B 


LDX 


L3 


AORl 


OBCl 




6F00 


0D35 


STX 


L3 


TABLEE3 


0BC3 




C400 


0BE5 


LD 


L 


DSWWl 


0BC5 




D400 


003B 


STO 


L 


TABLE£9 


0BC7 




C400 


0BE6 


LD 


L 


DSWW2 


0BC9 




0400 


0D3C 


STO 


L 


TABLE£10 


OBCB 




C400 


0710 


LD 


L 


DSMXX 


OBCD 




D400 


003A 


STO 


L 


TABLEGS 


OBCF 




C400 


06F8 


LD 


L 


CADSW 


OBDl 




D400 


0039 


STO 


L 


TABLEE7 


0BD3 




C400 


0604 


10 


L 


DI2AL 


0BD5 




E400 


0E20 


AND 


L 


MASKl 


0BD7 




D400 


0038 


STO 


L 


TABLEG6 


0BD9 




C400 


06D? 


LD 


L 


DUAL 


OBOB 




D400 


0037 


STO 


L 


TABLEe5 


OBDO 




4480 


0162 


BSI 


I 


ERROR 


OBPF 




0032 




DC 




TABLE 


OBEO 




OCCO 




DC 




LOPRT 


OBEl 




OCOO 


0998 


XIO 


L 


BZOFF 


0BE3 




4C80 


0BA7 


BSC 


I 


DSWAN 



31914980 

3191A990 

31915000 

31915010 

31915020 

31915030 

31915040 

31915050 

31915060 

31915070 

31915080 

31915090 

31915100 

31915110 

31915120 

31915130 

31915140 

31915150 

31915160 

31915170 

31915180 

31915190 

31915200 

31915210 

31915220 

31915230 

31915240 

31915250 

31915260 

31915270 

31915280 

31915290 

31915300 

31915310 

31915320 

31915330 

31915340 

31915350 

31915360 

31915370 

31915380 

31915390 

31915400 

31915410 

31915420 

31915430 

31915440 

31915450 

31915460 

31915470 

31915480 

31915490 

31915500 

31915510 

31915520 

31915530 

31915540 

31915550 

31915560 

31915570 

31915580 

31915590 

31915600 

31915610 

31915620 

31915630 

31915640 

31915650 



OBFD 





1007 






SLA 




7 




31915660 


OBEE 


1 


D400 


0D3D 




STO 


L 


TABLEEll 


STORE IN ERR MSG 


31915670 


08F0 


1 


C400 


0944 




LD 


L 


RSTSW 


CHK FOR P RESET ERR 


31915680 


0BF2 





4820 






BSC 




Z 




31915690 


0BF3 





702E 






MOX 




NOTRM 


LET PROG RESET MSG 


31915700 


0BF4 





C031 




* 


LD 




TERM 


NO PROG RESET MSG 


31915710 
31915720 


0BF5 


1 


0400 


0C40 


MSGGO 


STO 


L 


TERHl 




31915730 


0BF7 


1 


0400 


0C5A 




STO 


L 


TERM2 




31915740 


0BF9 


1 


0400 


0C74 




STO 


L 


TERM3 




31915750 


OBFB 


1 


0400 


0C8E 




STO 


L 


TERM4 




31915760 


OBFD 





C02B 






LD 




INTSW 




31915770 


OBFE 


1 


4C18 


OCOF 




BSC 


L 


I0RTN£2,£- 


• BRANCH NOT INT MSG 


31915780 


OCOO 


1 


C400 


06F9 




LD 


L 


LOPSW 


CHK FOR INTRPT INFO 


31915790 


0C02 





4820 






BSC 




Z 




31915800 


OC03 





7014 






MOX 




PNDCK 




31915810 


0CO4 


1 


C400 


06EA 




LO 


L 


PRTPN 




31915820 


0C06 





4820 






BSC 




Z 




31915830 


0CO7 





7018 






MDX 




MID3 




31915840 


0C08 





6300 






LDX 


3 







31915850 


0CO9 





6B1E 






STX 


3 


INTID 


RESET INTERRUPT ID 


31915860 


OCOA 





6B1E 






STX 


3 


INTSW 


RESET INTERRUPT SW 


31915870 


OCOB 


1 


4C80 


0D85 


« 


BSC 


I 


INTAN 


EXIT TO RETURN 


31915880 
31915890 


OCOO 


1 


6F00 


0C28 


IDRTN 


STX 


L3 


INTID 


STORE INT MSG ID 


31915900 


OCOF 





COIA 






LD 




MSGNO 


LOAD MESSAGE # 


31915910 


OCIO 





8017 






A 




INTID 


ADD INT MSG ID 


31915920 


ecu 


1 


0400 


0032 




STO 


L 


TABLE 


STORE MESSAGE ID 


31915930 


0C13 





6300 






LDX 


3 







31915940 


0C14 





6B13 






STX 


3 


INTID 


RESET INTERRUPT ID 


31915950 


0C15 





6B13 






STX 


3 


INTSW 


RESET INTERRUPT SW 


31915960 


0C16 


1 


4C80 


0BE7 


* 


BSC 


' 


MSGID 


EXIT TO RETURN ADDR 


31915970 
31915980 


0C18 


I 


C400 


06EA 


PNDCK 


LO 


L 


PRTPN 


LOAD PRINT PENO SW 


31915990 


OCIA 





4820 






BSC 




I 




31916000 


OCIB 





7002 






MDX 




MIDI 




31916010 


OCIC 





6302 






LDX 


3 


2 


SET MESSAGE ID 2 


31916020 


OCID 





70EF 




* 


MDX 




IDRTN 




31916030 
31916040 


OCIE 





6301 




MIDI 


LDX 


3 


1 


SET UP MESSAGE 10 1 


31916050 


OCIF 





70FD 




* 


MOX 




IDRTN 




31916060 
31916070 


0C2O 





6303 




MI03 


LDX 


3 


3 


SET UP MESSAGE ID 3 


31916080 


0C21 





70EB 




* 


MDX 




IDRTN 




31916090 
31916100 


0C22 


1 


7401 


0C2A 


NOTRM 


MOX 


L 


MSGNO, SI 


ADO I TO MESSAGE # 


31916110 


0C24 





C002 






LD 




SPACE 


LOAD SPACES 


31916120 


0C25 





70CF 




* 


MOX 




MSGGO 




31916130 
31916140 


0C26 





FFFF 




TFRM 


DC 




/FFFF 


TERMINATOR 


31916150 


0C27 





2121 




SPACE 
* 


DC 




/2121 


SPACES 


31916160 
31916170 


0C28 





0000 




INTID 


OC 




*-* 


INTERRUPT ID 


31916180 


0C2 9 





0000 




INTSW 


DC 




*-* 


INTERRUPT SW 


31916190 


Or2A 





0000 




MSG NO 

* 


DC 




*-* 


MESSAGE ID 


31916200 
31916210 










«***************************+*♦******♦**«***♦ 


31916220 










* 


ALPHA MESSAGE FOR 


OSW ERROR 


31916230 










***** 


**************************************** 


31916240 










« 










31916250 


0C28 





3292 




ADRl 


DC 




/3292 


OW 


31916260 


0C2C 





FC21 






DC 




/FC21 


1 


31916270 


0C2D 





2132 






DC 




/2132 


D 


31916280 


0C2E 





92D8 






OC 




/92D8 


W2 


31916290 


0C2F 





2121 






DC 




/2121 




31916300 


CC30 





923E 






OC 




/923E 


WA 


31916310 


0C31 





9A21 






DC 




/9A21 


S 


31916320 


DC 3 2 





219A 






OC 




/219A 


S 


31916330 



DATE 

FC NT. 



1 5JUN6 7 
A20317 



0inCT67 
420374 



OIJUL'^9 
'>71013 



01SFP69 
5 71062 



01JUN70 
571097 



PROG in 


0319-0 


DATF 


15JUN67 


010CT67 


01JUL69 


01SEP69 


01JUN70 


PAGE 


12 


EC NO. 


420317 


420374 


571013 


571062 


571097 



PROG ID 
PAGE 



0319-0 
12A 
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0C33 





BCIA 


OC 


/BCIA 


/B 


0C34 





2121 


DC 


/2121 




OC35 





5276 


DC 


/5276 


ON 


0C36 





BC12 


DC 


/BC12 


/F 


0C37 





2112 


DC 


/2112 


F 


0C38 





BC52 


OC 


/BC52 


/O 


0C39 





7621 


DC 


/7621 


N 


0C3A 





061E 


OC 


/D61E 


*C 


0C3B 





36D6 


DC 


/3606 


E* 


0C3C 





2132 


DC 


/2132 





0C3D 





9A92 


DC 


/9A92 


SW 


0C3E 





2136 


DC 


/2136 


E 


0C3F 





6262 


OC 


/6262 


RR 


0C40 





FFFF 


TERMl DC 


/FFFF 


TERMINATOR 


0C41 


n 


6236 


DC 


/6236 


RE 


0C42 





9A36 


DC 


/9A36 


SE 


0C43 





9F21 


OC 


/9E21 


T 


0044 





FFFF 


OC 


/FFFF 





0C45 
0C46 
0C47 
0C48 
0C49 
0C4A 
0C4B 
0C4C 
0C4D 
0C4E 
0C4F 
0C50 
0C51 
0C52 
0C53- 
0C54 
0C55 
0C56 
0C57 
0C5B 
0C59 
0C5A 
0C5B 
0C5C 
0C5D 
0C5E 



329A 
9221 
2108 
923E 
9A21 
Fr.92 
3E9A 
21FC 
9ABC 
1A21 
5276 
BC12 
2112 
BC52 
7621 
D61E 
36D6 
2132 
92FC 
2136 
6262 
FFFF 
6236 
9A36 
9E21 
FFFF 



0C5F 


C 


329A 


0C60 





9221 


0C61 





?1FC 


0C62 





923E 


0C63 





9A21 


0C64 





0892 


0C65 





3E9A 


0C66 





2108 


0C67 


c 


9ABC 


cc6e 





1A21 


0C69 





5 276 


0C6A 


c 


BC12 


0C6R 





2112 


0C6C 





BC52 



* ALPHA MESSAGE FOR 01 AG WORD 1 ERROR 

* 

A0R2 



OC 


/329A 


OS 


OC 


/9221 


W 


DC 


/21D8 


2 


OC 


/923E 


WA 


DC 


/9A21 


S 


DC 


/FC92 


IH 


OC 


/3E9A 


AS 


OC 


/21FC 


1 


OC 


/9ABC 


S/ 


DC 


/1A21 


B 


OC 


/5276 


ON 


OC 


/BC12 


/F 


DC 


/2112 


F 


DC 


/BC52 


/O 


DC 


/7621 


N 


DC 


/D61E 


*C 


DC 


/3606 


E* 


DC 


/2132 


D 


DC 


/92FC 


Ml 


DC 


/2136 


E 


DC 


/6262 


RR 


DC 


/FFFF 


TERMINATOR 


DC 


/6236 


RE 


DC 


/9A36 


SE 


DC 


/9F21 


T 


DC 


/FFFF 





TERM2 



* ALPHA MESSAGE FOR DIAG WORD 2 ERROR 

* 



4DR3 



OC 


/329A 


OS 


OC 


/922I 


W 


DC 


/21FC 


1 


DC 


/923F 


WA 


DC 


/9A21 


S 


DC 


/0892 


2W 


DC 


/3E9A 


AS 


OC 


/2108 


2 


OC 


/9ABC 


S/ 


nc 


/IA?1 


B 


DC 


/5?76 


ON 


DC 


/BC12 


/F 


DC 


/2112 


F 


nc 


/fiC52 


/O 



31916340 

31916350 

31916360 

31916370 

31916380 

31916390 

31916400 

31916410 

31916420 

31916430 

31916440 

31916450 

31916460 

31916470 

31916480 

31916490 

31916500 

31916510 

31916520 

31916530 

31916540 

31916550 

31916560 

31916570 

31916580 

31916590 

31916600 

31916610 

31916620 

31916630 

31916640 

31916650 

31916660 

31916670 

31916660 

31916690 

31916700 

31916710 

31916720 

31916730 

31916740 

31916750 

31916760 

31916770 

31916780 

31916790 

31916800 

31916810 

31916820 

31916830 

31916840 

31916850 

31916860 

31916870 

31916880 

31916890 

31916900 

31916910 

31916920 

31916930 

31916940 

31916950 

31916960 

31916970 

31916980 

31916990 

31917000 

31917010 



0C6D 





7621 


OC 


/7621 


N 


0C6E 





D61E 


DC 


/D61E 


*C 


0C6F 





3606 


OC 


/36D6 


E* 


0C70 





213? 


OC 


/2132 


D 


0C71 





92D8 


DC 


/9208 


W2 


0C72 





2136 


OC 


/2136 


E 


0C73 





6262 


DC 


/6262 


RR 


0C74 


c 


FFFF 


TERM3 DC 


/FFFF 


TERMINATOR 


0C75 





6236 


OC 


/6236 


RE 


0C76 





9A36 


OC 


/9A36 


SE 


0C77 





9E21 


OC 


/9E21 


T 


0C78 





FFFF 


OC 


/FFFF 





0C93 


.0 


923E 


0C94 





9A21 


0C95 





219A 


0C96 





BCIA 


0C97 





2121 


0C98 


0' 


D61E 


0C99 





3606 


0C9A 





2121 


0C9B 





323E 


0C9C 





9E3E 


0C9D 





2136 


0C9E 





6262 


0C9F 





5262 


OCAO 





FFFF 



* ALPHA MESSAGE FOR INTERRUPT ERROR 

* 



0C79 





3292 


ADR 4 OC 


/3292 


OW 


0C7A 





FC21 


OC 


/FC21 


1 


0C7B 





2132 


DC 


/2132 


D 


0C7C 





9208 


DC 


/92D8 


W2 


0C7D 





2121 


DC 


/2121 




0C7E 





329A 


OC 


/329A 


OS 


0C7F 





9221 


DC 


/9221 


M 


0C80 





2152 


DC 


/2152 





0C81 





76BC 


OC 


/76BC 


N/ 


0C82 





1221 


OC 


/1221 


F 


0C83 





12BC 


DC 


/12BC 


F/ 


0C84 





5276 


OC 


/5276 


ON 


oce5 





21D6 


OC 


/21D6 


* 


0C86 





1E36 


OC 


/1E36 


CE 


0C87 





0621 


DC 


/D621 


* 


0C88 





2121 


DC 


/2121 




0C89 





2121 


OC 


/2121 




0C8A 





2122 


DC 


/2122 


I 


0C8B 





769E 


DC 


/769E 


NT 


0C8C 





2136 


OC 


/2136 


E 


0C8D 





6262 


OC 


/6262 


RR 


0C8E 





FFFF 


TERM4 OC 


/FFFF 


TERMINATOR 


0C8F 





6236 


OC 


/6236 


RE 


0C90 





9A36 


OC 


/9A36 


SE 


0C91 





9E21 


OC 


/9E21 


T 


0C92 





FFFF 


OC 


/FFFF 





* ALPHA MESSAGE FOR DATA ERROR 

* 

ADR5 



OC 


/923E 


WA 


OC 


/9A21 


S 


DC 


/219A 


S 


OC 


/BCIA 


/B 


OC 


/2121 




DC 


/061E 


*C 


DC 
OC 


/36D6 
/2121 


E* 


OC 


/323E 


DA 


DC 


/9E3E 


TA 


DC 


/2136 


E 


OC 


76262 


RR 


DC 


75262 


OR 


DC 


/FFFF 





OCAl C 9A1E 
0CA2 5256 



* ALPHA MESSAGE FOR SCOPE LOOP 

ADR 6 OC /9A1E SC 
DC /5256 OP 



31917020 
31917030 
31917040 
31917050 
31917060 
31917070 
31917080 
31917090 
31917100 
31917110 
31917120 
31917130 
31917140 
31917150 
31917160 
31917170 
31917180 
31917190 
31917200 
31917210 
31917220 
31917230 
31917240 
31917250 
31917260 
31917270 
31917280 
31917290 
31917 300 
31917310 
31917320 
31917330 
31917340 
31917350 
31917360 
31917370 
31917380 
31917390 
31917400 
31917410 
31917420 
31917430 
31917440 
31917450 
31917460 
31917470 
31917480 
31917490 
31917500 
31917510 
31917520 
31917530 
31917540 
31917550 
31917560 
31917570 
31917580 
31917590 
31917600 
31917610 
31917620 
31917630 
31917640 
31917650 
31917660 
31917670 
31917680 
31917690 



04 TF- 
EC NC. 



ISJDMf 7 
420^17 



omrifc? 

420374 



OlJIJt. AQ 
S71'^l 3 



01 Srpftq 
•S 71067 



0IJUN7O 
571097 



PRDG TO 


0319-0 


DATE 


15JUN67 


010CT67 


01JUL69 


riSEP69 


01JUN70 


PAGE 


13 


EC NO. 


420317 


420374 


571013 


571062 


571097 



PROG 10 
PAGF 



0319-0 
13A 
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0CA3 3521 
0CA4 5E52 
0CA5 5256 
0CA6 FFFF 



0CA7 





1E26 


OCAS 





3E62 


0CA9 





2iqA 


OCAA 





365E 


OCAB 





361E 


OCAC 





9E36 


OCAD 





3221 


OCAE 





D662 


OCAF 





9E76 


0C80 





21FC 


OCBl 





D4D6 


0CB2 





FFFF 



0CB3 





6236 


0CB4 





9A9E 


0CB5 





5262 


0CB6 





3621 


0CB7 





9AA6 


0CB8 





9A9E 


0CB9 





3672 


OCBA 





219E 


OCBB 





5221 


OCBC 





7652 


OCBD 





6272 


OCBE 





3E5E 


OCB* 





FFFF 



OCCO 1 6C00 0987 
0CC2 1 OCOO 0998 
0CC4 1 4C00 09AF 



0CC6 0015 
0CO5 0008 
OCOD FFFF 



DC 
DC 

DC 

nc 

♦ ALPHA 

* 



/3621 
/5E52 
/5256 
/FFFF 



E 

LO 

OP 

TERMINATER 



MESSAGE FOR SELECT CHAR. 
********************************* 



ADR7 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 

nc 



/1E26 
/3E62 
/219A 
/365E 
/361E 
/9E36 
/3221 
/0662 
/9E76 
/21FC 
/D406 
/FFFF 



CH 
AR 

S 
EL 
EC 
IE 
D 

*R 
TN 

1 
7* 
TERMINATER 



* 

* 

NMSG OC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
OC 
OC 
DC 
DC 
OC 



RESTORE MESSAGE 



CODE 0000 

OCDF 1 C400 0711 

OCFl 1890 

0CE2 1010 

nrE3 1089 

0CE4 1007 

0CF5 0058 
0CF6 



0CF7 
OCFR 



1010 
1086 
lOOA 



LOPRT STX L 

XIO L 

BSC L 

* 

* MONITO 
************ 
* 
NSTRT TYPE 

TYPE 

OC 
* 

************ 
* 
« COMPAR 

* TSIGGE 
************ 

* 

TRGAN OC 

LD L 

SRT 

SLA 

SLT 

SLA 

STO 

SLA 

SLT 

SLA 



/6236 RE 

/9A9E ST 

/5262 OR 

/3621 E 

/9AA6 SY 

/9A9E ST 

/3672 EM 

/219E T 

/5221 O 

/7652 NO 

/6272 RM 

/3E5E AL 

/FFFF TERMINATER 

LOOPE TURN ON LOOP ON ERR 

BZOFF EXECUTE ALARM OFF 

0FF2 GO TO HOUSE/KEEP RTN 



****♦***«♦»***♦♦♦***************** 

R RELOAD MESSAGE 
**«****♦*♦*♦♦*♦*♦♦***♦******«***** 

.DO NOT USE MNTR RLD IF DEVICE. 

.USES INT LEV ONE. 

/FFFF 

********************************* 

OIAG TRIGGER ANALYSIS 
ES *WAS* TRIGGERS WITH S/3 
RS AND ANALIZES ANY ERROR 
********************************* 



*-* 

OIAXX 

16 

16 

9 

7 

OIAXl 

16 

6 

10 



SAVED RETURN ADORESS 
LD COMBINDFD DIAGS 



STORE OIAG 1 HAS 



31917700 

31917710 

31917720 

31917730 

31917740 

31917750 

31917760 

31917770 

31917780 

31917790 

31917800 

31917810 

31917820 

31917830 

31917840 

31917850 

31917860 

31917870 

31917880 

31917890 

31917900 

31917910 

31917920 

31917930 

31917940 

31917950 

31917960 

31917970 

31917980 

31917990 

31918000 

31918010 

31918020 

31918030 

31918040 

31918050 

31918060 

31918070 

31918080 

31918090 

31918100 

31918110 

31918120 

31918130 

31918140 

31918150 

31918160 

31918170 

31918180 

31918190 

31918200 

31918210 

31918220 

31918230 

31918240 

31918250 

31918260 

31918270 

31918280 

31918290 

31918300 

31918310 

31918320 

31918330 

31918340 

31918350 

31918360 

31918370 



0CE9 
OCEA 
OCEC 
OCED 
OCEE 
OCEF 
OCFO 
OCFl 
0CF2 
0CF3 
0CF4 
0CF5 
0CF6 
0CF7 
0CF8 

0CF9 

OCFB 

OCFC 

OCFE 

ODOO 

0002 

0004 

0006 

0008 

OOOA 

ODOB 

0000 

00 OE 

ODOF 

0010 

0012 

0D13 

0D15 

0017 

0018 

ODIA 

OOIB 

ODID 

OOIE 

ODIF 

0D21 

0022 

0D23 

0024 



0055 

1 C400 0B7F 
1890 
1010 
1089 
1007 
D04F 
1010 
1086 
lOOA 
D04C 
C04A 

4820 
7020 
704B 



1 OCOO 

6307 

1 6F00 
1 4400 

6700 

1 6F00 
1 6700 
1 6F00 
1 C400 

0030 

1 C400 
D02E 
C02F 

D02A 

1 C400 
0026 

C400 
E400 
0020 
C400 
DOIC 
4480 
0D32 
OCCO 
OCOO 
6300 
6B1F 
6B1F 



0992 

0C2A 
0BE7 
007F 
0034 
0C45 
0035 
0042 

0043 



0602 

06D4 
0E20 

06EB 

0162 

0998 



701F 



0025 1 C400 0D3E 

QD27 1 E400 0040 

0D29 . 1 D400 0043 

0D2B 1 C400 0040 

0020 1 F400 OD43 

0D2F 1 0400 004? 
0D31 70C7 



* 
WOl 



0032 




0000 


0032 





0000 


0D33 





0000 


0034 





0000 


0035 





0000 


0036 





0000 


0037 





0000 


0D38 





0000 


0039 





0000 


0D3A 





0000 



* 
CKIT2 



STO 

LD 

SRT 

SLA 

SLT 

SLA 

STO 

SLA 

SLT 

SLA 

STO 

LD 

BSC 

MDX 

HOX 

XIP 

LOX 

STX 

BSI 

LOX 

STX 

LDX 

STX 

LO 

STO 

LD 

STO 

LD 

STO 

LO 

STO 

LD 

AND 

STO 

LO 

STO 

BSI 

OC 

DC 

XIO 

LOX 

STX 

STX 

MDX 

LD 

AND 

STO 

LD 

EOR 

STO 

MDX 



01 AX2 
L TRGWO 
16 
16 
9 
7 

TRWDl 
16 
6 
10 

TRWD2 
TRMOl 
Z 

CKIT2 
HDICK 

L BZON 

3 7 
L3 MSGNO 
L MSGIO 
L3 /007F 
L3 TABLE&2 
L3 A0R2 
L3 TABLEC3 
L TGMOl 

TABLE€,9 
L TGWD2 

TABLE&IO 
DIAXl 
TABLEES 
L DUAL 

TABLE67 
L D12AL 
L MASKl 

TABLEG6 
L CADSW 

TABLEE5 

I ERROR 

TABLE 

LOPRT 

L BZOFF 

3 

3 TGHDl 

3 TGW02 

WOICK 



OIAXl 
TRWDl 
TGW02 
TRWDl 
TGWD2 
TGWOl 
WDl 



STORE OIAG 2 HAS 
LOAD DIA ERROR BITS 



STORE OIAG WD 1 ERR 



STORE OIAG WO 2 ERR 

CHECK FOR ERR BIT ON 
INITIAL ERR BIT CHK 
GO CHK OIAG WO 2 

EXECUTE ALARM ON 

SET UP MESSAGE 10 7 
CHK WHICH MESSAGE 10 

SET UP MODIFIER 10 
LO ALPHA 2 ADOR 

LD ON/F ERROR BITS 

LO F/ON ERROR BITS 

LO OIAG WD 1 S/B 

LD DIAG WO 1 WAS 

LO OIAG HO 2 WAS 
MASK OUT CE BITS 

LOAD DSW HAS 

GO PRINT ERROR 
MESSAGE TABLE 
LOOP ADDRESS 
EXECUTE ALARM OFF 



GO CHK DIAG WO 2 

LD DIAG WD 1 WAS 
AND OIAG WO 1 ERR 
STORE DN/F ERR BITS 
LD OIAG WD 1 ERR 
EOR OIAG WO 1 ON/F 
STORE OIAG HO 1 F/ON 



********* 

* 

********* 

* 

BSS 

TABLE OC 
OC 
OC 
OC 
DC 
DC 
OC 
OC 
OC 



************************************ 

ERROR PRINT TABLE 
************************************ 





*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 



ERROR PRINT TABLE 



31918380 

31918390 

31918400 

31918410 

31918420 

31918430 

31918440 

31918450 

31918460 

31918470 

31918480 

31918490 

31918500 

31918510 

31918520 

31918530 

31918540 

31918550 

31918560 

31918570 

31918580 

31918590 

31918600 

31918610 

31918620 

31918630 

31918640 

31918650 

31918660 

31918670 

31918680 

31918690 

31918700 

31918710 

31918720 

31918730 

31918740 

31918750 

31918760 

31918770 

31918780 

31918790 

31918800 

31918810 

31918820 

31918830 

31918840 

31918850 

31918860 

31918870 

31918880 

31918890 

31918900 

31918910 

31918920 

31918930 

31918940 

31918950 

31918960 

31918970 

31918980 

31918990 

31919000 

31919010 

31919020 

31919030 

3191^040 

31919050 



DATE 

EC NO. 



15JUN67 
A70317 



010CT67 



OlJUl 6^ 

S 7 1 C 1 3 



ri SEP69 
57106? 



01JUN70 
571097 



PROG 10 


0319-0 


DATF 


15JUN67 


OlOCTftT 


01JUL69 


01SEP69 


01JUN70 


PAGE 


14 


EC NO. 


A2C317 


420374 


571013 


571062 


571097 



PROG 10 
PAGE 



0319-0 
14A 



IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA WRAP-AROUND TEST STR/SSC 



PART NO. 
PAGE 



2243568 
15 



IBM MAINTENANCF DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA WRAP-AROUND TEST STR/6SC 



PART NO, 2243568 
PAGE ISA 



003fi GOOD 
0D3C 0000 
0D3D 0000 



DC 
OC 
OC 



*-* 
*-* 

♦ -* 



* 01 AG TRIGGER STORAGE 



0D3E 





0000 




OIAXl 


DC 




*-♦ 


DIAG MD 1 WAS 


0D3F 





0000 




OIAX? 


OC 




♦-* 


DIAG HO 2 WAS 


0D4O 





0000 




TRWDl 


OC 




*-* 


DIAG 1 ERROR BITS 


0D41 





0000 




TRWD? 


OC 




*-* 


DIAG 2 ERROR BITS 


0042 





0000 




TGWDl 


OC 




*-* 


F/ON ERROR WORD 


0043 





0000 




TGWn2 


OC 




♦-* 


ON/F ERROR WORD 










;4c«4:«4r*4:«4:4<4:4<4:4c«4(*4c;tc«4<«**«4<**4<4c«4l«:«:A^itc4::(c*4c4:*4<* 


0D44 





COFC 




WOICK 


LO 




TRW02 


LO DIAG WD 2 ERR 


0045 





1890 






SRT 




16 




0046 





1010 






SLA 




16 




0047 





1087 






SLT 




7 




0D48 





4820 






BSC 




Z 


CHECK FOR ERR BIT ON 


0D49 





7002 






MOX 




W02 


MAKE ANALYSIS 


0D4A 


1 


4C80 


OCOE 


* 
H02 


BSC 


I 


TRGAN 


EXIT TO RETURN ADDR. 


0D4C 


1 


C400 


0n3F 


LO 


L 


0IAX2 


LO DIAG WO 2 WAS 


0D4E 


1 


E400 


0041 




AND 


L 


TRMD2 


AND DIAG WD 2 ERR 


0050 


1 


0400 


0043 




STO 


L 


TGH02 


STORE ON/F ERR 


0052 


1 


C400 


004 1 




LO 


L 


TRM02 


LOAD DIAG WD 2 ERR 


0D54 


1 


F400 


0043 




EOR 


L 


TGWD2 


EOR ON/F ERR BITS 


0056 


1 


D400 


0042 




STO 


L 


TGHDl 


STORE F/ON ERR 


0058 


1 


OCOO 


0992 




XIO 


L 


BZON 


EXECUTE ALARM ON 


005 A 





6309 






LDX 


3 


9 




0058 


1 


6F00 


0C2A 




STX 


L3 


MSGNO 


SET UP MESSAGE ID 9 


0D5D 


1 


4400 


0BF7 




BSI 


L 


MSGID 


CHK WHICH MESSAGE ID 


0D5F 





6700 


007F 




LDX 


L3 


/007F 




0061 


1 


6F00 


0034 




STX 


L3 


TABLE&2 


SET UP MODIFIER ID 


0D63 


1 


6700 


0C5F 




LDX 


L3 


A0R3 


LO ALPHA 3 ADDR 


0065- 


1 


6F00 


0035 




STX 


L3 


TABLEe3 




0067 


1 


C400 


0042 




LO 


L 


TGWDl 


LD ON/F ERROR BITS 


0D69 





0001 






STO 




TABLEe9 




006A 


1 


C400 


004? 




LO 


L 


TGW02 


LD F/ON ERROR BITS 


0D6C 





DOCF 






STO 




TABLEEIO 




0D6D 





CODl 






LO 




DIAX2 


LD DIAG WD 2 S/B 


0D6E 





DOCB 






STO 




TABLE£8 




0D6F 


1 


C400 


0604 




LO 


L 


0I2AL 


LD DIAG WO 2 WAS 


0071 


1 


E400 


0F20 




AND 


L 


MA SKI 


MASK OUT CE BITS 


0073 





DOCS 






STO 




TABLE67 




0074 


1 


C400 


0602 




LO 


L 


DUAL 


LD DIAG WD 1 WAS 


0076 





DOCl 






STO 




TA8LE66 




0077 


I 


C400 


06E8 




LO 


L 


CADSW 


LOAD DSW WAS 


0079 





DOBD 






STO 




TABLEK5 




0D7A 





4480 


016? 




BSI 


I 


ERROR 


GO PRINT ERROR 


0n7C 


1 


0032 






DC 




TABLE 


MESSAGE TABLE 


0070 


1 


OCCO 






OC 




LOPRT 


LOOP ADDRESS 


0D7E 


1 


OCOO 


0<^98 




XIO 


L 


BZOFF 


FXECUTE ALARM OFF 


0080 





6300 






LOX 


3 







0081 





6BC0 






STX 


3 


TGWDl 




0082 





6BC0 






STX 


3 


TGW02 




0083 


1 


4C80 


OCOF 




BSC 


I 


TRGAN 


EXIT TO RETURN AOOR. 



008^ 'lOOO 


I NT AN OC 


*-* 


00P6 6300 


LIX 


3 



^l):lt:l!:^*i,*:f*t*if***:»**'*'***************:if ********* 

* INTERRUPT ANALYSIS 

* COMPARES SHOULD/BE INTERRUPTS WITH 

* ACTUAL INTERRUPTS AND ANALIZES ANY FRRS 

SAVED RETURN AOD. 



31919060 
31919070 
31919080 
31919090 
31919100 
31919110 
31919120 
31919130 
31919140 
31919150 
31919160 
31919170 
31919180 
31919190 
31919200 
31919210 
31919220 
31919230 
31919240 
31919250 
31919260 
31919270 
31919280 
31919290 
31919300 
31919310 
31919320 
31919330 
31919340 
31919350 
31919360 
31919370 
31919380 
31919390 
31919400 
31919410 
31919420 
31919430 
31919440 
31919450 
31919460 
31919470 
31919480 
31919490 
31919500 
31919510 
31919520 
31919530 
31919540 
31919550 
31919560 
31919570 
31919580 
31919590 
31919600 
31919610 
31919620 
31919630 
31919640 
31919650 
31919660 
31919670 
31919680 
31919690 
31919700 
31919710 
31919720 
31919730 



0087 




6F00 


003 A 




STX 


L3 


TABLEG8 


RESET INTRPT FRR LOC 


31919740 


0D89 




6F00 


003B 




STX 


L3 


TABLEG9 


RESET INTRPT ERR LOC 


31919750 


0D8B 




C400 


06E8 




LD 




CADSW 


LD DSW WAS 


31919760 


003 D 




E400 


ODED 




AND 




INTMK 


MASK INTRPT BITS 


31919770 


0D8F 




0400 


ODEB 




STO 




INWAS 


STORE INT BIT WAS 


31919780 


0D91 




C400 


0710 




LD 




DSWXX 


LOAD DSW S/B 


31919790 


0D93 




E400 


OOED 




AND 




INTMK 


MASK INTRPT BITS 


31919800 


0095 




DAOO 


ODEC 




STO 




INSDB 


STORE INT BIT S/B 


31919810 


0097 




F400 


ODEB 




EOR 




INWAS 


CHECK FOR ERROR 


31919820 


0D99 





4820 






BSC 




Z 




31919830 


0D9A 





7001 






MDX 




INERR 


GO TO INT ERR ANAL. 


31919840 


0D9B 





703E 




* 


MOX 




CKINT 


CK FOR NO INTERRUPT 


31919850 
31919860 


009C 


1 


0400 


ODEA 


INFRR 


STO 


L 


ERINT 


SAVE INT ERR BITS 


31919870 


0D9E 


1 


C400 


ODEB 




LD 


L 


INWAS 


LO INTRPT DSW WAS 


31919880 


ODAO 


1 


E400 


ODEA 




AND 


L 


ERINT 


AND INT ERROR BITS 


31919890 


0DA2 


1 


0400 


0D3A 




STO 


L 


TABLEEB 


LD INT ERR ON/F BITS 


31919900 


00A4 


1 


C400 


OOFA 




LO 


L 


ERINT 


LD INT ERROR BITS 


31919910 


0OA6 


1 


F400 


003A 




EOR 


L 


TABLE68 


EPR INT ON/F ERROR 


31919920 


0DA8 


1 


D400 


0038 




STO 


L 


TABLEE9 


STORE INT F/ON ERROR 


31919930 


ODAA 





7000 






MDX 




CKERR 




31919940 


00 A B 


1 


0400 


0D3A 


CKERR 


LD 


L 


TABLE£,8 




31919950 


ODAD 





4820 






BSC 




Z 


CHK IF IT IS 


31919960 


ODAE 





7005 






MOX 




INTER 


ERR BITS ARE LOADED 


31919970 


ODAF 


1 


C400 


0D3B 




LD 


L 


TABLE&9 




31919980 


ODBl 





4820 






BSC 




Z 


CHK IF IT IS 


31919990 


0062 





7001 






MDX 




INTER 




31920000 


0DB3 





7026 






MDX 




CKINT 


NO ERR BITS LOADED 


31920010 


0DB4 


1 


OCOO 


0992 


INTER 


XIO 


L 


BZON 


EXECUTE ALARM ON 


31920020 


0OB6 





6300 






LDX 


3 







31920030 


00B7 


1 


6F00 


0C2A 




STX 


L3 


MSGNO 




31920040 


0DB9 


1 


6C00 


0C29 




STX 


L 


INTSW 


TURN ON INT MSG SW 


31920050 


ODBB 


1 


4400 


0BE7 




BSI 


L 


MSGID 


CHK WHICH MSG ID 


31920060 


ODBD 





635F 






LOX 


3 


/005F 




31920070 


ODBF 


1 


6F00 


0D34 




STX 


L3 


TABLE&2 


SET UP MODIFIER ID 


31920080 


OOCO 


1 


6700 


0C79 




LOX 


L3 


A0R4 


LOAD ALPHA 4 ADDRESS 


31920090 


00C2 


1 


6F00 


0D3 5 




STX 


L3 


TABLEE3 


SET UP ALPHA MSG 


31920100 


0DC4 


1 


C400 


0604 




LD 


L 


DI2AL 


LD DIAG WD 2 HAS 


31920110 


0DC6 


1 


E400 


0E20 




AND 


L 


MASKl 


MASK OUT CE BITS 


31920120 


0OC8 


1 


0400 


0038 




STO 


L 


TABLES6 




31920130 


ODCA 


1 


C400 


0602 




LO 


L 


DUAL 


LD DIAG WD 1 WAS 


31920140 


OOCC 


1 


0400 


0D37 




STO 


L 


TABLEE5 




31920150 


ODCE 


1 


C400 


06E8 




LD 


L 


CADSW 


LOAD DSW WAS 


31920160 


ODOO 


1 


D400 


0039 




STO 


L 


TABLE67 




31920170 


0D02 





4480 


0162 




BSI 


I 


ERROR 


GO PRINT ERROR 


31920180 


0DD4 


1 


0032 






OC 




TABLE 


MESSAGE TABLE 


31920190 


ODDS 


1 


OCCO 






OC 




LOPRT 


LOOP ADDRESS 


31920200 


0006 


1 


OCOO 


0998 




XIO 


L 


BZOFF 


EXECUTE ALARM OFF 


31920210 


0DD8 


1 


4C80 


0085 


* 


BSC 


I 


INTAN 


EXIT TO RETURN 


31920220 
31920230 


ODDA 


1 


C400 


06E9 


CKINT 


LD 


L 


LOPSW 


CHK IF INTERRUPT S/B 


31920240 


ODOC 





4820 






BSC 




Z 




31920250 


ODDD 





7002 






MOX 




INTOK 




31920260 


ODDE 


1 


4C80 


0085 


* 


BSC 


I 


INTAN 


YES, EXIT TO RETURN 


31920270 
31920280 


OOFO 


1 


C400 


06EA 


INTOK 


LD 


L 


PRTPN 


CHK IF INTERRUPT WAS 


31920290 


0DE2 





4820 






BSC 




Z 




31920300 


0DE3 





70FA 






MOX 




CKINTE4 


YES, EXIT TO RETURN 


31920310 


0DE4 





630B 






LOX 


3 


11 


NO, SET MSG ID fl 


31920320 


OPES 


1 


6F0O 


0032 




STX 


L3 


TABLE 




31920330 


oiJet 


1 


OCOO 


0992 




XIO 


L 


BZON 


EXECUTE ALARM ON 


31920340 


0DE9 





7003 




* 


MDX 




INTERe9 


GO SET UP ERR TABLE 


31920350 
31920360 


ODEA 





0000 




ERINT 


DC 




*-* 


INTERRUPT ERR BITS 


31920370 


ODEB 





0000 




INWAS 


OC 




*-* 


DSW INT BITS WAS 


31920380 


ODEC 





0000 




INSOB 


DC 




*-* 


DSW INT BITS S/B 


31920390 


OOED 





DBOO 




INTMK 
* 


DC 




/D800 




31920400 
31920410 



OATF 
EC NO. 



15JUN67 
420317 



010CT67 
420374 



CI JU169 
■^ 7 101 3 



01SEP69 
■571062 



01JUN70 
571097 
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DATE 
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010CT67 
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15 


EC ND. 


420317 


420374 


'571013 
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ODEE 





0000 




DATCK DC 




*-* 




ODEF 


1 


C400 


06E4 


LO 


L 


RCVEO 


LOAD BUFFER DATA 


OOFl 


1 


ECOO 


06EF 


OP 


L 


INBUF 


SAVE BUFFER DATA 


00F3 


I 


0400 


06E4 


STO 


L 


RCVEO 




nnF5 


1 


F400 


06EC 


EOR 


L 


ROC PR 


CK FOR DATA ERROR 


0DF7 





4820 




BSC 




Z 




0DF8 





7002 




MDX 




OATFR 


GO TO DATA FRR RTI 


00F9 


1 


4C80 


ODFF 


BSC 

* 

DATER LD 


I 


DATCK 


EXIT TO RETURN 


ODFB 


1 


C400 


06D1 


L 


OIAWDEl 


SET UP C.E. BIT CI 


OnFD 





1890 




SRT 




16 




ODFF 





1010 




SLA 




16 




OOFF 





1083 




SLT 




3 




OEOO 





1007 




SLA 




7 




OEOl 




0400 


0039 


STO 


L 


TABLE67 




0.E03 




OCOO 


0992 


XIO 


L 


8Z0N 


EXECUTE ALARM ON 


0F05 




630C 




LDX 


3 


12 


SET UP MESSAGE ID 


0E06 




6F00 


003? 


STK 


L3 


TABLE 




0E08 




6307 




LOX 


3 


/0007 




OE09 




6F00 


0034 


STX 


L3 


TABLF62 




OEOB 




6 700 


0C93 


LOX 


L3 


ADR5 




OEOD 




6F0O 


0035 


STX 


L3 


TA8LE&3 




OEOF 




C400 


06E4 


LO 


L 


RCVEO 


LOAD DATA WAS 


OEU 




0400 


0037 


STO 


L 


TABLEGS 




0E13 




C400 


06EC 


LD 


L 


ROC PR 


LOAD DATA S/B 


0E15 




0400 


0038 


STO 


L 
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ERROR 
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31920590 
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CHECK 
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CKINT 

CKIT2 

CKIT3 
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CLLOG 
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DATCK 
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DELY3 

DIAG 

DIAMD 

OIASW 
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DIAWl 

DIAW2 

DIAXX 
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DUAL 

0I2AL 
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OSWAL 

DSWAN 

DSWRD 

DSWSE 

DSWSN 

DSWWl 

0SWW2 

DSWXX 

OSWOl 

DILOG 

FNO 

ENDOP 

FND2 

FNMSG 

PRINT 
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0922 


08C1 








LOGIC 
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08B0 
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08CE 
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080B 
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0FF6 
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PIO 
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PRTPN 
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ROCNT 

ROCPR 



RDIAl 

RDIA2 

RDWRT 
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RID 

RIDCK 
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RTIA 
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RTll 
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RT19 
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SCOPl 

SC0P2 

SFLCH 

SEND 

SET 

SET6 

SETT 

SEVEN 

SIREG 

SIX 

SNDSW 

SPACE 

START 

STOCT 

STOPS 

STORl 

ST0R2 

STRMD 

STRT 

STWD 

SVKB 

SVN 

SVWTS 

SWDIA 

SWO 

SWl 

SW2 

SW3 

SYALT 

SYCMO 

S2PNT 
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S3WAS 
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TERM 

TERMl 

TFRM2 
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TERM4 

TGWDl 
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TRGAN 

TRGWD 
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WRAP 


OBOE 


07AD 


084E 


WRCAT 


06D6 


0&5F 


0661 0671 


WRCNT 


06F4 
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1. PURPOSE 

THE PURPOSE OF THE SCA TRANSMIT/RECEIVE STR PROGRAM IS TO PROVIDE PROGRAM 
ABILITY TO OPERATE THE 1130 SCA IN AN OVER-THE-LINE TEST WITH ANOTHER 
STR TERMINAL. AN OPTION IS ALSO PROVIDED TO HOLD THE SCA IN A CONSTANT 
TRANSMIT OR RECEIVE MODE FOR SCOPING PURPOSES. 



2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

A. THIS PROGRAM IS LOADED BY THE 1130 RELOCATING DIAGNOSTIC LOADER. 
8. THE REMOTE TERMINAL MUST HAVE THE CAPABILITY OF TRANSMITTING 

AND/OR RECEIVING DATA RECORDS USING NORMAL STR LINE CONTROL 

PROCEDURES. 
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2.2 EQUIPMENT PREREQUISITES 

A. SET STR/BSC SWITCH TO STR POSITION. 

B. SET BAUD SELECTOR SWITCH TO HATCH REMOTE TERMINAL. 

C. SFT DATA SET CONNECTOR PLUG SWITCH TO OPER. 

D. CE SWITCH MUST BE OFF. 

E. SCA MUST BE CONNECTED THROUGH THE PROPER MODEM EQUIPMENT TO 
ANOTHER STR TERMINAL. DATA SETS USED MUST BE COMPATIBLE WITH 
BAUD RATE AND CUSTOMER OPTIONS SELECTED. 

F. REFER TO LOGIC PAGE A0003 FOR CUSTOMER OPTION JUMPERING. 
OPTION FUNCTIONS MUST MATCH REMOTE TERMINAL. 

NOTE. ..DIAL UP CONNECT IONS. . .AUTOMATIC LINE DISCONNECT OCCURS 
WHEN 1130 RESET KEY IS PRESSED OR WHEN SCA PROGRAM RESET IS 
EXECUTED. THIS PROGRAM WILL EXECUTE A PROGRAM RESET WHEN 
EITHER THE HALT OR MANUAL TERMINATION OPTION IS SELECTED. IF 
IT IS DESIRED THAT LINE DISCONNECT BE PREVENTED, REMOVE THE 
PROGRAM CONTROL OF READY JUMPER SPECIFIED ON LOGIC PAGE A0003. 



3. OPERATING PROCEDURE 

3.1 PROGRAM LOADING 

TO LOAD FROM CARDS... 

A. PLACE THE RELOCATING LOADER, THE SCA TRANSMIT/RECEIVE STR 
PROGRAM, AND AT LEAST ONE BLANK CARD IN THE READER. 

B. MAKE READER READY. 

C. PRESS THE 1131 RESET AND PROGRAM LOAD KEYS. 

D. IF PROGRAM FAILS TO LOAD OR STOPS AT A WAIT BELOW ADDRESS /Q160 
REFER TO THE RELOCATING LOADER DOCUMENTATION. 

TO LOAD FROM PAPER TAPE... 

A- PLACE THE RELOCATING LOADER IN THE READER. 

B. MAKE READER READY. 

C. PRESS THE 1131 RESET AND PROGRAM LOAD KEYS. 

D. AT LOADER WAIT 30F6 (B REG) PLACE THE SCA PROGRAM IN THE READER. 

E. MAKE READER READY. 

F. MANUALLY SET lAR TO /0O78. 

G. SET MODE SWITCH TO RUN AND PRESS PROGRAM START. 

H. IF PROGRAM FAILS TO LOAD OR STOPS AT A WAIT BELOW ADDRESS /0160 
REFER TO THE RELOCATING LOADER DOCUMENTATION. 



3.2 



PROGRAM OPERATION 

A. AFTER LOADING MESSAGE Al WILL BE PRINTED AND THE PROGRAM WILL 
LOOP WAITING FOR TEST ROUTINE AND OPTION SELECTIONS. 

B. SELECT THE DESIRED TEST USING FUNCTION 1 (REFER 3.2.2J. 

C. IF DESIRED, SELECT XMIT RECORD COUNT OR XMIT DATA BY USING 
FUNCTION 2, FUNCTION 3, OR MANUAL ENTRY (REFER 3.2.3 THRU 3.2.5). 

0. SELECT THE START TEST OPTION tFUNCTION SWT 8) AND ANY OTHER 

DESIRED FUNCTION OPTIONS (REFER 3.2.1). 
E. THE SELECTED TEST WILL BEGIN EXECUTION. 
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3.2.1 



PROGRAM CONTROL - FUNCTION 

TO SELECT PROGRAM CONTROL OPTIONS... 

A. SET SWITCHES AND 1 TO 00 (FUNCTION 01 

B. SET SWITCHES 8 THRU 15 AS DESIRED USING TABLE 

C. PRESS INTERRUPT REQUEST KEY. 

TABLE 



TABLE 1 



RTN 



DESCRIPTION (SEE SECTION 5.2 FOR DETAILED DESCRIPTIONS) 



SHT 



10 

11 

12 
13 

1^ 
15 



FUNCTION 



START TEST - CAUSES THE SELECTED TEST ROUTINE TO BEGIN 
EXECUTION. HAS NO EFFECT IF SELECTED WHILE A 
TEST ROUTINE IS IN EXECUTION. 

TRACE ENTIRE TEST - CAUSES ALL TRACE INFORMATION (REFER 4.4) 
EXCEPT GOOD TEXT XMITTED AND RECEIVED TO BE SAVED 
FOR PRINTING. NORMALLY ONLY THAT INFORMATION 
WHICH IS RELATED TO AN ERROR IS SAVED. 

TRACE TEXT - CAUSES GOOD TEXT XMITTED AND RECEIVED TO BE 
INCLUDED IN THE INFORMATION SAVED FOR THE TRACE 
PRINTOUT. {REFER 4.4) 

LOOP TEST - CAUSES THE SELECTED TEST ROUTINE TO AUTOMATICALLY 
RESTART AFTER THE END-OF-TEST PRINTOUTS. 

BYPASS TRACE PRINTOUT - BYPASSES THE ENTIRE TRACE PRINTOUT. 

BYPASS E AND I PRINTOUTS - BYPASSES ALL ERROR (E) AND SCA 

INFORMATION (I) PRINTOUTS- 
MANUAL TEST TERMINATE - CAUSES TEST ROUTINES 0, 1, AND 2 TO 

IMMEDIATELY RESET THE SCA AND BRANCH TO PRINT THE 

END OF TEST MESSAGES. HAS NO EFFECT ON TEST 

ROUTINES 3, 4, OR 5. 

HALT - CAUSES AN IMMEDIATE SCA RESET AND A RETURN TO THE 
STARTING LOOP TO WAIT FOR OPTION SELECTIONS. 



3.2.2 TEST ROUTINE SELECTION - FUNCTION 1 
TO SELECT A TEST ROUTINE... 

A. SET SWITCHES AND 1 TO 01 (FUNCTION 1). 

B. SET DESIRED ROUTINE NUMBER IN SWITCHES 12 THRU 15 USING TABLE 1. 

C. PRESS INTERRUPT REQUEST KEY. 

♦♦NOTE»*IF NO ROUTINE IS SELECTED OR AN INVALID ROUTINE NUMBER IS 
ENTERED,. TEST ROUTINE WILL BE SELECTED. 



RECEIVE NORMAL - THIS ROUTINE PROVIDES THE ABILITY TO RECEIVE 
TEST RECORDS FROM THE REMOTE TERMINAL USING NORMAL 
STR LINE CONTROL PROCEDURES. RECORDS MAY BE UP TO 
130 CHARACTERS IN LENGTH AND MAY CONTAIN ILRC 
SEQUENCES. 

TRANSMIT NORMAL - THIS ROUTINE TRANSMITS THE TEST RECORD 

CONTAINED IN TABLE DATAl (REFER 3.2.5). THE RECORD 
IS TRANSMITTED THE NUMBER OF TIMES SPECIFIED BY THE 
RECORD COUNT SELECTION OPTION. NORMAL STR LINE 
CONTROL PROCEDURES ARE USED. THIS ROUTINE MAY BE 
USED TO TRANSMIT TO MOST STR DEVICES- 
TRANSMIT RIPPLE - THIS ROUTINE TRANSMITS 64 RECORDS OF 80 
CHARACTERS EACH. THE DATA TRANSMITTED IS THE 
SHIFTING PATTERN DESCRIBED IN SECTION 5.3. THIS 
ROUTINE MUST BE USED TO TRANSMIT TO SYSTEM 360 
MOD 20 DIAGNOSTIC PROGRAM MFT 182- 

♦**NOTE***THE FOLLOWING THREE TEST ROUTINES ARE INTENDED TO BE 
USED FOR SCOPING PURPOSES ONLY. THESE ROUTINES 00 
NOT USE NORMAL LINE CONTROL OR PRINT ANY ERROR 
MESSAGES. TERMINATION OF EACH OF THESE ROUTINES 
MUST BE VIA THE HALT OPTION OR A PROGRAM RESTART. 

RECEIVE CONTINUOUS - THIS ROUTINE LOADS THE IDLE CHARACTER INTO 
THE SYNC/ IDLE REGISTER, EXECUTES A START READ 
INSTRUCTION, AND LOOPS WAITING FOR INTERRUPTS. 
WHEN A READ RESPONSE OCCURS THE BUFFER IS READ. 
WHEN A TIMEOUT OCCURS AN END OPERATION AND ANOTHER 
START READ ARE EXECUTED. 

XMIT BUFFER CONTINUOUS - THIS ROUTINE LOADS THE IDLE CHARACTER 
INTO THE SYNC/IDLE REGISTER, EXECUTES A START WRITE 
COMMAND, AND LOOPS WAITING FOR INTERRUPTS. 
WHEN ANY INTERRUPT OCCURS, THE CHARACTER ENTERED 
VIA FUNCTION 3 IS LOADED INTO THE BUFFER FOR 
TRANSMISSION. THE FUNCTION 3 SELECTION HAY BE 
CHANGED AT ANY TIME. 

XMIT SYNC/IDLE CONTINUOUS - THIS ROUTINE LOADS THE CHARACTER 

ENTERED VIA THE FUNCTION 3 OPTION INTO THE SYNC/IDLE 
REGISTER, EXECUTES A START WRITE COMMAND AND LOOPS 
WAITING FOR INTERRUPTS. WHEN ANY INTERRUPT OCCURS 
THE SYNC/IDLE REG IS AGAIN LOADED WITH THE FUNCTION 3 
CHARACTER. THE FUNCTION 3 ENTRY MAY BE CHANGED AT 
ANY TIME. 



3.2.3 RECORD COUNT SELECTION - FUNCTION 2 



TO SELECT THE NUMBER OF TEST MESSAGES TO BE TRANSMITTED BY TEST 
ROUTINE 1 (TRANSMIT NORMAL)... 

A. SET SWITCHES AND 1 TO 10 (FUNCTION 2) 

B. ENTER THE DESIRED NUMBER OF RECORDS IN SWITCHES 2 THRU 15. 

C. PRESS INTERRUPT REQUEST KEY. 

IF NO FUNCTION 2 SELECTION IS ENTERED, 5 RECORDS WILL BE TRANSMITTED 
BY TEST ROUTINE 1. 
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3.2.4 DATA SELECTION - FUNCTION 3 

TO ENTER THE CHARACTER TO BE CONTINUOUSLY TRANSMITTED BY TEST 
ROUTINES 4 AND 5... 

A. SET SWITCHES AND I TO 11 (FUNCTION 3) 

e. ENTER THE DESIRED CHARACTER IN SWITCHES 8 THRU 15. 

C. PRESS THE INTERRUPT REQUEST KEY. 

IF NO FUNCTION 3 SELECTION IS ENTERED, ROUTINES 4 AND 5 WILL 
TRANSMIT THE IDLE t/39) CHARACTER. 



3.4 PROGRAM TERMINATION 

UNLESS THE LOOP OPTION IS SELECTED TEST ROUTINE TERMINATION WILL 
OCCUR AS FOLLOWS... 

A. ROUTINE WILL TERMINATE WHEN EOT IS SUCCESSFULLY RECEIVED FROM 
THE REMOTE TERMINAL. 

B. ROUTINES 1 AND 2 WILL TERMINATE AFTER SUCCESSFULLY TRANSMITTING 
THE REQUIRED NUMBER OF RECORDS AND EOT IS SUCCESSFULLY 
TRANSMITTED AND RECEIVED. 

C. ROUTINES 3, 4, AND 5 WILL TERMINATE ONLY WHEN THE HALT OPTION 
IS SELECTED OR A PROGRAM RESTART IS EXECUTED. 



3.2.5 MANUAL DATA ENTRY 

TEST ROUTINE 1 (TRANSMIT NORMAL) TRANSMITS THE TEST RECORD CONTAINED 
IN TABLE DATAl. THIS TABLE NORMALLY CONTAINS A RECORD 80 CHARACTERS 
IN LENGTH. THE FIRST 70 CHARACTERS CONSIST OF THE "A* (HEX 71) 
CHARACTER. THE NEXT 9 CHARACTERS ARE THE NUMERICS 1 THRU 9. THE 
LAST CHARACTER IS A RECORD HARK. 

TABLE DATAl MAY BE MANUALLY CHANGED TO CAUSE TEST ROUTINE 1 TO 
TRANSMIT ANY DESIRED TEXT. TO CHANGE TABLE DATAl.. - 

A. MANUALLY LOAD lAR TO /0160. LEAVE MODE SWITCH IN LOAD POSITION. 

B. ENTER THE DESIRED NUMBER OF CHARACTERS TO BE TRANSMITTED IN 
SWITCHES 8 THRU 15. MAXIMUM RECORD LENGTH IS 128 CHARACTERS. 

C. PRESS PROGRAM START. 

0. ENTER TEXT CHARACTERS TO BE TRANSMITTED IN SWITCHES THRU 15 
AND PRESS START AFTER EACH ENTRY. ENTER TWO 8 BIT CHARACTERS 
AT A TIME. THE TEXT CHARACTERS ENTERED MUST BE VALID 4 OF 8 
CODE AND MUST NOT CONTAIN ANY OF THE SIX STR CONTROL CHARACTERS. 
RECORD HARKS AND GROUP MARKS MAY BE ENTERED ANYWHERE IN THE 
TABLE. WHEN TRANSMITTING THE PROGRAM WILL PROVIDE ALL 
NECCESSARY CONTROL CHARACTERS AND HILL INSERT AN INTERMEDIATE 
LRC CHARACTER FOLLOWING EACH RECORD HARK OR GROUP MARK FOUND 
IN THE TABLE. 

E. AFTER THE LAST DATA ENTRY TURN MODE SWITCH TO RUN, PRESS RESET, 
AND PROGRAM START. 



3.5 RESTARTING PROGRAM 

THE PROGRAM MAY BE RESTARTED AT ANY TIME BY PRESSING IMMEDIATE STOP, 
RESET, AND PROGRAM START. RESTART WILL DESELECT ALL FUNCTION 
OPTIONS. OTHER OPTION SELECTIONS WILL REMAIN UNCHANGED. 



4. PRINTOUTS 

ALL PRINTOUTS BEGIN WITH TWO IDENTIFICATION CHARACTERS. THE FIRST 
CHARACTER IDENTIFIES THE PRINTOUT AS A PROGRAM STATUS PRINTOUT (A), AN SCA 
INFORMATION PRINTOUT (I), AN ERROR PRINTOUT (E), OR A TRACE PRINTOUT (T). 
THE SECOND CHARACTER IDENTIFIES THE SPECIFIC PRINTOUT. 

4.1 PROGRAM STATUS PRINTOUTS (A) 

THFSE PRINTOUTS ARE ALL INITIATED BY THE MAINLINE OF THE PROGRAM 
AND PROVIDE PROGRAM STATUS INFORMATION. 

Al SELECT TEST RTN AND START 

INDICATES THAT THE PROGRAM IS IDLING WAITING FOR ROUTINE AND OPTION ENTRIES 
AND SELECTION OF THE START TEST OPTION. 



3.3 PROGRAM HALTS 

THERE ARE NO NORMAL PROGRAM HALTS IN THIS PROGRAM. ALL WAITS 
ARE ERROR WAITS. 

WAITS OCCURING BELOW ADDRESS /0160 ARE IN THE LOADER. REFER TO 
RELOCATING LOADER DOCUMENTATION. 

THERE ARF THREE ERROR WAITS CONTAINED IN THIS PROGRAM. THE WAIT MAY 
BE IDENTIFIED BY REFERENCING THE B REGISTER. THE SCA IS RESET 
BEFORE THE PROGRAW HALTS IN AN ERROR WAIT. A PROGRAM RESTART IS 
NFCCESSARY TO EXIT FROM ANY ERROR WAIT. 



R REG 



3001 

3002 
3003 



ERROR WAIT DESCRIPTION 



SCA FAILED TO INTERRUPT - RUN SCA WRAP-AROUND TEST AND 
PROGRAM INSTRUCTIONS FUNCTION TEST (PIDS 0318 AND 0319), 

CONSOLE PRINTER FAILED TO INTERRUPT. 

AN INTERRUPT OCCURED ON A LEVEL NOT USED BY THIS 
PROGRAM, THIS MAY BE CAUSED BY USE OF THE PROGRAM 
STOP BUTTON. 



A2 SWS XXXX 

INDICATES THAT THE PROGRAM HAS ACCEPTED A SWITCH ENTRY. XXXX IS THE 
SWITCH SETTING. 



A3 START TEST RTN XX 

TEST ROUTINE XX HAS BEGUN EXECUTION. 



A4 END TEST 

RECORDS SENT (RCVDJ XXXX 

THIS MESSAGES IS PRINTED FOLLOWING EITHER NORMAL TERMINATION OR MANUAL 
TERMINATION OF TEST ROUTINES 0, 1, AND 2. XXXX IS THE TOTAL NUMBER HP 
TEST RECORDS THAT HAVE BEEN SUCCESSFULLY TRANSMITTED OR RECEIVED. 
THE RECORD COUNT IS PRINTED IN HEXADECIMAL. 

A5 HALT 

THE HALT OPTION HAS BEEN SELECTED. THE SCA WILL BE RESET AND THE PROGRAM 
WILL LOOP WAITING FOR OPTION SELECTION. 
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46 MANUAL TERM 

THE MANUAL TERMINATION OPTION HAS BEEN SELECTED. 
AND THE ENO-OF-TEST PRINTOUTS OUTPUT. 



THE SCA WILL BE RESET 



4.2 



SCA INFORMATION PRINTOUTS (I) 



THESE PRINTOUTS ARE ALL INITIATED BY THE SCA INTERRUPT SERVICE 
SUBROUTINE AND USUALLY PROVIDE INFORMATION CONCERNING NORMAL LINE 
CONDITIONS. THESE PRINTOUTS MAY INDICATE AN ERROR CONDITION AND 
SHOULD THEREFORE BE CONSIDERED ALONG WITH THE ERROR PRINTOUTS. 

11 DATA SET NOT RDY 

A 3 SECOND TIMEOUT OCCURED AFTER A START SYNC COMMAND WAS EXECUTED. THIS 
INDICATES THAT THE CLEAR- TO-SEND LINE FROM THE DATA SET DID NOT BECOME 
ACTIVE. THIS CONDITION OCCURED ON THE FIRST ATTEMPT TO TRANSMIT TO THE 
REMOTE TERMINAL. PROBABLE CAUSE IN A SWITCHED NETWORK IS LACK OF 
CONNECTION WITH THE REMOTE TERMINAL. ON A PERMANENT LINE CONNECTION THIS 
IS AN ERROR CONDITION. TRANSMISSION ATTEMPTS AND THIS PRINTOUT WILL BE 
REPEATED UNTIL WRITE RESPONSES BEGIN OCCURING. 

12 NO SYNC 

A RECEIVE TIMEOUT OCCURED WHILE ATTEMPTING TO RECEIVE FROM THE 
REMOTE TERMINAL. PROBABLE CAUSE IS THAT THE REMOTE TERMINAL IS NOT YET 
READY TO TRANSMIT I TEST NOT STARTED). ATTEMPTS TO BEGIN HANDSHAKING AND 
THIS PRINTOUT WILL BE REPEATED UNTIL READ RESPONSES BEGIN OCCURING. 

13 TEL RCVO 

THE TEL SEQUENCE WAS RECEIVED. THIS USUALLY INDICATES THAT THE REMOTE 
TERMINAL OPERATOR DESIRES TELEPHONE COMMUNICATIONS. 



14 TIMEOUT 

AN EXPECTED RECEIVE TIMEOUT OCCURED. 
FOLLOWING CONDITIONS... 

A. A RECORD BEING RECEIVED BEGAN WITH 
CASE IT IS PROBABLE THAT CHARACTER 
THE RECORD WILL BE TERMINATED BLY A 
PRINTOUT HILL BE PRECEEDED BY AN E3 

B. RECORDS ARE NORMALLY RECEIVED WITH 
SO THAT CHARACTER PHASE CAN BE ESTA 
RECORD. IF THE TRANSMITTER SENDS A 
CHARACTER PHASE WILL NOT BE ESTABLI 
SUCH TIMEOUTS NORMALLY OCCUR BEFORE 
REG IN PREPARATION FOR RECEIVING TH 
THEN NOT RECEIVED AN ERROR MESSAGE 

C. WHEN THE TRANSMITTING TERMINAL SEND 
EXPECTED THAT THE REMOTE TERMINAL W 
TRY BECAUSE OF THE CONDITION OESCRI 



RECEIVE TIMEOUTS ARE EXPECTED IN THE 



AN INVALID CONTROL SEQUENCE- IN THIS 
PHASE IS INCORRECTLY ESTABLISHED AND 

TIMEOUT. IN THIS CONDITION THIS 

OR E5 PRINTOUT. 
TL LOADED INTO THE SYNC/IDLE REGISTER 
BLISHED ON THE TL PRECEEDING THE 

CL SEQUENCE SUCH AS CL EOT, 
SHED AND A TIMEOUT WILL OCCUR. TWO 

IDLE IS LOADED INTO THE SYNC/IDLE 
E CL SEQUENCE. IF A CL SEQUENCE IS 
IS OUTPUT. 

S A CL SEQUENCE ( CL EOT) IT IS 
ILL NOT REPLY UNTIL AFTER THE THIRD 
BED IN B ABOVE- 



15 CONTENTION 

THE INQ SEQUENCE WAS RECEIVED IN RESPONSE TO INQ. THIS INDICATES THAT 
BOTH TERMINALS ARE ATTEMPTING TO TRANSMIT RECORDS. 
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4.3 ERROR PRINTOUTS (E) 

THE SCA INTERRUPT SERVICE SUBROUTINE PERFORMS ALL ERROR DETECTION 
AND INITIATES ALL ERROR PRINTOUTS. THE CONSOLE PRINTER IS 
OPERATED IN OVERLAP WITH THE SCA SO THAT ERROR RECOVERY ATTEMPTS 
MAY TAKE PLACE AT THE SAME TIME AN ERROR MESSAGE IS BEING PRINTED. 
SINCE THE SCA OPERATES AT A MUCH HIGHER INTERRUPT RATE THAN THE 
PRINTER, THIS MAY RESULT IN ERRORS OCCURING FASTER THAN THEY CAN 
BE PRINTED OUT. WHEN THIS OCCURS SOME OF THE ERROR PRINTOUTS WILL 
RE BYPASSED. THIS PROCEDURE DOES NOT ADVERSLV AFFECT THE 
DIAGNOSTIC CAPABILITY OF THE PROGRAM BECAUSE HIGH ERROR RATES CAN 
ONLY BE CAUSED BY REPETITIVE INVALID TEXT CHARACTERS. WHEN ERRORS 
OCCUR FASTER THAN CAN BE PRINTED, THE FIRST AND LAST ERRORS OF THE 
STRING WILL ALWAYS BE PRINTED. ALL ERRORS WILL BE FLAGGED IN THE 
TRACE PRINTOUT. 

**NOTE** ALL UNEXPECTED CONDITIONS ARE REPORTED BY ERROR PRINTOUTS 
INCLUDING SOFT (RECOVERABLE) ERRORS. CAREFULL ANALYSIS OF PRINTOUTS 
IS REQUIRED TO DETERMINE IF A HARDWARE FAILURE ACTUALLY EXISTS. A 
SMALL NUMBER OF RECOVERED ERRORS ARE GENERALLY TO BE EXPECTED IN 
A COMMUNICATIONS NETWORK BECAUSE OF SMALL AMOUNTS OF TRANSMISSION 
LINE NOISE. 

El DATA SET FAIL 

A 3 SECOND TIMEOUT OCCURED AFTER A START WRITE OR START SYNC COMMAND WAS 
EXECUTED. THIS INDICATES THAT THE CLEAR-TO-SEND LINE FROM THE DATA SET 
DID NOT BECOME ACTIVE. PROBABLE CAUSE IN A SWITCHED NETWORK IS LOSS OF 
CONNECTION WITH THE REMOTE TERMINAL. AT LEAST ONE WRITE RESPONSE HAD 
OCCURED NORMALLY EARLIER IN THE TEST. 

E2 LOST SYNC 

A RECEIVE TIMEOUT OCCURED WHILE ATTEMPTING TO ESTABLISH SYNCRONI ZATION 
WITH THE REMOTE TERMINAL. CHARACTER PHASE HAD BEEN ESTABLISHED EARLIER 
IN THE TEST BUT SYNCHRONIZATION WAS LOST BEFORE THE OPEN FUNCTION COULD 
BE COMPLETED. 

E3 INVALID LEADER 

THE FIRST CHARACTER OF A CONTROL SEQUENCE RECEIVED WAS NIETHER CL NOR TL. 
PROBABLE CAUSE IS INCORRECT ESTABLISHMENT OF CHARACTER PHASE. 

E4 EXP CL NOT RCVD 

A PREVIOUS RECEIVE TIMEOUT HAD OCCURED WHILE RECEIVING RECORDS SO THE 

PROGRAM WAS NOW EXPECTING TO RECEIVE A CL SFQUFNCE. A TL SEQUENCE WAS 

RECEIVED. THIS INDICATES THAT THE PREVIOUS TIMEOUT{S) WERE ERROR 
CONDITIONS. (SEE 14 DESCRIPTION) 

E5 INVALID CONT SEQ 

A CONTROL SEQUENCE RECEIVED WAS NOT AS EXPECTED. 

F6 ERR SEQ 

THE ERROR RECEIVED SEQUENCE WAS RECEIVED IN RESPONSE TO A RECORD OR INQ 
TRANSMITTED. THIS INDICATES THAT THE REMOTE TERMINAL DID NOT RECEIVE 
THE LAST RECORD CORRECTLY. 
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E7 WRONG ACK 

THE WRONG ALTERNATE ACKNOWLEDGEMENT WAS RECEIVED IN RESPONSE TO A RECORD 
TRANSMITTED. THIS INDICATES THAT THE REMOTE TERMINAL MISSED AN ENTIRE 
RECORD. 

E8 ERR TIMEOUT 

AN UNEXPECTED RECEIVE TIMEOUT OCCURED WHILE ATTEMPTING TO RECEIVE A RECORD 
OR CONTROL SEQUENCE. 

E9 INQ SEO 

THE INQUIRY SEQUENCE WAS RECEIVED IN RESPONSE TO THE LAST ACKNOWLEDGEMENT 
TRANSMITTED. THIS INDICATES THAT THE REMOTE TERMINAL FAILED TO RECEIVE 
THE ACKNOWLEDGEMENT. 

EA ILRC ERR 

AN INTERMEDIATE LRC CHARACTER RECEIVED WAS INCORRECT. 

EB LRC ERR 

A LRC CHARACTER RECEIVED WAS INCORRECT. 



IN NORMAL OPERATION ONLY THOSE SECTIONS OF A TEST IN WHICH AN 
ERROR OCCURED ARE STORED. WHEN AN ERROR OCCURS THE TRACE 
INFORMATION STARTING WITH THE LAST CALL ON THE INTERRUPT SERVICE 
SUBROUTINE AND PROCEEDING THROUGH THE ERROR RECOVERY IS STORED. 
THE PRINTOUT WILL THEN SHOW THE OPERATIONS LEADING UP TO THE 
ERROR AND THE ENTIRE PROCEDURE REQUIRED TO RECOVER FROM THE 
ERROR. THE TRACE ENTIRE TEST OPTION IFUNCTION SWT 9J WILL CAUSE 
THE ENTIRE TEST TO BE TRACED EVEN IF NO ERRORS OCCUR. 

DATA CHARACTERS WHICH ARE TRANSMITTED AND RECEIVED WITHOUT ERROR 
ARE NORMALLY REPRESENTED AS A BLOCK BY THE WORD 'TEXT* IN THE 
TRACE PRINTOUT. THIS REDUCES PRINT TIME. ALL CONTROL CHARACTERS 
INCLUDING LEADING IDLE CHARACTERS AND TRAILING PAD CHARACTERS 
AND ALL ERRONEOUS DATA CHARACTERS ARE PRINTED AS TWO DIGIT 
HEX CHARACTERS. THE TRACE TEXT OPTION (FUNCTION SWT 10) ALLOWS 
ALL DATA, CORRECT OR INCORRECT, TO BE PRINTED IN HEX. 

ANY CONTROL OR DATA CHARACTER RECEIVED WHICH IS NOT CORRECT WILL 
BE FLAGGED BY AN ASTERISK AND AN ERROR MESSAGE ID TO THE RIGHT 
OF THE ERRONEOUS CHARACTER. THE TWO DIGIT ERROR MSG ID REFERS TO 
THE ERROR MESSAGE ASSOCIATED WITH THE ERROR CONDITION. USE THE 
ERROR MSG ID TO FIND THE APPROPRIATE ERROR MESSAGE IN THE ERROR 
PRINTOUTS SECTION (4.3J. 

♦♦CAUTION** 00 NOT CONFUSE THE HEX CHARACTER WITH THE ERROR MSG ID. 
THE ERRONEOUS HEX CHARACTER IS TO THE LEFT OF THE ASTERISK, THE 
ERROR MESSAGE ID IS TO THE RIGHT. 



EC 't/S ERR 

A TEXT CHARACTER WAS RECEIVED WHICH WAS NOT OF VALID 4 OF 8 CODE. 

ED ABORT SEQ 

THE ABORT SEQUENCE ( CL IDLE) WAS RECEIVED WHILE RECEIVING A RECORD, 

EE CONT CHAR IN TEXT 

ONE OF THE STR CONTROL CHARACTERS WAS RECEIVED AS A DATA CHARACTER. 



4.4 TRACE PRINTOUTS IT) 

THE TRACE PRINTOUT PROVIDES THE CAPABILITY FOR LISTING ON THE 
CONSOLE PRINTER IN THE ORDER IN WHICH THEY OCCURED... 

A. ALL MAINLINE PROGRAM CALLS ON THE SCA INTERRUPT SERVICE 
SUBROUTINE. 

B. ALL LOAD SYNC/IDLE REGISTER INSTRUCTIONS. 

C ALL START RFAD, START WRITE, AND START SYNC INSTRUCTIONS. 

D. ALL CONTROL AND DATA CHARACTERS TRANSMITTED AND RECEIVED. 

E. ALL TIMEOUTS. 

DURING EXECUTION OF A TEST ROUTINE THIS TRACE INFORMATION IS 
STORED IN A TABLE IN CORE. ON COMPLETION OF THE TEST THIS TABLE 
MAY THEN BE PRINTED OUT. 



Tl OPEN IN 

INDICATES A CALL ON THE SCA SUBROUTINE TO ESTABLISH SYNCHRONIZATION WITH 
THE REMOTE TERMINAL AND TO RECEIVE THE INQ SEQUENCE PRIOR TO RECEIVE DATA 
RECORDS. THIS OPERATION WILL BE COMPLETE WHEN THE INQ IS RECEIVED. 

T2 OPEN OUT 

INDICATES A CALL ON THE SCA SUBROUTINE TO ESTABLISH SYNCHRONIZATION WITH 
THE REMOTE TERMINAL, TRANSMIT THE INQ SEQUENCE, AND RECEIVE THE 
ACKNOWLEDGEMENT TO THE INQ. 

T3 ACK AND RECV, ST WR 

INDICATES A CALL ON THE SCA SUBROUTINE TO ACKNOWLEDGE THE LAST RECORD 
RECEIVED AND TO RECEIVE THE NEXT RECORD. A START WRITE COMMAND IS EXECUTED 
AT THIS POINT. THE ACKNOWLEDGEMENT XMITTEO WILL BE PRINTED FOLLOWING THIS 
PRINTOUT. THIS OPERATION WILL BE COMPLETE WHEN THE NEXT RECORD OR EOT IS 
SUCCESSFULLY RECEIVED. 

T4 XM DATA, ST WR 

INDICATES A CALL ON THE SCA SUBROUTINE TO XMIT A TEST RECORD AND RECEIVE 
THE ACKNOWLEDGEMENT. A START WRITE COMMAND IS EXECUTED AT THIS POINT. 
THE DATA RECORD XMITTED WILL BE PRINTED FOLLOWING THIS PRINTOUT. THIS 
OPERATION WILL BE COMPLETE WHEN THE CORRECT ACKNOWLEDGEMENT IS RECEIVED. 

T5 S/I=IDLE, ST SYNC 

AT THIS POINT THE IDLE CHARACTER WAS LOADED INTO THE SYNC/ IDLE REG AND A 
SYNCHRONIZE COMMAND EXECUTED. IF ANY CHARACTERS ARE '<«"TED WHEN WRITE 
RESPONSES BFGIN OCCURING THESE WILL BE PRINTED FOLLOWING THIS PRINTOUT. 
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T6 ST RD 

A START READ COMMAND WAS EXECUTED. CONTROL CHARACTERS OR DATA RECEIVED 
WILL BE PRINTED FOLLOWING THIS PRINTOUT. THE IDLE CHARACTER IS IN THE 
SYNC/IDLE REG AT THE TIME THIS COMMAND IS EXECUTED. 

T7 S/I=TL, ST RD 

TL WAS LOADED INTO THE SYNC/ IDLE REG AND A START READ COMMAND EXECUTED. 
THIS SEQUENCE IS EXECUTED IN PREPARATION FOR RECEIVING A TL CONTROL 
SEQUENCE. IF THE TRANSMITTER SENDS A CL SEQUENCE SUCH AS CL EOT, 
CHARACTER PHASE WILL NOT BE ESTABLISHED AND A RECEIVE TIMEOUT WILL OCCUR. 
FOR THIS REASON AN ERROR MSG WILL NOT BE OUTPUT IF A TIMEOUT OCCURS AT 
THIS POINT. ANY CONTROL CHARACTERS OF DATA RECEIVED WILL BE PRINTED 
FOLLOWING THIS PRINTOUT. 

T8 S/I=CL, ST RD 

CL WAS LOADED INTO THE SYNC/ IDLE REG AND A START READ COMMAND EXECUTED. 
ANY CONTROL CHARACTERS OR DATA RECEIVED WILL BE PRINTED FOLLOWING THIS 
PRINTOUT. 

T9 S/I=IDLE 

THE IDLE CHARACTER WAS LOADED INTO THE SYNC/IDLE REGISTER- THIS IS DONE 
AFTER THE FIRST READ RESPONSE TO OCCUR WHEN TL IS IN THE SYNC/IDLE REG. 

TA S/I=IDLE, ST WR 

IDLE WAS LOADED INTO THE SYNC/IDLE REG AND A START WRITE COMMAND EXECUTED. 
THE CONTROL CHARACTERS TRANSMITTED WILL BE PRINTED FOLLOWING THIS 
PRINTOUT. 

TB TIMEOUT 

AN EXPECTED THREE SECOND TIMEOUT OCCURED. (REFER 14 DESCRIPTION) 

TC ERR TIMEOUT 

AN UNEXPECTED THREE SECOND TIMEOUT OCCURED. 

TD XM EOT 

INDICATES A CALL ON THE SCA SUBROUTINE TO TRANSMIT THE EOT SEQUENCE. 

TE CLOSE, RESET 

INDICATES A CALL ON THE SCA SUBROUTINE TO HALT ALL SCA OPERATIONS. 
THE SCA WML BE RESET. 

TF ENDOP, ST RD 

END SCA OPERATION AND START READ COMMANDS WERE EXECUTED. THIS IS DONE TO 
ATTEMPT CORRECT ESTABLISHMENT OF CHARACTER PHASE AFTER AN INVALID LEADER 
IS RFAD. 
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TG CORE 



INDICATES THAT CORE STORAGE BECAME FULL WHILE STORING TRACE INFORMATION. 
THE TEST WILL CONTINUE TO RUN BUT NO FURTHER TRACE INFORMATION CAN BE 
STORED. 



COMMENTS 

5.1 PROGRAM PHILOSOPHY 

THE 1130 SCA TRANSMIT/RECEIVE STR PROGRAM PROVIDES THE ABILITY TO 
TRANSMIT TEST RECORDS TO OR RECEIVE RECORDS FROM ANOTHER STR 
TERMINAL. NORMAL STR LINE CONTROL PROCEDURES ARE USED WITH THE 
EXCEPTION THAT ERROR RECOVERY ATTEMPS ARE UNLIMITED. 

THE PROGRAM CONTAINS AN INTERRUPT SERVICE SUBROUTINE VERY SIMILAR 
TO THE 1130 SCA SUBROUTINE SCATl. THIS PROVIDES A TEST WHICH 
OPERATES IN MUCH THE SAME MANNER AS THE CUSTOMERS OPERATION. 
ALL NORMAL STR TRANSMIT/RECEIVE OPERATIONS ARE CARRIED OUT VIA 
CALLS ON THIS SUBROUTINE. ALL STR LINE CONTROL IS HANDLED BY THIS 
SUBROUTINE. 

THE TRACE PRINTOUT PROVIDES THE CAPABILITY FOR LISTING ON THE 
CONSOLE PRINTER IN THE ORDER IN WHICH THEY OCCURED, ALL CALLS ON 
THE SCA SUBROUTINE, ALL SIGNIFICANT XIO INSTRUCTIONS, AND ALL 
DATA TRANSMITTED AND RECEIVED. 

IN ADDITION TO THE NORMAL TRANSMIT/RECEIVE FUNCTIONS, THREE TEST 
ROUTINES ARE PROVIDED WHICH MAY BE USED TO HOLD THE SCA IN A 
CONTINOUS TRANSMIT OR RECEIVE MODE. THESE ROUTINES ARE INTENDED 
TO BE USED ONLY FOR SCOPING PURPOSES. THEY PROVIDE NO ERROR 
DETECTION OR PRINTOUTS. 

5.2 DEFINITIONS 

THROUGHOUT THIS DOCUMENT AND IN PRINTOUTS BY THIS PROGRAM THE 
FOLLOWING TERMS AND ABBREVIATIONS ARE USED IN REFERING TO 1130 
SCA 10 CONTROL COMMANDS. 

START READ (ST RD) - AN INITIATE READ lOCC WHICH PLACES THE ADAPTOR 
IN THE RECEIVE MODE OF OPERATION. 

START WRITE 1ST WR ) - AN INITIATE WRITE lOCC WHICH PLACES THE 
ADAPTOR IN THE TRANSMIT MODE OF OPERATION. 

START SYNC (ST SYNC J - A CONTROL COMMAND WHICH PLACES THE ADAPTOR IN 
THE SYNCHRONIZE MODE OF OPERATION. 

5.3 ROUTINE DESCRIPTIONS 

TEST ROUTINE - RECEIVE NORMAL 

A. CALLS ON THE SCA SUBROUTINE TO PERFORM AN OPEN DATA IN FUNCTION. 

B. LOOPS UNTIL THE OPEN OPERATION IS COMPLETE (INQ RCVD). 

C. CALLS ON THE SCA SUBROUTINE TO PERFORM AM ACKNOWLEDGE AND 
RECEIVE FUNCTION. 

D. LOOPS UNTIL THE FUNCTION IS COMPLETE (GOOD RECORD OR EOT RCVD). 

E. IF END OF TEST HAS BEEN TURNED ON (EOT RCVD), GOES TO PRINT THE 
END OF TEST MESSAGES. IF END OF TEST HAS NOT BEEN TURNED ON, 
RETURNS TO STEP C ABOVE. 
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TEST ROUTINE 1 - TRANSMIT NORMAt 



A. 
B. 
C. 

0. 



E. 



CALLS ON THE SCA SUBROUTINE TO 
LOOPS UNTIL THE OPEN FUNCTION 
SETS A RECORD COUNT INDICATOR 
THE FUNTION 2 OPTION. 
IF THE COUNT IS NOT ZERO CALLS 
THE TEST RECORD CONTAINED IN T 
RECEIVE THE ACKNOWLEDGEMENT. 
(ACK RCVD) THE RECORD COUNT IS 
WHEN THE RECORD COUNT GOES TO 
WHEN THE XMIT EOT FUNCTION IS 
TEST MESSAGES ARE PRINTED. 



PERFORM AN OPEN DATA OUT FUNCTION. 
IS COMPLETE JACK RCVD). 
EQUAL TO THE VALUE INTEREO VIA 

ON THE SCA SUBROUTINE TO XMIT 
ABLE OATAI (SEE 3.2.51 AND 
WHEN THE XMIT FUNCTION IS COMPLETE 

DECREMENTED AND STEP REPEATED. 
ZERO A XMIT EOT CALL IS EXECUTED. 
COMPLETED (EOT RCVD) THE END OF 



TEST ROUTINE 2 - TRANSMIT RIPPLE 



A. 

B. 



C. 



E. 



SFTS UP A TRANSMIT TABLE IN CORE WHICH CONTAINS A RECORD LENGTH 
OF 80 (HEX 0050). THE DATA CONTAINED IN THE TABLE CONSISTS OF 
11 SPECIAL CHARACTERS, THE ALPHA CHARACTERS A-Z, AND THE 
NUMERICS 0-9- THIS PATTERN IS REPEATED ONCE FOR A TOTAL OF 94 
CHARACTERS (SEE LISTING TABLE DATA2). ONLY THE FIRST 80 OF THE 
94 CHARACTERS ARE TRANSMITTED. ^. „„,:„ ^c.ct 

CALLS ON THE SCA SUBROUTINE TO TRANSMIT THE DEVELOPED TEST 
RECORD AND RECEIVE THE ACKNOWLEDGEMENT, THEN LOOPS UNTIL THE 
XMIT FUNCTION IS COMPLETE- .o-r..„ 

ROTATES THE ENTIRE 94 CHARACTER XMIT TABLE ONE CHARACTER, 
MOVING THE FIRST CHARACTER TO THE END. IF THE RECORD COUNT 
IS NOT YET ZERO RETURNS TO STEP C. „„„ .^.„,^ 

AFTER 64 RECORDS HAVE BEEN SENT. CALLS ON THE SCA SUBROUTINE 
TO XMIT EOT. WHEN THE XMIT EOT OPERATION IS COMPLETE I EOT RCVD) 
GOES TO PRINT THE END OF TEST MESSAGES. 



TEST ROUTINE 3 - RECEIVE CONTINUOUS 



A. 
B- 
C. 
0. 



LOAD THE IDLE CHARACTER INTO THE SYNC IDLE REGISTER. ^„„,.„^ 
EXECUTES A START READ COMMAND AND LOOPS WAITING FOR INTERRUPTS. 
READS THE BUFFER WHEN A READ RESPONSE OCCURS. 
EXECUTES AN END OPERATION AND ANOTHER START READ WHEN A 
TIMEOUT OCCURS - 



TEST ROUTINE 4 - XMIT BUFFER CONTINUOUS 

A. LOADS THE IDLE CHARACTER INTO THE SYNC/IDLE REGISTER. 
R EXECUTES A START WRITE COMMAND AND LOOPS WAITING FOR INTERRUPTS. 
": WhIn InY INTERRUPT OCCURS THE CHARACTER ENTERED VIA FUNCTION 3 
IS LOADED INTO THE BUFFER. 

TEST ROUTINE 5 - XMIT SYNC/IDLE CONTINUOUS 

A. LOADS THE CHARACTER ENTERED VIA FUNCTION 3 INTO THE SYNC/IDLE 

B EXECUTEs'a START WRITE COMMAND AND LOOPS WAITING FOR INTERRUPTS. 
C. REPEATS STEP A WHEN ANY INTERRUPT OCCURS. 



SCA INTERRUPT SERVICE SUBROUTINE 

THIS ROUTINE IS CALLED BY TEST ROUTINES 0, 1, AND 2 FOR ALL 
TRANSMIT/RECEIVE OPERATIONS. 

THE CALLING SEQUENCE IS 



BSI 

DC 

DC 



SCAT 

/WXYZ CONTROL PARAMETER 

lOAR XMIT TABLE ADDRESS (USED ONLY FOR XMIT FUNCTIONS) 



W DEFINES THE I/O FUNCTION TO BE PERFORMED. X, Y, AND Z FURTHER 
DEFINE THE OPERATION DEPENDING ON THE FUNCTION SELECTED BY W. 

W=10 TEST FUNCTION, XYZ MUST BE 1000 

TEST THE SCA SUBROUTINE BUSY INDICATOR- IF THE INDICATOR IS ON 
RETURN TO THE CALLING ROUTINE AT THE CONTROL PARAMETER»1. IF THE 
INDICATOR IS OFF RETURN AT THE CONTROL PARAMETER+2. 

W=l, 2, OR 3 CLOSE FUNCTION, XYZ NOT USED 

TURNS OFF THE SCA SUBROUTINE BUSY INDICATOR AND RESETS THE SCA. 

W=4 OPEN FUNCTION, XY NOT USED, Z=0 DATA IN, Z=NON-0 DATA OUT 

BEGINS HANDSHAKING WITH THE REMOTE TERMINAL. IF TEL IS RECEIVED 
TRANSMITS THE TEL SEQUENCE. IF EOT IS RECEIVED TRANSMITS THE EOT 
SEQUENCE. IF OATA IN IS SELECTED, RESETS THE BUSY INDICATOR WHEN 
INQ IS RECEIVED. IF OATA OUT IS SELECTED TRANSMITS INQ UNTIL THE 
CORRECT ACK IS RECEIVED THEN RESETS THE BUSY INDICATOR. 

W=5 XMIT FUNCTION , X=0 XMIT DATA, X=NON-0 XMIT EOT, Y=0 DO NOT 
XMIT IL8C CHARACTERS, Y=NON-0 XMIT AN ILRC FOLLOWING EACH 
RM OR GH IN THE XMIT TABLE, Z NOT USED 

IF XMIT DATA, TRANSMITS THE TEST RECORD LOCATED AT lOAR AND 
RECEIVES THE ACKNOWLEDGEMENT. THE FIRST WORD OF THE TEST RECORD 
TABLE MUST CONTAIN THE COUNT OF THE NUMBER OF CHARACTERS TO BE 
TRANSMITTED. NORMAL ERROR RECOVERY IS PERFORMED UNTIL THE CORRECT 
ACKNOWLEDGEMENT IS RECEIVED. WHEN THE CORRECT ACK IS RECEIVED 
THE BUSY INDICATOR IS RESET. 

IF XMIT EOT, XHITS THE EOT SEQUENCE AND RECEIVES THE RESPONSE. 
IF THE RESPONSE EOT, THE BUSY INDICATOR IS RESET. THE END OF TEST 
INDICATOR IS TURNED ON, AND THE SCA SUBROUTINE IS SET TO A 
CONTINUOUS HANDSHAKE MODE. IF THE RESPONSE IS NOT EOT, EOT 
IS RETRANSMITTED. 

W=6-F ACKNOWLEDGE AND RECEIVE FUNCTION, X NOT USED, Y=0 DO NOT USE 
ILRC, Y=NON-0 USE ILRC, Z NOT USED 

ACKNOWLEDGES THE LAST RECORD RECEIVED AND RECEIVES THE NEXT RECORD. 
PERFORMS NORMAL ERROR RECOVERY UNTIL THE RECORD S PROPERLY RECEIVED, 
THEN RESETS THE ROUTINE BUSY INDICATOR. IF EOT IS RECEIVED THE 
BUSY INDICATOR IS RESET, THE END OF TEST INDICATOR SET, AND EOT 
IS TRANSMITTED. HANDSHAKING WILL THEN CONTINUE 
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6. APPENDIX 

6.1 STR CONTROL CHARACTERS 



CHARACTER .BIT CONFIGURATION. HEX . 




.NX0R8421. 




TL '. 


. 1 1 1 1 ] 


. 35 '. 


CL 


.01010101. 


. 55 . 


INO/ERR 


.01011001. 


. 59 . 


SORl/ACKl 


.01010011. 


. 53 . 


SOR2/ACK2 . 


.00110011. 


. 33 . 


EOT 


.01011010. 


. 5A . 


TEL 


.01011100 


. 5C . 


LRC 







MAY ALSO 8E USED AS A DATA CHARACTER 
MAY ALSO BE USED AS A DATA CHARACTER 



6.2 



STR CONTROL SEQUENCES 





LEADER 


. TRAILER. 


* END OF IDLE lEOIJ 


CL 


. IDLE . 


♦ INQUIRY (IMQ 


TL 


. INQ 


START OF ODD RECORD ISORll 


TL 


. SORl . 


START OF EVEN RECORD (S0R2) 


TL 


. S0R2 . 


END OF RECORD lEOTR) 


TL 


. LRC 


ACKNOWLEDGEMENT OF 000 RECORD (ACKll . 


CL 


. ACKl . 


ACKNOWLEDGEMENT OF EVEN RECORD (ACK2>, 


CL 


. ACK2 . 


ERROR RECEIVED lERR) 


CL 


. ERR 


* END OF TRANSMISSION (EOT) 


CL 


. EOT 


* TELEPHONE ITELJ 


CL 


. TEL 



* THESE SEQUENCES ARE PRECEEOEO BY 1.25 SECONDS OF IDLES. 
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0160 

0160 03AE 



ABS 
ORG 



/0160 



0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

016A 

016B 

016C 

0160 

016E 

016F 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

017A 

0178 

01 7C O 

017D 

0I7E 

017F 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 
018A 





















































0050 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

7171 

E1E2 

93E4 

9596 

17E8 

99AA 

0018 



DC /03AE PID 

* 

* TRANSMIT TABLE - OATAl 

***************************************** 



AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

12 

34 

56 

78 

9RM 



* TRANSMIT TABLE - DATA2 

* 

* 



***4i«4<4'*»* 



DATA I OC 


80 


DC 


/7171 


00 


/7171 


DC 


/7171 


OC 


/7171 


OC 


/7171 


OC 


/7171 


DC 


/7171 


DC 


/7171 


OC 


/7171 


DC 


77171 


DC 


/7171 


OC 


/7171 


DC 


/7171 


OC 


/7171 


DC 


/7171 


DC 


/7171 


OC 


/7171 


OC 


77171 


OC 


77171 


DC 


77171 


DC 


77171 


OC 


77171 


DC 


77171 


DC 


77171 


DC 


77171 


DC 


77171 


OC 


77171 


OC 


77171 


DC 


77171 


DC 


77171 


OC 


77171 


DC 


77171 


DC 


77171 


OC 


77171 


DC 


77171 


DC 


/EIE2 


DC 


793E4 


DC 


79596 


OC 


717E8 


DC 


799AA 


BSS 


24 



01A2 0050 


0ATA2 DC 


80 




01A3 1B2B 


DC 


/1B2B 


# t 


01A4 4R4F 


DC 


/4B4E 


t - 


01A5 6088 


DC 


/6CSB 


< . 


01 A6 CA9C 


DC 


/CA9C 


, a 


01A7 ACBl 


OC 


/ACBl 


% / 


01A8 8F71 


DC 


/8E71 


£ A 


OlAO 7263 


OC 


77263 


B C 


OlAA 7465 


ac 


77465 


E 



3AE00020 
3AE00030 
3AE00040 
3AE00050 
3AE00060 
3AE00070 
3AE00080 
3AE00090 
4t**4c«4t4c*«* 3AE00100 
3AE00110 
3AE00120 
3AE00130 
3AE00140 
3AE00150 
3AE00160 
3AE00170 
3AE00180 
3AE00190 
3AE00200 
3AE00210 
3AE00220 
3AE00230 
3AE00240 
3AE00250 
3AE00260 
3AE00270 
3AE00280 
3AE00290 
3AE00300 
3AE00310 
3AE00320 
3AE00330 
3ftE00340 
3AE00350 
3AE00360 
3AE00370 
3AE00380 
3AE00390 
3AE00400 
3AE00410 
3AE00420 
3AE00430 
3AE00440 
3AE00450 
3AE00460 
3AE00470 
3AE00480 
3AE00490 
3AE00500 
3AE00510 
3AE00520 
3AE00530 
3AE00540 
**♦*♦»«««*# 3AE00550 
3AE00560 
3AE00570 
3AE00580 
3AE00590 
3AE00600 
3AE00610 
3AE00620 
3AE00630 
3AE00640 
3AE00650 
3AE00660 
3AE00670 
3AE00680 
3AF00690 



4i:»«*««*«4i:»« 



OlAB 





6687 


OlAC 





7869 


01 AD 





0102 


OlAE 





C3D4 


OlAF 





C5C6 


0180 





4708 


OlBl 





C9B2 


01B2 





A3B4 


01B3 





A5A6 


01B4 





27B8 


01B5 





A99A 


01 B6 





EIE2 


01B7 





93E4 


01B8 





95.96 


01B9 





17E8 


01 BA 





991B 


OIBB 





2B4B 


OIBC 





4E6C 


OIBD 





8BCA 


OIBE 





9CAC 


OIBF 





B18E 


OICO 





7172 


OlCl 





6374 


01C2 





6566 


01C3 





8778 


01C4 





6901 


01C5 





D2C3 


0IC6 





D4C5 


01C7 





C647 


01C8 





D8C9 


01C9 





B2A3 


OICA 





B4A5 


OICB 





A627 


OICC 





B8A9 


OICD 





9AE1 


OICE 





E293 


OICF 





E495 


0100 





9617 


0101 





E899 



DC 


76687 


F G 


DC 


77869 


H I 


DC 


7D1D2 


J K 


OC 


7C304 


t M 


DC 


7C5C6 


N 


DC 


74708 


P Q 


DC 


7C9B2 


R S 


DC 


7A3B4 


T U 


DC 


7A5A6 


V W 


DC 


/27B8 


X Y 


DC 


/A99A 


Z 


OC 


7E1E2 


1 2 


DC 


793E4 


3 4 


DC 


79596 


5 6 


DC 


717E8 


7 8 


DC 


79918 


9 « 


DC 


/2B4B 


t » 


DC 


74E6C 


- < 


DC 


78BCA 


• • 


DC 


79CAC 


a X 


DC 


7818E 


7 e 


DC 


77172 


A B 


OC 


76374 


C 


DC 


76566 


E F 


DC 


78778 


G H 


DC 


769D1 


I J 


DC 


7D2C3 


K L 


DC 


7D4C5 


M N 


DC 


7C647 


P 


OC 


708C9 


Q R 


DC 


7B2A3 


S T 


DC 


7B4A5 


U V 


DC 


7A627 


W X 


DC 


7B8A9 


Y I 


DC 


79AE1 


1 


DC 


7E293 


2 3 


DC 


7E495 


4 5 


OC 


79617 


6 7 


OC 


/E899 


8 9 



* PROGRAM INITIALIZATION - BEGIN 

* 



01D2 





6500 


0890 


BEGIN 


LOX 


LI 


T 


XR1=C0NSTANT TABLE 


0104 





6600 


1000 




LDX 


L2 


/lOOO 


DETERMINE CORE SIZ 


0106 





C600 


08E7 




LD 


L2 


CORSZ 




0108 





914A 






S 


1 


CORSZ-T 




0109 





4C18 


OlEl 




BSC 


L 


STCOR,*- 




OlDB 





C400 


0002 




LD 


L 


2 




OIDD 





1001 






SLA 




1 




OlDE 





0400 


0002 




STO 


L 


2 




OlEO 





70F5 






MDX 




BEGIN*4 




OlEl 





72FE 




STCOR 


MOX 


2 


-2 


MAKE HIGHF5T EVEN 


01E2 





1000 






NOP 








01E3 





6E00 


08E7 


^ 


STX 


L2 


COPSZ 


SAVE IT 


01E5 





C156 






LO 


1 


INTER-T 


SET UP 


01E6 





6206 






LOX 


2 


6 


INTERRUPT 


01E7 





0207 




VECTR 


STO 


2 


7 


VECTOR AOORESSFS 


01E8 





72FF 






MDX 


2 


-1 


TO ERROR 


01E9 





70FD 




*■ 


MOX 




VECTR 


APDRESS 


OlEA 





6600 


03A7 




LDX 


L2 


INT4 


SET UP INTERRUPT 


OlEC 





6E00 


OOOC 




STX 


L2 


/C 


LEVEL 4 VECTOR 



3AE00700 
3AE00710 
3AE00720 
3AE00730 
3AE00740 
3AE00750 
3AE00760 
3AE00770 
3AE00780 
3AE00790 
3AE00800 
3AE00810 
3AE00820 
3AE00830 
3AE00840 
3AE00850 
3AE00860 
3AE0O870 
3AE00880 
3AE00890 
3AE00900 
3AE00910 
3AE00920 
3AE00930 
3Ae00940 
3AE00950 
3AE00960 
3AE00970 
3AE00980 
3AE00990 
3AE01000 
3AE01010 
3AE01020 
3AE01030 
3AE01040 
3AE01050 
3AE01060 
3AE01070 
3AE01080 
3AE01090 
3AE01100 
3AE01110 
3AE01120 
3AE01130 
3AE01140 
3AE01150 
3AE01160 
3AE01170 
3AE01180 
3AE01190 
3AE01200 
3AE01210 
3AE01220 
3AE01230 
3AE01240 
3AE01250 
3AE01260 
3AE01270 
3AE01280 
3AE01290 
3AE01300 
3AE01310 
3AF01320 
3AE01330 
34F01340 
3AE01350 
3AF01360 
3AE01370 
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OlEE CIFF 
OlEF D400 0000 
OlFl C9FD 
01 F2 DCOO 0004 

OIF* 1010 
01F5 DlOO 
01F6 013C 
01F7 D13B 



LD 

STO 

LOD 

STD 

SLA 
STO 
STO 
STO 



1 MDX3-T 
L 

I BOOT-T 
L 4 

16 

1 SWO-T 
1 LGBSY-T 
1 SWBSY-T 



SET UP 
RESTART 
BRANCHES 



CLEAR 
FUNCTION OPTIONS 
AND RESET BUSY 
INDICATORS 



01F8 4400 0418 
OlFA 3000 

OlFB 4400 031F 
OlFO OBFC 

OlFE 4400 02D7 

0200 ClOO 

0201 4C04 030F 

0203 1008 

0204 4C10 OlFE 

0206 1808 

0207 EllA 

0208 0100 



* WAIT FOR START SELECTION - START 

* 

* 

CLEAR SCA SUB-ROUTINE 



START BSI 
DC 



SCAT 

/3000 



* 
HTA 

* 



BSI 
DC 

BSI 

LO 
BSC 

SLA 

BSC 

SRA 
AND 
STO 



L LOG 
MSGl 

L SHCHK 

1 SHO-T 
L HALT.E 

8 
L HTA,- 



l H007C-T 
1 SHO-T 



PRINT PROG START MSG 
CHECK FOR SWITCH ENTRY 
BR IF HALT OPTION 
BR IF START NOT SELECTED 



RESET HALT, MANUAL TERM, 
AND START OPTIONS 



0209 
02 OA 



0200 
020E 



ClOl 

lOOC 
020B 180C 
020C 0101 

911D 

4C08 0212 



0210 1010 

0211 DlOl 

0212 4400 031F 

0214 0911 

0215 6680 089E 
0217 4E80 0219 



LOOP LD 
SLA 
SRA 
STO 
S 
BSC 

SLA 
STO 

TEST BSI 
DC 

LOX 
BSC 



1 SMl-T 

12 

12 

I SWl-T 

I D5-T 

L TEST,* 

16 
1 SHl-T 

L LOG 

MSG3 

12 SWl 
12 RTTBt 



BR IF VALID RTN SELECT 

INVALID ROUTINE, 
SELECT RTN 

PRINT RTN START MSG 



GO TO TEST ROUTINE 
ROUTINE ADDRESS TABLE - RTTBL 



0219 





021F 


021A 





0230 


021B 





0246 


02 IC 





026F 


021D 





0286 


021E 





0297 



021F 4400 031F 
0221 0000 



RTTBL DC TESTO 

DC TESTl 

DC TEST2 

DC TFST3 

DC TFST4 

DC IE ST5 

* 

* TEST ROUTINE - TESTO 

* 

************ f********:****1f^^,:^f**:^*******^t^^^:Hi^^i,:^^^ 

* 

TESTO BSI L LOG PRINT RTN NUMBER 

DC /OOOO 



3AE01380 

3AE01390 

3AE01400 

3AE01410 

3AE01420 

3AE01430 

3AE01440 

3AE01450 

3AE01460 

3AE01470 

3AE01480 

3AE01490 

3AE01500 

3AE01510 

3AE01520 

3AE01530 

3AE01540 

3AE01550 

3AE01560 

3AE01570 

3AE01580 

3AE01590 

3AE01600 

3AE01610 

3AE01620 

3AE01630 

3AE01640 

3AE016S0 

3AE01660 

3AE01670 

3AE01680 

3AE01690 

3AE01700 

3AE01710 

3AE01720 

3AE01730 

3AE01740 

3AE01750 

3AE01760 

3AE01770 

3AE01780 

3AE01790 

3AE01800 

3AE01810 

3AE01820 

3AE01830 

3AE01840 

3AE01850 

3AE01860 

3AE01870 

3AE01880 

3AE01890 

3AE01900 

3AE01910 

3AE01920 

3AE01930 

3AE01940 

3AE01950 

3AE01960 

3AE01970 

3AE01980 

3AE01990 

3AE02O00 

3AE02010 

3AE02020 

3AE02030 

3AE02040 

3AEO205O 



0222 
0224 



4400 0418 
4000 



0225 4400 02A8 



0227 
0229 



4400 0418 
6010 



BSI 
DC 

BSI 

BSI 
DC 



L 
L 



022A 4400 02A8 



022C 
022D 



C139 
4C20 03BD 



022F 70F7 



BSI L 

LD 
BSC 

NDX 



SCAT 
/4000 

HTB 

SCAT 
/6010 

HTB 

1 ENDSH-T 
END.Z 

RCV 



OPEN-DATA IN 

WAIT UNTIL READY 
ACKNOWLEDGE AND RECEIVE 

WAIT UNTIL READY 

BR IF EOT RECEIVED. 
GO RECEIVE NEXT MSG 



0230 

0232 

0233 

0234 

0235 
0237 



4400 031F 
0001 

C102 
0150 

4400 0418 
4001 



* 
RCV 

* 
* 

************************t.;^**t^^^^^^^t.^^^^^^^^^^^^^^ 

* TEST ROUTINE 1 - TESTl 

***********************t*^^^t******^^t^^^^^^^^^^^^^ 

PRINT RTN NUMBER 



TESTl BSI 
DC 



LOG 
/OOOl 



0238 4400 02A8 



023A 
023 B 

023D 
02 3E 

023F 

0241 

0242 

0243 
0245 



CISO 
4C08 02CF 

911B 

D150 

4400 0418 

5010 

0161 

4400 02A8 

70F4 



XMI 



LD 
STO 

BSI 

DC 

BSI 

LO 
BSC 

S 
STO 

BSI 

DC 
DC 

BSI 

MDX 



1 SH2-T 
1 XMCNT-T 

L SCAT 
/4001 

L HTB 

1 XMCNT-T 
L TMEOT,* 

1 Ol-T 
1 XMCNT-T 

L SCAT 
/5010 
OATAl 

L WTB 

XMI 



SET RECORD COUNT 
OPEN-DATA OUT 

WAIT UNTIL READY 

BR IF RECORD COUNT 
DECREMENT COUNT BY 1 

XMIT RECORD 

HAIT UNTIL READY 
GO TO CK COUNT 



0246 4400 031F 

0248 0002 

0249 6240 
024A 6F00 08ED 

024C 6200 
024D C600 0102 
024F D600 0A87 

0251 7201 

0252 70FA 

0253 4400 0418 
0255 4001 



****************************:t:***t,^*^t******^t^t**** 

* TEST ROUTINE 2 - TEST2 

*************************^^*^*^^*^^^^^^^^,^^^^^^^^^^ 

PRINT RTN NUMBER 



LOG 
/0002 



TEST2 BSI 

DC 

* 

LDX 2 64 

STX L2 XMCNT 

LDX 2 -48 

TST21 LD L2 DATA2+48 

STO L2 TSTBL+48 

MDX 2 1 

MDX TST2I 

* 

BSI L SCAT 

DC /4001 



SET RECORD COUNT = 64 



SET UP 
DATA TABLE 
TO XMIT 



OPEN-DATA OUT 



3AE02060 

3AE0207b 

3AE02080 

3AE02090 

3AE02100 

3AE02110 

3AE02120 

3AE02130 

3AE02140 

3AE02150 

3AE02160 

3AE02I70 

3AE02180 

3AE02190 

3AE02200 

3AE02210 

3AE02220 

3AE02230 

3AE02240 

3AE02250 

3AE02260 

3AE02270 

3AE02280 

3AE02290 

3AE02300 

3AE02310 

3AE02320 

3AE02330 

3AE02340 

3AE02350 

3AE02360 

3AE02370 

3AEO2380 

3AE02390 

3AE02400 

3AE02410 

3AE02420 

3AE02430 

3AE02440 

3AE02450 

3AE02460 

3AE02470 

3AE02480 

3AE02490 

3AE02500 

3AE02510 

3AE02520 

3AE02530 

3AE02540 

3AE02550 

3AE02560 

3AE02570 

3AE02580 

3AE02590 

3AE02600 

3AE02610 

3AE02620 

3AE02630 

3AE02640 

3AE026 50 

3AE02660 

3AE02670 

3AE02680 

3AE02690 

3AE02700 

3AE02710 

3AE02720 

3AE02730 



OATF 
EC NO. 



15N0V66 
419643 



15JUM6 7 
4?0317 



OlOCTfc? 
4?0374 



15SEP6B 
4?0416 



01JUL69 
571013 



C1DCT69 
571066 



01JUN70 
571097 



PROG ID 
PAGE 



03AF-0 
2 



DATE 
EC NO. 



15N0V66 
419643 



15JUN67 
420317 



010CT67 
420374 



15SEP68 
420416 



01JUL69 
571013 



010CT69 
571066 



01JUN70 
5 71097 



PROG ID 
PAGE 



03aE-0 
2A 
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0256 4400 02A8 

0258 4400 0418 
025A 5010 
025B 0A57 

025C 4400 02A8 



025E 
02 5F 
0261 
0262 
0264 
0265 
0267 
0268 
0269 

026A 
02 6C 



622F 

C400 0A58 
1890 

C600 0A57 
18D8 

0600 0A57 
1088 
72FF 
70F8 



74FF 08ED 
70EB 



026D 4C00 02CF 



026F 4400 031F 

0271 0003 

0272 6600 0279 
0274 6EO0 0009 

0276 0908 

0277 09CF 

02 78 7050 



0279 0000 
02 7 A 09CB 

0278 09E3 
027C 4828 

0270 0905 

027E 1003 
027F 4C10 0283 

0281 09E5 
02 82 09CF 

0283 C9CB 

0284 4CC0 0279 



♦ 
XM2 



BSI 

BSI 

DC 

DC 

BSI 



L MTB 

L SCAT 

/5010 
TSTBL 

L MTB 



LOX 
LD 
SRT 
TST22 LD 
RTE 



2 47 
L TSTBL*1 

16 

L2 TSTBL 

24 

STO L2 TSTBL 
SLT 8 
MDX 2 -I 
MDX TST22 

MDX L XMCNT,-1 
NOX XM2 



WAIT UNTIL READY 
XMIT RECORD 

WAIT UNTIL READY 

SHIFT 
XMIT 
DATA 
TABLE 



BSC 



THEOT 



DECREMENT COUNT BY 1 

XM NEXT RCO IF CNT NOT 

COUNT ZERO - XMIT EOT 



* 

* TEST ROUTINE 3 - TEST3 

* 

PRINT RTN NUMBER 



TEST3 BSI L 

DC 



LOG 
/0003 



LOX L2 T3INT 
STX L2 /9 



XIO 
XIO 

MDX 

* 

T3INT DC 

STD 

♦ 

XIO 
BSC 

XIO 

SLA 

BSC 

XIO 
XIO 



1 LOAO-T 
1 STREO-T 

WTC 



SET INTERRUPT VECTOR 



LOAD SYNC IN SYNC/ IDLE REG 
START READ 

GO WAIT FOR INTERRUPT 



TEST RTN 3 INT SERVICE 



T3INT 



1 AQ-T 

1 SENSR-T 
Z + 

1 PEAD-T 



L T31EX,- 

1 ENDOP-T 
1 STRED-T 



INTERRUPT ENTRY 
SAVE A AND 

SENSE DSW AND RESET 
SKIP IF NO READ RESPONSE 

READ BUFFER 



BR IF NO TIMEOUT 

END SCA OPERATION 
START READ 



RESTORE A ANO 
EXIT INTERRUPT 



0286 4400 031F 
0288 0004 



T3IEX LOO I AO-T 

BQSC I T3INT 

* 

* TEST ROUTINE 4 - TEST4 

* 

TEST4 SSI L LOG PRINT RTN NUMBER 
DC /0004 



3AE02740 
3AE02750 
3AE02760 
3AE02770 
3AE02780 
3AE02790 
3AE02a00 
3AE02810 
3AE02820 
3AE02830 
3AE02840 
3AE02850 
3AE02860 
3AE02870 
3AE02880 
3AE02890 
3AE02900 
3AE02910 
3AE02920 
3AE02930 
3AE02940 
3AE02950 
3AE02960 
3AE02970 
3AE02980 
3AE02990 
3AE03000 
3AE03010 
3AE03020 
3AE03030 
3AE03040 
3AE03050 
3AE03060 
3AE03070 
3AE03080 
3AE03090 
3AE03100 
3AE03110 
3AE03120 
3AE03130 
3AE03140 
3AE03150 
3AE03160 
3AE03170 
3AE03180 
3AE03190 
3AE03200 
3AE03210 
3AE03220 
3AE03230 
3AE03240 
3AE03250 
3AE03260 
3AE03270 
3AE03280 
3AE03290 
3AE03300 
3AE03310 
3AE03320 
3AE03330 
3AE03340 
3AE03350 
3AE03360 
3AE0 3370 
3AE03380 
3AE03390 
3Ae03400 
3AF03410 



0289 6600 0290 
028B 6E00 0OD9 

0280 09DB 
02 8E 0901 

028F 7039 



0290 0000 

0291 D9CB 

0292 09E3 

0293 0909 

0294 C9CB 

0295 4CC0 0290 



LDX L2 T4INT 
STX L2 /9 



XIO 
XIO 

MDX 

* 

* 
* 

T4INT DC 
STD 

XIO 
XIO 

LOD 



I LOAD-T 
1 STWRT-T 

WTC 



SET INTERRUPT VECTOR 



LOAD IDLE TO SYNC REG 
START WRITE 

GO WAIT FOR INTERRUPTS 



TEST RT4 INT SERVICE - T4INT 



*-* 
1 AO-T 

I SENSR-T 
1 WRSW3-T 

I AO-T 



BOSC I T4INT 



INTERRUPT ENTRANCE 
SAVE A AND Q REGS 

SENSE DSW AND RESET 
WRITE TO BUFFER 

RESTORE A AND REGS 
EXIT INTERRUPT 



0297 4400 031F 


TEST5 BSI 


L 


LOG 


0299 000 5 


DC 




/0005 



* TEST ROUTINE 5 - TEST 5 

PRINT RTN NUMBER 



029A 6600 02A1 
029C 6E00 0009 

029E 09EI 
029F 09D1 

02A0 7028 



02A1 0000 
02 A2 09CB 

02A3 09E3 
02A4 09E1 

02 A5 C9CB 
02A6 4CC0 02A1 



LDX L2 T5INT 
STX L2 /9 



XIO 
XIO 

MDX 

* 

T5INT DC 
STD 

XIO 

XIO 

* 

LOO 



1 SIREG-T 
1 STMRT-T 

WTC 



SET INTERRUPT VECTOR 



LOAD SYNC/IOLE REG 
START WRITE 

GO WAIT FOR INTERRUPT 



TEST RTN 5 INT SERVICE - T5INT 



*-♦ 
I AQ-T 

I SENSR-T 
1 SIREG-T 

1 AO-T 



BOSC 1 T5INT 



INTERRUPT ENTRANCE 
SAVE A ANO REGS 

SENSE DSW ANO RESET 
LOAD SYNC/IDLE REG 

RESTORE A ANO REGS 
EXIT INTERRUPT 



* WAIT LOOP B - WTB 

* 

* 



02A8 0000 
02A9 4400 0207 

02AB ClOO 
02AC 4C04 030F 

02AE 1801 
02AF 4C04 0315 

02B1 4400 031F 
02B3 8000 
02B4 7003 



WTB 



DC 
BSI 

LD 
BSC 

SRA 
BSC 

BSI 

OC 
MDX 



*-♦ 
L SWCHK 

1 SWO-T 
L HALT.E 



1 

TERM.E 

LOG 

/8000 

CKSCA 



GO CHECK FOR SWITCH ENTRY 

BR IF HALT SELECTED 

BR IF MANUAL TERM SLEECTEO 
CK IF LOG RTN BUSY 
BR IF BUSY 



3AE03420 

3AE03430 

3AE03440 

3AE03450 

3AE03460 

3AE03470 

3AE03480 

3AE03490 

3AE03500 

3AE03510 

3AE03520 

3AE03530 

3AE03540 

3AE03550 

3AE03560 

3AE03570 

3AE03580 

3AE03590 

3AE03600 

3AE03610 

3AE03620 

3AE03630 

3AE03640 

3AE03650 

3AE03660 

3AE03670 

3AE03&80 

3AE03690 

3AE03700 

3AE03710 

3AE03T20 

3AE03730 

3AE03740 

3AE03750 

3AE03760 

3AE03770 

3AE03780 

3AE03790 

3AE03800 

3AE03810 

3AE03820 

3AE03830 

3AE03840 

3AE03850 

3AE03860 

3AE03870 

3AE03880 

3AE03890 

3AE03900 

3AE03910 

3AE03920 

3AE03930 

3AE03940 

3AE03950 

3AE 03960 

3AE03970 

3AE03980 

3AE 03990 

3AE04000 

3AE04010 

3AE 04020 

3AE04030 

3AE04040 

3AE04050 

3AE04060 

3AE04070 

3AE04080 

3AE04090 



DATE 
EC NO. 



15N0V66 
419643 



ISJUN67 
420317 



010r.T67 
420374 



l5SFP6f) 
4?0«16 



01JUL69 
■571013 



0inrT69 
571066 



01JUN70 
571097 



PROG in 
PAGE 



03AE-0 
3 



DATE 
EC NO. 



15N0V66 
419643 



15JUN67 
420317 



01DCT67 
420374 



15SEP68 
420416 



01JUL69 
571013 



010CT69 
571066 



01JUN70 
571097 



PROG 10 
PAGE 



03AE-0 
3A 
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02B5 C14F 
0286 4C20 028E 

02B8 A400 0418 
028 A 0000 
02BB TOED 

02BC 4C80 02A8 



02BE D008 
02BF 1010 
02CO D14F 

02C1 ClOO 
02C2 1802 
02C3 4C04 02B8 

02C5 A*00 031F 
02C7 0000 

02C8 70EF 



LD 
BSC 



1 EX-T 
L ERRPR.Z 



02C9 *400 02D7 

02CB ClOO 
02CC 4C04 030F 

02CE 70FA 



L SCAT 


WTB4-1 



CKSCA BSI 

DC 
MOX 
* 

BSC I WT8 

* 

* 



BR IF ERROR MSG TO PRINT 
TEST SCA RTN FOR BUSY 
BR IF BUSY 
RETURN TO CALLING RTN 



PRINT ERROR MESSAGE - ERRPR 

STORE MSG ADR IN LOG CALL 
CLEAR ERROR MSG ADR IND 



ERLOG+2 
16 
1 EX-T 



1 SHO-T 
2 

L CKSCA, E 

L LOG 
*-* 

CKSCA 



BR IF BYPASS ERR PRINT 
PRINT ERROR MSG 



ERRPR STO 
SLA 

STO 
* 

LD 

SRA 

BSC 
* 
ERLOG BSI 

DC 

MDX 

* 

* 

* WAIT LOOP C - WTC 

* 

**«*#***********»*:******************«************** 

* 

WTC BSI L SHCHK GO CHECK FOR SWITCH ENTRY 

LD 1 SWO-T 

BSC L HALT,E BR IF HALT SELECTED 
♦ 

MDX WTC LOOP 
**:»******«***********«*** **«<*** ******************** 
* 

* TRANSMIT EOT - TMEOT 
* 
************************************************** 

* 



02CF 





4400 


0418 


TMEOT 


BSI 


L 


SCAT 




TRANSMIT EOT 


0201 





5100 






DC 




/5100 






02D2 





0A57 




^ 


DC 




TSTBL 






02D3 





4400 


02A8 


* 

* 
*****: 


BSI 


L 


WTB 




WAIT UNTIL READY 


02D5 





4C00 


03BD 


BSC 


L 


END 




GO TO PRINT END MSGS 










********************************************** 










* 
* 

* 

*****: 

* 

SHCHK 






CHECK 


FOR 


SWITCH FNTRY - SWCHK 










******************* 


:*******************♦*»**** 


0207 





0000 




DC 




*-* 






0208 





C13B 






LD 


1 


SWBSY- 


-T 




0209 





4C98 


02D7 


* 


esc 


I 


SWCHK, 


1 +— 


EXIT IF NO SH FNTRY 


02DB 





4400 


031F 


BSI 


L 


LOG 




LOOP UNTIL 


020D 





8000 






DC 




/8000 




LOG ROUTINE 


02DE 





70FC 




* 


MOX 




*-4 




IS NOT BUSY 


02DF 





C152 




LD 


1 


SWS-T 




FETCH SW ENTRY READ 


02E0 





188E 






SRT 




14 







3AE04100 
3AE04110 
3AE04120 
3AE04130 
3AE04140 
3AE04150 
3AE04160 
3AE04170 
3AE04180 
3AE04190 
3AE04200 
3AE04210 
3AE04220 
3AE04230 
3AE04240 
3AE04250 
3AE04260 
3AE04270 
3AE04280 
3AE04290 
3AE04300 
3AE04310 
3AE04320 
3AE04330 
3AE04340 
3AE04350 
3AE04360 
3AE04370 
3AE04380 
3AE04390 
3AE04400 
3AE04410 
3AE04420 
3AE04430 
3AE04440 
3AE04450 
3AE04460 
3AE04470 
3AE04480 
3AE04490 
3AE04500 
3AE04510 
3AE04520 
3AE04530 
3AE04540 
3AE04550 
3AE04560 
3AE04570 
3AF04580 
3AE04590 
3AE04600 
3AE04610 
3AE04620 
3AE04630 
3AE04640 
3AE04650 
3AE04660 
3AE04670 
3AE04680 
3AE04690 
3AF04700 
3AE04710 
3AF04720 
3AEO'«730 
3AE04740 
3AE04750 
3AE04760 
3AE04770 



02E1 EllC 
02E2 DOOl 
02E3 6600 0000 

02E5 1010 
02E6 108E 
02E7 0600 0890 

02E9 C103 
02EA 1008 
02EB 0104 



AND 1 D3-T 
STO **\ 
LDX L2 *-* 



02EC 





C152 




02ED 





1888 




02EE 





1008 




02EF 





1808 




02F0 





4400 


0385 


02F2 





0019 




02F3 





1010 




02F4 





1088 




02F5 





4400 


0385 


02F7 





D015 





02F8 1010 
02F9 D13B 

02FA 4400 031F 
02FC 0308 

02FD 4C80 02D7 



02FF 0000 

0300 C13B 

0301 4CA0 02FF 

0303 6C00 08D8 

0305 09F7 

0306 4C80 02FF 



0308 





3E08 


0309 





2121 


030A 





9A92 


03 OB 





9A21 


030C 





0000 


03 OD 





0000 


030E 





0000 



030F Ell A 

0310 DlOO 

0311 400D 

0312 090C 

0313 4CO0 01F8 



SLA 
SLT 



16 
14 



STO L2 SWO 



LD 
SLA 

STO 

LD 

SRT 

SLA 

SRA 

BSI 

STO 

SLA 
SLT 
BSI 
STO 

SLA 
STO 

BSI 
DC 



1 SW3-T 

8 
1 SW3A-T 

1 SHS-T 

8 

8 

8 

. HEX 

SHMSG+4 

16 
8 
. HEX 

SHMSG*5 

16 
1 SWBSY-T 

. LOG 
SHMSG 



BSC I SHCHK 



XR2=FUNCTI0N BITS (0-1) 



STORE DATA BITS (2-15) 



XMIT CHAR FOR RTNS 4 AND 5 

CONVERT FIRST 
TWO HEX CHARACTERS 
READ TO TWO PRINTER 
CHARACTERS AND 
STORE IN SWITCH 

ACKNOWLEDGEMENT MSG 

CONVERT SECOND TWO HEX 
CHARS READ TO 
PRINTER CODE AND 
STORE IN SWITCH MSG 



RESET SH BUSY INDICATOR 
PRINT SHS MESSAGE 

RETURN TO CALLING RTN 



* 

* 

* 

* 

SWINT DC 
LD 
BSC 

* 

STX 
XIO 
BSC 



INT REO KEY INTERRUPT SERVICE - SWINT 
ENTER FROM INT4 RTN 
EXIT IF BUSY IND ON 



*-♦ 
1 SWBSY-T 
I SWINT, Z 



L SWBSY SET BUSY INDICATOR 

1 RDSHS-T READ SWITCHES 
I SHINT RETURN TO INT LEVEL 4 RTN 



* 
* 



ACKNOWLEDGE SWITCHES MSG - SHMSG 
A2 



SWMSG DC /3ED8 

DC /2121 

DC /9A92 SW 

DC /9A21 S 

DC ♦-* 

DC *-* 

DC 
* 

********* ******^«********«*«4i^«*«:»«:^ 4: 4:«4:4t^^^*:«««:*^^ 

* 

* HALT ROUTINE - HALT 
* 

*********** ♦*«** + ****3(i********««r**:(:^^;#*«;<,:(;:(,«;^»^^#:j,^ 

* 



HALT AND 
STO 

♦ 

BSI 
DC 

* 

BSC 



1 H007C-T 
1 SWO-T 

LOG 
MSG2 

START 



RESET HALT, MANUAL TERM, 
AND START OPTIONS 

PRINT HALT 



GO TO CLOSF SCA RTN 



*****»******»*»♦♦******♦♦**«*♦****♦****♦***«**«**** 



3AE04780 

3AE04790 

3AE04800 

3AE04810 

3AE04820 

3AE04830 

3AE04840 

3AE04850 

3AE04860 

3AE04870 

3AE04880 

3AE04890 

3AE04900 

3AE04910 

3AE04920 

3AE04930 

3AE04940 

3AE04950 

3AE04960 

3AE04970 

3AE04980 

3AE04990 

3AE05000 

3AE05010 

3AE05020 

3AE05030 

3AE05040 

3AE05050 

3AE05060 

3AE05070 

3AE05080 

3AE05090 

3AE05100 

3AE05110 

3AE05120 

3AE05130 

3AE05140 

3AE05150 

3AE05160 

3AE05170 

3AE05180 

3AE05190 

3AE05200 

3AE05210 

3AE05220 

3AE05230 

3AE05240 

3AE05250 

3AE05260 

3AE05270 

3AE05280 

3AF05290 

3AF05300 

3AF05310 

3AE05320 

3AE05330 

3AE05340 

3AE05350 

3AE05360 

3AE05370 

3AE05380 

3AE05390 

3AE05400 

3AE05410 

3AE05420 

3AE05430 

3AE05440 

3AE05450 



ATE 


I5N0V66 


15JUN67 


010CT67 


15SFP63 


01JUL69 


010CT69 


01JUN70 


PROG 10 


03AF-0 


DATE 


15NOV66 


15JUN67 


010CT67 


15SEP68 


01JUL69 


010CT69 


01JUN70 


PROG 10 


03AF-0 


C NO. 


419643 


420317 


420374 


420416 


571013 


571066 


571097 


PAGE 


4 


EC NO. 


419643 


420317 


420374 


420416 


571013 


571066 


571097 


PAGE 


4A 
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MANUAL TERMINATION RTN 



TERM 



0315 1001 

0316 EllA 

0317 DlOO 

0318 4400 0418 
031A 3000 

031B 4003 
031C 091B 

0310 4C00 03C0 



* 

* 

TERM SLA 1 

AND 
STO 



BSI 
DC 

BSI 
DC 

BSC 



1 H007C-T 
1 SWO-T 

SCAT 
/3000 

LOG 
MSG4 

. END+3 



RESET HALT, MANUAL TERM, 
AND START OPTIONS 

CLOSE SCA SUB-ROUTINE 
PRINT MANUAL TERMINATION 
GO TO PRINT END MSGS 



* LOG ROUTINE - LOG 

* 



BR IF LOG RTN NOT BUSY 



031F 





0000 




LOG 


DC 







0320 





C13C 






LD 


I 


LGBSY-T 


0321 





4C18 


0334 


* 


BSC 


L 


L0G2,*- 


0323 





7401 


OBOE 


MDX 


L 


LGOLY.l 


0325 





7006 




* 


MDX 




LOGl 


0326 





C141 




LD 


1 


LGOLY-T 


0327 





4C20 


032C 


* 


BSC 


L 


LOGl.Z 


0329 





09E7 




XIO 


1 


RESET-T 


032A 





3002 




WT2 


WAIT 




2 


032B 





70FE 




^ 


MDX 




WT2 


032C 





C480 


031F 


LOG I 


LD 


I 


LOG 


032E 





4C10 


0320 


:(t 


BSC 


L 


LOG+l,- 


0330 





1001 






SLA 




l 


0331 





4C20 


0320 


* 
* 

L0G2 


BSC 


L 


L0G<-1,Z 


0333 





7022 




MDX 




L0G6 


0334 





C480 


031F 


LD 


I 


LOG 


0336 





4C10 


033E 


♦ 


BSC 


L 


L0G3,- 


0338 





1001 




SLA 




1 


0339 





4C20 


035A 


^ 


BSC 


L 


L0G7,Z 


033B 





7401 


031F 




MDX 


L 


LOG.l 


033D 





7018 




dc 


MDX 




L0G6 


033E 





1888 




L0G3 


SRT 




8 


033F 





4C20 


034B 


* 

4c 


BSC 


L 


L0G4,Z 


0341 





D025 




STO 




HXf«SG+l 


0342 





1088 




L0G3A 


SLT 




8 


0343 





4041 




4; 


BSI 




HHX 


0344 





D0?1 






STO 




HXMSG 



0345 6600 0366 
0347 6E00 08F1 
0349 09FF 
034A C 7004 



LOX L? HXMSG 

SIX L? PRftDR 

XIO 1 SPACE-T 

MDX LOG "5 



INCRE DELAY COUNTER 
BR IF NOT FULL COUNT 



BR IF DELAY COUNT NOT 

RESET SCA 
**ERROR** LOG DEVICE FAIL 
NO INTERRUPT 



BR IF NOT TEST CALL 

BR IF 4 DIGIT HEX 
BR IF TEST CALL 

BR IF NOT TEST CALL 

BR IF 4 DIGIT HEX 

INCRE RETURN ADDRESS 
GO TO RETURN 

BR IF ALPHA PRINT 

SET 2 DIGIT TERMINATOR 

POSITION 2 DIGIT HEX CHAR 
CONVERT TO PRINT CODE 

SAVE IN HEX MSG 

SET PRINT ADR TO HEX MSG 
SPACE PRINTER 



3AE05460 
3AE05470 
3AE05480 
3AE05490 
3AE05500 
3AE05510 
3AE05520 
3AE05530 
3AE05540 
3AE05550 
3AE05560 
3AE05570 
3AE05580 
3AE05590 
3AE05600 
3AE05610 
3AE05620 
3AE05630 
3AE05640 
3AE05650 
3AE05660 
3AE05670 
3AE05680 
3AE05690 
3AE05700 
3AE05710 
3AE05720 
3AE05730 
3AE05740 
3AE05750 
3AE05760 
3AE05770 
3AE05780 
3AE05790 
3AE05800 
3AE05810 
3AE05820 
3AE05830 
3AE05e40 
3AE05850 
3AE05860 
3AE05870 
3AE05880 
3AE05890 
3AE05900 
3AE05910 
3AE05920 
3AE05930 
3AE05940 
3AE05950 
3AE05960 
3AE05970 
3AE05980 
3AE05990 
3AE06000 
3AE06010 
3AE06020 
3AE06030 
3AE06040 
3AE06050 
3AE06060 
3AE06070 
3AE06080 
3AE06090 
3AF06100 
3AE06110 
3AE06120 
3AE06130 



034B 1088 




L0G4 


SLT 




8 




3AE06140 


034C D400 


08FI 




STO 


L 


PR ADR 


SET PRINT ADR TO ALPHA MSG 


3AE06150 


034E 09F1 




* 


XIO 


1 


CRTRN-T 




3AE06160 
3AE06170 


034F 6C00 


08DB 


L0G5 


STX 


L 


L12SH 


SET 1ST/2ND CHAR SWITCH 


3AE06180 


0351 6C00 


08D9 




STX 


L 


LGBSY 


SET LOG BUSY IND 


3AE06190 


0353 1010 






SLA 




16 




3AE06200 


0354 D141 






STO 


I 


LGDLY-T 


RESTART DELAY COUNT 


3AE06210 


0355 D141 




* 


STO 


1 


LGOLY-T 


RESTART DELAY COUNTER 


3AE06220 
3AE06230 


0356 7401 


031F 


L0G6 


MDX 


L 


LOG, 1 


INCRE RETURN ADDRESS 


3AE06240 


0358 4C80 


031F 


♦ 


BSC 


1 


LOG 


RETURN TO CALLING RTN 


3AE06250 
3AE06260 


035A 1889 




L0G7 


SRT 




9 




3AE06270 


035B EH9 






AND 


1 


HOOFF-T 


FIRST TWO HEX DIGITS 


3AE06280 


035C 4028 




* 


BSI 




HEX 


CONVERT TO PRINT CODE 


3AE06290 
3AE06300 


035D 1888 






SRT 




8 




3AE06310 


035E E959 






OR 


1 


ASTER-T 


ASTERISK 


3AE06320 


035F 0007 




* 


STO 




HXMSG*1 




3AE06330 
3AE06340 


0360 1010 




, 


SLA 




16 




3AE06350 


0361 1088 






SLT 




8 




3AE06350 


0362 1008 






SLA 




8 




3AE06370 


0363 D004 






STO 




HXMSG+2 




3AE06380 


0364 1010 






SLA 




16 




3AE06390 


0365 70DC 




* 


MOX 




LOG 3 A 




3AE06400 
3AE06410 
3AE06420 
3AE06430 






« 






HEX MESSAGE STORAGE - HXMSG 






* 










3 A EG 6440 


0366 0000 




HXMSG 


DC 




*-* 




3AE064S0 


0367 0000 






DC 









3AE06460 


0368 0000 




* 


DC 









3AE06470 
3AE06480 
3AE06490 
3AE06500 






4c 






PRINTER 


INTERRUPT SERVICE - LGINT 






* 










3AE06510 


0369 0000 




LGINT 


DC 




*— * 


ENTER FROM 1NT4 RTN 


3AE06520 


036A 1010 




- 


SLA 




16 




3AE06530 


036B D400 


0041 


* 


STO 


L 


LGDLY-T 


RESTART DELAY COUNTER 


3AE06540 
3AE06550 


0360 C480 


08F1 




LD 


I 


PRADR 


FETCH TWO CHARACTERS 


3AE06560 


036F D153 






STO 


1 


PRTWD-T 


SET UP TO PRINT 1ST CHAR 


3AE06570 


0370 4C18 


0382 


* 


BSC 


L 


LINTX,+- 


BR IF PRINT COMPLETE 


3AE06580 
3AE06590 


0372 7400 


08DB 




MDX 


L 


L12SW 




3AE06600 


03 74 7009 




* 


MDX 




LINTl 


BR IF IST/2ND IND ON 


3AE06610 
3AE06620 


0375 1008 






SLA 




8 




3AE06630 


0376 0153 






STO 


1 


PRTHD-T 


SET UP TO PRINT 2ND CHAR 


3AE06640 


0377 4C18 


0382 


« 


BSC 


L 


LINTX, +- 


BR IF PRINT COMPLETE 


3AE06650 
3AE06660 


0379 7401 


08F1 




MDX 


L 


PRADR, +1 


INCRE PRINT ADDRESS 


3AE06670 


037B 6C00 


08DB 




STX 


L 


L12SH 


SET 1ST/2ND IND 


3AE06680 


037D 7002 




* 


MDX 




LINT2 




3AE06690 
3AE06700 


037E 1010 




LINTl 


SLA 




16 




3AE06710 


037F D13E 




* 


STO 


1 


L12SW-T 


RESET 1ST/2ND IND 


3AE06720 
3AE06730 


0380 09F3 




LINT2 


XIO 


1 


PRINT-T 


PRINT CHARACTER 


3AE06740 


0381 7001 




* 


MDX 




LINTX^-l 


GO TO EXIT 


3AE06750 
3AF06760 


0382 D13C 




LINTX 


STO 


I 


LGBSY-T 


RESET LOG BUSY IND 


3AE06770 


0383 4C80 


0369 


* 


BSC 


I 


LGINT 


RETURN TO INT4 RTN 


3AE06780 
3AE06790 






»♦*♦♦**♦*»»*♦*♦****♦****♦***********=***♦**♦***♦**** 


3AE06800 






* 










3AE06810 



04Tf 


15N0V66 


15JUN67 


ni()rT67 


15SFPhH 


01JUL69 


010CT69 


01JUN70 


PROG in 


03AE-0 


DATE 


15N0V66 


15JUN67 


010CT67 


15SEP68 


C1JUL69 


0inCT69 


01JUN70 


PROG 10 


03A 


F-0 


EC NO. 


419643 


420317 


42C374 


420^16 


■571013 


571066 


571097 


PAGE 


b 


EC NO. 


419643 


420317 


420374 


420416 


571013 


571066 


571097 


PAGE 




bA 
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HEX TO PRINT CONVERSION RTN - HEX 



4> 



0385 
0386 
0387 
0388 
0389 
03 8A 

03 88 
0380 
03 8F 
0390 
0392 
0394 
0395 



0000 
1884 
0009 
1010 
1084 
0001 

6600 0000 
C600 0397 
1888 

6600 0000 
C600 0397 
1088 
4C80 0385 



HEX 



DC 

SRT 

STO 

SLA 

SLT 

STO 





4 

HEX2+1 

16 

4 

HEXl+1 



HEXl LOX L2 *-* 

LD L2 TRTBL 

SRT 8 

HEX2 LOX L2 *-* 

10 L2 TRTBL 

SLT 8 

BSC I HEX 

* 

* 



STORE FIRST HEX CHAR 



STORE SECOND HEX CHAR 

XR2=SEC0ND HEX CHAR 
FETCH PRINTER CODE 
PUT IN 

XR2=FIRST HEX CHAR 
FETCH PRINTER CODE 
COMBINE TWO CHARACTERS 
RETURN TO CALLING ROUTINE 



PRINTER CODE TABLE - TRTBL 



0397 





0OC4 


0398 





OOFC 


0399 





00D8 


039A 





OODC 


039B 





OOFO 


039C 





OOF 4 


03 9D 





OODO 


039E 





O0D4 


039F 





00E4 


03A0 





OOEO 


03A1 





003E 


03A2 





OOIA 


03A3 





OOIE 


03A4 





0032 


03A5 





0036 


03A6 





0012 



TRTBL DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



/00C4 
/OOFC 

/00D8 
/OODC 
/OOFO 
/00F4 
/OODO 
/00D4 
/00E4 
/OOEO 
/003E 
/OOIA 
/OOIE 
/0032 
/0036 
/0012 




1 

2 
3 
4 

5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 



03fi7 4CC0 03A7 



* INTERRUPT LEVEL 4 SERVICE - INT 4 

* 

* 

INTERRUPT ENTRANCE 
SAVE A AND REGS 
SAVE STATUS 
SAVE XR2 

SENSE DSW AND RESET 

SAVE PRINTER DSW 

BR IF SERVICE RESPONSE 



FETCH DSW 

BR IF INT REO KEY 

RESTORE A AND REGS 
RESTORE STATUS 
RFSTORF XR2 
EXIT INTERRUPT 



03A7 





0000 




INT4 


DC 




*-* 


03A8 





D9CD 






STO 


1 


AC2-T 


03A9 





280A 






STS 




STAT2 


03AA 





6A0B 




* 


STX 


2 


XR2A+1 


03AB 





09F5 




XIO 


1 


SNSPR-T 


03AC 





D151 






STO 


1 


PRDSW-T 


03AD 





442 8 


0369 


* 


BSI 


L 


LGINT.Z* 


03AF 





C151 




LO 


1 


PROSW-T 


03B0 





1002 






SLA 




2 


03B1 





4428 


02FF 


ik 


BSI 


L 


SWINT,?* 


03B3 





C9C0 






LOD 


1 


AQ2-T 


03B4 





2000 




STAT2 


LOS 







03B5 





6600 


OOCO 


XR2A 


LOX 


L2 


*-♦ 



BOSC I INT4 



* 

* UNSFRVICFABLF INTERRUPT - ERINT 



3AE06820 
3AE06830 
3AE06840 
3AE06850 
3AE06860 
3AE06870 
3AE06880 
3AE06890 
3AE06900 
3AE06910 
3AE06920 
3AE06930 
3AE06940 
3AE06950 
3AE06960 
3AE06970 
3AE06980 
3AE06990 
3AE07000 
3AE07010 
3AE07020 
3AE07030 
3AE07040 
3AE07050 
3AE07060 
3AE07070 
3AE07080 
3AE07090 
3AE07100 
3AE07110 
3AE07120 
3AE07130 
3AE07140 
3AE07150 
3AE07160 
3AE07170 
3AE07180 
3AE07190 
3AE07200 
3AE07210 
3AE07220 
3AE07230 
3AE07240 
3AE07250 
3AE07260 
3AE07270 
3AE07280 
3AE07290 
3AE07300 
3AE07310 
3AE07320 
3AE07330 
3AE07340 
3AE07350 
3AE07360 
3AE07370 
3AE07380 
3AE07390 
3AE07400 
3AE07410 
3AE07420 
3AE07430 
3AE07440 
3AE07450 
3AE07460 
3AE07470 
3AE07480 
3AE07490 











* 










3AE07500 


03B9 





0000 




ERINT 


DC 




♦-♦ 


INTERRUPT ENTRANCE 


3AE07510 


03BA 





09E7 






XIO 


1 


RESET-T 


RESET SCA 


3AE07520 


03BB 





3003 




HT3 


WAIT 




3 


**ERROR** INTERRUPT OCCURED 


3AE07530 


03BC 





70FE 




* 


MDX 




WT3 


ON LEVEL 0, 2, 3, OR 5 


3AE07540 
3AE07550 










******************************^***iHf*********iHHf**** 


3AE07560 










* 










3AE07570 










* 






END OF TEST PRINT RTN - END 


3AE07580 










* 










3AE07590 










4>4<*4'*4<«**4<*****4<***************4'«4c«*4t4c4c4i*«r*«**«4c*«« 


3AE07600 










* 










3AE07610 


03BD 





4400 


031 F 


END 


BSI 


L 


LOG 


PRINT END TEST 


3AE07620 


03BF 





0400 




* 


DC 




ENDMl 




3AE07630 
3AE07640 


03C0 





C149 






LD 


1 


RCOCT-T 


CONVERT 


3AE07650 


03C1 





1888 






SRT 




8 


-RECORD 


3AE07660 


03C2 





E119 






AND 


1 


HOOFF-T 


COUNT 


3AE07670 


03C3 





4400 


0385 




BSI 


L 


HEX 


TO FOUR 


3AE07680 


03C5 





0400 


0411 


« 


STO 


L 


ENDMS4'9 


PRINT CODE 
CHARACTERS 


3AE07690 
3AE07700 


03C7 





1010 






SLA 




16 


AND STORE 


3AE077I0 


03C8 





1088 






SLT 




8 


IN RECORD 


3AE07720 


03C9 





4400 


0385 




BSI 


L 


HEX 


COUNT MESSAGE 


3AE07730 


03CB 





D400 


0412 


* 


STO 


L 


ENDMS4^10 




3AE07740 
3AE07750 


03C0 





4400 


031F 




BSI 


L 


LOG 


PRINT RECORD COUNT 


3AE07760 


03CF 





0408 




» 


DC 




ENOMS 




3AE07770 
3AE07780 


03D0 





6600 


0A87 




LOX 


L2 


TRCTB 


SET POINTER B TO 


3AE07790 


0302 





6E00 


08EA 


* 


STX 


L2 


PNTB 


START OF TRACE TABLE 


3AE07800 
3AE07810 


0304 





4400 


0207 


ENDl 

* 


BSI 


L 


SWCHK 


CHECK FOR SWITCH ENTRY 


3AE07820 
3AE07830 


03 06 





ClOO 






LD 


1 


swo-r 




3AE07840 


0307 





4C04 


030F 


* 


BSC 


L 


HALT.E 


BR IF HALT SELECTED 


3AE07850 
3AE07860 


03D9 





EllA 






AND 


1 


HOOTC-T 


RESET HALT, MANUAL TERM, 


3AE07870 


030A 





DlOO 






STO 


1 


SWO-T 


AND START OPTIONS 


3AE07880 


030B 





lOOC 






SLA 




12 




3AE07890 


03DC 





4C28 


03FA 


• 


BSC 


L 


END4,Z» 


BR IF BYPASS TRACE 


3AE07900 
3AE07910 


03DE 





C14C 






LD 


1 


PNTA-T 




3AE07920 


030F 





914D 






S 


1 


PNTB-T 




3AE07930 


03E0 





4C28 


03FA 


* 


BSC 


L 


EN04,Z+ 


BR IF TRACE PRINT COMPLETE 


3AE07940 
3AE07950 


03E2 





C480 


08EA 




LD 


I 


PNTB 


FETCH MSG FROM TRACE TBL 


3AE07960 


03E4 





DOll 






STO 




END3+2 


STO IN LOG CALL 


3AE07970 


03E5 





1888 






SRT 




8 




3AE07980 


03E6 





4C08 


03EA 


* 


BSC 


L 


END2,* 


BR IF HEX MSG 


3AE07990 
3AE08000 


03E8 





6300 






LDX 


3 





XR3=0 


3AE08010 


03E9 





700A 




* 


MDX 




END 3 


GO TO PRINT ALPHA MSG 


3AE08020 
3AE08030 


03EA 





4820 




END2 


BSC 




Z 


SKIP IF TWO DIGIT HEX 


3AE08040 


03 EB 





73FF 






MDX 


3 


-1 




3AE08050 


03EC 





7001 






MDX 




EN02A 


BR NOT CARRIER RETURN TIME 


3AF08060 


03ED 





7002 




* 


MDX 




EN028 


BR CARRIER RETURN TIME 


3AE08070 
3AE08080 


03EE 





73FF 




END2A 


MDX 


3 


-1 




3AE08090 


03 EF 





7004 




* 


MDX 




END3 


BR NOT CARRIER RETURN TIME 


3AE08100 
3AE08110 


O3F0 





6314 




END2B 


LDX 


3 


20 




3AE08120 


03F1 





4400 


031F 




BSI 


L 


LOG 


CARRIER RETURN 


3AE08130 


03F3 





0A55 




* 


DC 




TMSGI 




3AE08140 
3AE08150 


03F4 





4400 


031F 


EN03 


BSI 


L 


LOG 


PRINT MFSSAGE 


3AE08160 


03F6 





0000 






DC 




*-* 




3AE08170 



DATF 


I5N0V66 


1^JUN67 


0100167 


15SEP68 


01JUL69 


0inCT69 


0IJUN70 


PROG ID 


03AF-0 


DATE 


15N0V66 


15JUN67 


010CT67 


15SEP68 


01JUL69 


010CT69 


01JUN70 


PROG ID 


03AE-0 


FC NO. 


419643 


420317 


420374 


4? 04 16 


571013 


571066 


571097 


PAGE 
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EC NO. 


419643 


420317 


420374 


420416 


571013 


571066 


571097 


PAGE 
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* 










3AE08180 


042 E 





C2FF 




BUSY 


LD 


2 


-1 


FETCH CONTROL PARAMETER 


3AE08860 






03F7 


7401 


08 E A 




MOX 


L 


PNTB.l 


INCRE TABLE AOR 


3AE08190 


042 F 





180C 






SRA 




12 




3AE08870 






03F9 


700A 




* 


MOX 




ENDl 


GO CHECK FOR MORE TO PRINT 


3AE08200 
3AE08210 


0430 





4C18 


04F0 


* 


BSC 


L 


EXIT,*- 


GO EXIT IF TEST FUNCTION 


3AE08880 
3AE08890 






03FA 


ClOO 




END4 


LO 


1 


SMO-T 


FETCH FUNCTION OPTIONS 


3AE08220 


0432 





9113 






S 


I 


H0004-T 




3AE03900 






03FB 


lOOB 






SLA 




11 




3AE08230 


0433 





4C28 


046C 




BSC 


L 


CLOSE, Z* 


BR IF CLOSE FUNCTION 


3AE08910 






03FC 


4C28 


0209 


* 


BSC 


L 


LOOP, Z+ 


BR IF LOOP PROGRAM 


3AE08240 
3AE08250 


0435 





70E3 




* 


MOX 




SCAT*1 


LOOP UNTIL READY 


3AE08920 
3AE08930 






03FE 


4C00 


OlFB 


* 


BSC 


L 


START+3 


GO MAIT FOR START SELECT 


3AE08260 
3AE08270 


0436 





1010 




NBUSY 


SLA 




16 




3AE08940 
3AE08950 












^i^. 










3AE08280 
3AE08290 


0437 
0438 






0140 
C113 






STO 


I 


DLYA— T 


SET 


3AE08960 












* 






END OF TEST MESSAGES 






LO 


1 


H0004-T 


DELAY 


J '^ t. V t« 7 \^\J 

3AEOa970 












* 










3AE08300 


0439 





D13F 






STO 


1 


OLYB-T 


COUNTERS 


3AE08980 






0400 


3EF0 




ENDMl 


DC 




/3EF0 


A4 


3AE08310 










♦ 










3AEOa990 






0401 


2121 






DC 




/2121 




3AE08320 


043 A 





C2FF 






LD 


2 


-1 


FETCH CONTROL PARAMETER 


3AE09000 






0402 


3676 






DC 




/36T6 


EN 


3AE08330 


043B 





4C20 


0441 




BSC 


L 


NTEST, Z 


BR IF NOT TEST FUNCTION 


3AE09010 






0403 


3221 






DC 




/3221 


D 


3AE08340 










• 










3AE09020 






0404 


9E36 






DC 




/9E36 


TE 


3AE08350 


043 D 





7401 


04F1 




MDX 


L 


EXIT*1,1 


TEST FUNCTION 


3AE09030 






0405 


9A9E 






DC 




/9A9E 


ST 


3AE08360 


043F 





4C00 


04F0 




BSC 


L 


EXIT 


. NOT BUSY EXIT 


3AE09040 






0406 


0000 




* 


DC 









3AE08370 
3AE08380 


0441 





1010 




* 
NTEST 


SLA 




16 




3AE09050 
3AE09060 


' 




0408 


0000 






BSS 


E 







3AE08390 


0442 





013A 






STO 


1 


ERRSH-T 


RESET ERROR SMITCH 


3AE09070 






0408 


2121 




ENOMS 


DC 




/2121 




3AE08400 


0443 





D12C 






STO 


1 


TOINO-T 


CLEAR TIMEOUT INDICATOR 


3AE09080 






0409 


2121 






DC 




/2121 




3AE0B410 


0444 





0135 






STO 


1 


TOCNT-T 


CLEAR TIMEOUT COUNTER 


3AE09090 






040A 


6236 






DC 




/6236 


RE 


3AE08420 


0445 





C14C 






LD 


1 


PNTA-T 


CORRECT 


3AE09100 






040B 


1E52 






DC 




/1E52 


CO 


3AE0e430 


0446 





D14D 






STO 


1 


PNTB-T 


TRACE POINTER 


3AE09110 






040C 


6232 






DC 




/6232 


RD 


3AE08440 


0447 





914A 






S 


1 


CORSZ-T 




3AE09120 






0400 


9A21 






DC 




/9A21 


S 


3AE08450 


0448 





0138 






STO 


1 


OVRCR-T 




3AE09130 






040E 


0000 






DC 




♦-* 


SE, RC 


3AE08460 










* 










3AE09140 






04 OF 


0000 






DC 




*-* 


NT, VD 


3AE08470 


0449 





C2FF 






LD 


2 


-I 


FETCH CONTROL PARAMETER 


3AE09150 






0410 


2121 






DC 




/2121 




3AE08480 


044A 





180C 






SRA 




12 




3AE09160 






0411 


0000 






DC 




*-* 


RECORD 


3AE08490 


044 B 





9113 






S 


1 


H0004-T 




3AE09170 






0412 


0000 






DC 




*-* 


COUNT 


3AE08500 


044C 





4C28 


046C 




BSC 


L 


CLOSE, Z+ 


BR IF CLOSE FUNCTION 


3AE09I80 






0413 


0000 






DC 









3AE08510 










* 










3AE09190 












* 










3AE08520 


044E 





4C08 


0479 




BSC 


L 


OPEN,* 


BR IF OPEN FUNCTION 


3AE09200 






0414 


9A36 




SENT 


DC 




/9A36 


SE 


3AE08530 










* 










3AE09210 






0415 


769E 






DC 




/769E 


NT 


3AE08540 


0450 





911B 






S 


1 


Dl-T 




3AE09220 












« 










3AE08550 


0451 





4C18 


04B7 




BSC 


L 


XMIT,*- 


BR IF XMIT FUNCTION 


3AE09230 






0416 


621E 




RCVD 


DC 




/621E 


RC 


3AE08560 

'v M r^ f\ #% ^- ^m^^ 










* 










3AE09240 
■ 3AE09250 






0417 


B632 






DC 




/B632 


VD 


3AE08570 












■""* 


~"~ ~ ' 
















4< 










3AE08580 










* 






ACK AND RECEIVE FUNCTION - RECV 


3AE09260 












*************************************************** 


3AE08590 










* 










3AE09270 












* 










3AE08600 


0453 





C2FF 




RECV 


LD 


2 


-1 


FETCH CONTROL PARAMETER 


3AE09280 












* 






SCA XMIT/RCV ROUTINE - SCAT 


3AE08610 


0454 





E117 






AND 


1 


HOOFO-T 




3AE09290 












* 










3AE08620 


0455 





D133 






STO 


1 


ILRC-T 


ILRC ON FOR INT LRC CHECK 


3AE09300 












*************************************************** 


3AE08630 










* 










3AE09310 












* 










3AE08640 


0456 





C119 






LD 


1 


HOOFF-T 




3AE09320 






0418 


COOO 




SCAT 


DC 




*-* 




3AE08650 


0457 





0145 






STO 


1 


HOCNT-T 


MAX RCV WORD COUNT 255 


3AE09330 






0419 


6600 


04F2 




LDX 


L2 


INTl 


SET INTERRUPT 


3AE08660 










* 










3AE09340 






041B 


6E00 


0009 




STX 


L2 


/9 


TRANSFER VECTOR 


3AE08670 


0458 





6600 


09DB 




LDX 


L2 


TMSG3 


ACK AND RCV MSG 


3AE09350 












* 










3AE08680 


045A 





4400 


082 B 




BSI 


L 


TRACE 


STORE MSG IN TRACE TABLE 


3AE09360 






041D 


6680 


0418 




tox 


12 


SCAT 


XR2=PARAMETER ADDRESS 


3AE08690 










* 










3AE09370 






041F 


7201 






MOX 


2 


1 


INCRE RETURN 


3AE08700 


045C 





6600 


06A9 




LDX 


L2 


RCH 


SET UP 


3AE09380 






0420 


6E00 


04FI 




STX 


L2 


EXIT*1 


STORE RETURN ADR 


3AE08710 


045E 





6E00 


08FA 




STX 


L2 


HTF 


RESPONSE 


3AE09390 












* 










3AE08720 


0460 





6600 


06C6 




LDX 


L2 


RCR 


ADDRESSES 


3AE09400 






0422 


C129 






LD 


I 


RTBSY-T 




3AE08730 


0462 





6E00 


08F9 




STX 


L2 


RDF 


FOR SERVICING 


3AE09410 






0423 


4C18 


0436 


* 


BSC 


t 


NRUSY,*" 


BR IF RTN NOT BUSY 


3AE08740 
3AE08750 


0464 
0466 






6600 
6E00 


079A 
08FB 




LDX 
STX 


L2 
L2 


RCTIM 
TIMF 


INTERRUPTS 


3AE09420 
3AE09430 






0425 


7401 


08DD 




MOX 


L 


DLVA.l 


INCRE DELAY COUNT A AND 


3AE0a76O 










* 










3AE09440 






0427 


7006 






MOX 




BUSY 


BR IF NOT FULL COUNT 


3AE08770 


0468 





6C00 


08CB 




STX 


L 


XACK 


TURN ON XMIT-ACK 


3AE09450 












* 










3AE08780 


046A 





4C00 


04E1 




BSC 


L 


EXITl 


GO TO CALL EXIT 


3AE09460 






042 8 


74FF 


08DC 




MOX 


L 


DLYB,-1 


OECRF DELAY COUNT B AND 


3AE0a790 

^% A f^ ^\ n f^ ^\ f^ 










* 

*^ — — — 


"""*'" ~ ~ 


""""""' 






3AE09470 
— 3AE09480 






042A 


7003 






MDX 




BUSY 


BR IF NOT ZERO COUNT 


3AE08800 






























* 










3AE08810 










* 






CLOSE FUNCTION - CLOSE 


3AE09490 






042B 


09E7 






XIO 


1 


RESET-T 


RESET SCA 


3AE08820 










* 










3AE09500 






042C 


3001 




KTl 


WAIT 




1 


**ERROR** NO SCA INTERRUPT 


3AE08830 


046C 





6600 


0A39 


CLOSE 


LDX 


L2 


TMSGE 


CLOSE MSG 


3AE0q510 






042D 


70FE 




* 


MOX 




WTl 




3AE08840 
3AE08850 


046E 





4400 


082B 


* 


BSI 


L 


TRACE 


STO MSG IN TRACE TBL 


3AE09520 
3AF09530 




DATE 


15N0V66 1 


15JUN67 


010CT67 


15SEP68 


01JUL69 010CT69 01JUN70 


PROG ID 03AE-0 


DATE 15NnV66 1 


L5JUN67 


010CT67 


15SEP68 01JUL69 01DCT69 01JUN70 


PROG ID 


03AE-0 


EC NO. 


419643 420317 


420374 


420416 


571013 571066 571097 


PAGE 7 


EC NO. 419643 420317 


420374 


420416 571013 571066 571097 
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0470 





09E7 






XIO 


I 


RESET-T 


RESET SCA 




3AE09540 














* 












3AE09550 






0471 





620E 






LOX 


2 


£14 






3AE09560 






0472 





1010 






SLA 




16 






3AF09570 






0473 





0600 


08BB 


CL4A 


STO 


L2 


TAB4-1 


RESET INDICATORS 




3AE09580 






0475 





72FF 






MOX 


2 


-1 






3AE09590 






0476 





70FC 






MOX 




CL4A 






3AE09600 






0477 





4C00 


04F0 


^ 


BSC 


L 


EXIT 


GO TO CALL EXIT 




3AE09610 
3AE09620 
3AE09630 
3AE09640 














* 






OPEN FUNCTION - OPEN 
















* 












3AE09650 






0479 





1010 




OPEN 


SLA 




16 


RESET INDICATORS 




3AE09660 






047A 





0149 






STO 




RCOCT-T 


RECORD COUNT 




3AE09670 






0478 





0136 






STO 




REAOV-T 


INITIAL DATA SET 


ROY INO 


3AE09680 






047C 





0137 






STO 




SYNCI-T 


INITIAL SYNC INO 




3AE09690 






0470 





D14F 




* 


STO 




EX-T 






3AE09700 
3AE09710 






047E 





C155 






LO 




TBAOR-T 


INITIALIZE 




3AE09720 






047F 





D14C 






STO 




PNTA-T 


TRACE 




3AE09730 






0480 





0140 






STO 




PNTB-T 


TABLE 




3AE09740 






0481 





0138 




* 


STO 




OVRCR-T 


OVER CORE INO 




3AE09750 
3AE09760 






0482 





C9FB 






LOO 




ACKS-T 






3AE09770 






0483 





09F9 






STO 




ACK-T 


I NIT. TO SOR2, ACK2 


3AE09780 






0484 





C2FF 






LO 


2 


-I 


CONTROL PARAMETER 




3AE09790 






0485 





lOOC 






SLA 




12 


DIGIT 4 FOR DATA 


I/O 


3AE09800 






0486 





0131 






STO 


1 


TYPE-T 


IN OR OUT 




3AE09810 






0487 





4C18 


04AA 


* 


BSC 


L 


OIN,+- 


BRANCH IF DATA Ih 


1 


3AE09820 
3AE09830 






0489 





CCOO 


0414 




LOO 


L 


SENT 


SET UP END NSG 




3AE09840 






0488 





DC 00 


040E 




STO 


L 


ENOMS+6 


FOR XMIT 




3AE09850 






0480 





6600 


0904 




LOX 


L2 


TMSG2 


OPEN OUT MSG 




3 AE 09 860 






048F 





4400 


082B 




BSI 


L 


TRACE 


STO MSG IN TRACE 


TABLE 


3AE09870 






0491 





09E9 




* 


XIO 


1 


SENO-T 


TURN OFF RCV RUN 


TRIG 


3AE09880 
3AE09890 






0492 





09E5 




0IN2 


XIO 


1 


ENOOP-T 


END OPERATION 




3AE09900 
3AE099IO 






0493 





6600 


057F 




LOX 


L2 


OPH 


SET UP 




3AE09920 






0495 





6E00 


08FA 




STX 


L2 


HTF 


RESPONSE 




3AE09930 






0497 





6600 


05 9F 




LOX 


L2 


OPR 


ADDRESSES 




3AE09940 






0499 





6E00 


08F9 




STX 


L2 


RDF 


FOR SERVICING 




3AE 09950 






0498 





6600 


05C8 




LOX 


L2 


CKOPR 


INTERRUPTS 




3AE09960 






0490 





6E00 


08FB 


* 


STX 


L2 


TIHF 






3AE09970 
3AE09980 






049 F 





6C00 


08CD 




STX 


L 


XEOI 


TURN ON XHIT-EOI 




3AE09990 






04A1 





6C00 


08CF 




STX 


L 


LCNTL 


TURN ON LEADER CNTRL 


3AE10000 






04A3 





09DB 






XIO 


1 


LOAO-T 


LOAD IDLE TO SYNC 


-REG 


3AE10010 






04A4 





0903 






XIO 


1 


SYNC-T 


SEND IDLES 




3AE10020 






04A5 





6600 


09F1 




LOX 


L2 


TMSG5 


S/I=IOLE MSG 




3AE10030 






04A7 





4400 


082B 




BSI 


L 


TRACE 


STO MSG IN TRACE 


TBL 


3AE10040 






04A9 





7030 




* 


MOX 




EXIT2 


GO TO CALL EXIT 




3AE10050 
3AE10060 






04AA 





6600 


09CD 


DIN 


LOX 


L2 


TMSGl 


OPEN IN MSG 




3AE10070 






04AC 





4400 


082B 




BSI 


L 


TRACE 


STO MSG IN TRACE 


TBL 


3AE10080 






04AE 





CCOO 


0416 




LOO 


L 


RCVD 


SET UP END MSG 




3AE10090 






04B0 





DC 00 


040E 


* 


STD 


L 


ENnHS+6 


FOR RECEIVE 




3AE10100 
3AE10110 






04B2 





09EB 






XIO 


1 


RCVTR-T 


TURN ON RCV RUN TRIG 


3AE10120 






04B3 





C9E9 






LOO 


I 


ACK-T 






3AE10130 






04B4 





18D0 






RTE 




16 


RECEIVE TRANSMITS 


ACK2 


3AE10140 






04B5 





D9F9 






STD 


1 


ACK-T 


FIRST 




3AE10150 






04B6 





700B 






MOX 




0IN2 


CONTN PROCESSNG OPEN 


3AE10160 














* 












3AF1017O 














♦ 














3AE10180 








"■ 














« 






TRANSMIT 


FUNCTION - XMIT 




3AE10190 














* 












3AE10200 






04B7 





C2FF 




XMIT 


LO 


? 


-1 


FETCH CONTROL PARAMETER 


3AE10210 




DATE 


15NnV66 15JUN67 


0inCT67 


15SfP68 01JUL69 010CT69 01JUN70 


PROG ID 


03AE-0 


EC NO. 


419643 


i 420317 


4?037A 


APOAlft 571013 571066 571097 


PAGE 


8 





04B8 


EH7 






AND 


1 


HOOFO-T 




3AE10220 






04B9 


0133 






STO 


1 


ILRC-T 


TURN ON ILRC FOR INT LRC 


3AE10230 






04BA 


C200 






LO 


2 







3AE 10240 






04BB 


0147 






STO 


1 


I OAR-T 


SAVE I/O AREA ADDRESS 


3AE10250 






04BC 


C480 


08E4 




LO 


I 


I OAR 




3AE10260 






04BE 


0145 




« 


STO 


1 


HOCNT-T 


SAVE WORD COUNT 


3AE10270 
3AE10280 






04BF 


6600 


05D6 




LOX 


L2 


XMU 


SET UP 


3AE 10290 






04C1 


6E00 


08FA 




STX 


L2 


HTF 


RESPONSE 


3AE 10300 






04C3 


6600 


0645 




LOX 


L2 


XNR 


ADDRESSES 


3AE10310 






04C5 


6E00 


0'8F9 




STX 


L2 


ROF 


FOR SERVICING 


3AE 10320 






04C7 


6600 


0694 




LOX 


L2 


XMT 


INTERRUPTS 


3AE10330 






04C9 


6E00 


08FB 




STX 


L2 


rim 




3AE10340 






04C8 


7401 


04F1 


* 


MOX 


L 


EXIT*l,+l 




3AE10350 
3AE 10360 






04CD 


1010 






SLA 




16 




3AE10370 






04CE 


0130 






STO 


1 


XEOl-T 


fURN OFF XNIT-EOI 


3AE10380 






04CF 


C480 


0418 




LO 


I 


SCAT 


CONTROL PARAMETER 


3AE10390 






0401 .0 


E118 




« 


AND 


1 


HOFOO-T 


DIGIT 2 FOR EOT 


3AE 10400 
3AE 10410 






0402 


4C20 


040B 


* 


BSC 


L 


SEOT.Z 


BR IF EOT 


3AE 10420 
3AE 10430 






0404 


6600 


09E7 




LOX 


L2 


TNSG4 


XM DATA MSG 


3 AE 10440 






04D6 


4400 


0828 




BSI 


L 


TRACE 


STORE MSG IN TRACE TBL 


3AE 10450 






0408 


6C00 


08CI 




STX 


L 


XSOR 


TURN ON XMIT-SOR 


3AE 10460 






04DA 


7006 




* 


NDX 




EXITl 


60 TO CALL EXIT 


3AE104T0 
3AE104S0 






040B 


0126 




SEOT 


STO 


1 


XEOT-T 


TURN ON XMIT-EOT 


3AE10490 






040C 


6600 


0A33 




LOX 


L2 


TNSGO 


XM EOT MSG 


3AE10500 






04DE 


4400 


082B 




BSI 


L 


TRACE 


STORE MSG IN TRACE TBL 


3AE10510 






04EO 


7006 




* 

* 


MOX 





EXIT2 
EXIT CALL 


GO TO CALL EXIT 
PROCESSING ROUTINE - EXITl 


3AE10520 
3 AE 10530 
3AE10S40 
3AE10550 
3AE10560 






04EI 


C9F9 




EXITl 


LDO 


1 


ACK-T 


NEXT SOR TO RECEIVE 


3AE 10570 






04E2 


1800 






RTE 




16 




3AE 10580 






04E3 


D9F9 






STD 


1 


ACK-T 


NEXT ACK TO TRANSMIT 


3AE10590 






04E4 


C15A 






LO 


1 


DOOOX-T 


NUMBER OF IDLES TO 


3AE 10600 






04E5 


D15B 






STO 


1 


lOLCT-T 


PRECEED TRANSMISSION 


3AE10610 






04E6 


0901 




* 


XIO 


1 


STHRT-T 


START WRITE 


3AE 10620 
SAE 10630 






04E7 


6C00 


08C6 


EXIT2 


STX 


L 


RTBSY 


TURN ON ROUTINE BUSY 


3 AE 10640 






04E9 


6C00 


08CC 




STX 


L 


FAIL 


TURN ON FAIL INO 


3AE10650 






04EB 


lOlO 






SLA 




16 




3AE 10660 






04EC 


0139 






STO 


1 


ENOSW-T 


TURN OFF END OF TEST INO 


3AE10670 






04ED 


D12A 






STO 


1 


CLTM-T 


TURN OFF LOAD CL INO 


3AE 10680 






04EE 


0128 






STO 


1 


TLTM-T 


TURN OFF LOAD TL INO 


3AE 10690 






04EF 


6300 




* 


LOX 


3 







3AE10700 
3AE10710 






04F0 


4C00 


0000 


EXIT 

* 


BSC 


L 


*-* 




3AE10720 
3AE10730 












*4c«:4i*4:**«:4:***4:*«***«*4c*4<%**««:1c4r*»«:4c*4'4c****4l******** 


3AE10740 












* 










3AE 10750 












* 






SCA INTERRUPT PROCESSING - INTl 


3AE10760 












* 










3AE10770 












**************************************************:* 


3AE 10780 












* 










3AE 10790 






04F2 


0000 




INTl 


DC 




*-♦ 


INTERRUPT ENTRY 


3AE 10800 






04F3 


09C8 






STD 


1 


AO-T 


SAVE A AND Q REGS 


3AE10810 






04F4 


6E00 


0813 




STX 


L2 


XR2+1 


SAVE INDEX REG 2 


3AE10820 






04F6 


6F00 


0815 




STX 


L3 


XR3*1 


SAVE INDEX REG 3 


3AE10830 






04F8 


6300 






LOX 


3 







3AE10840 






04F9 


C400 


082B 




LO 


L 


TRACE 




3AE10850 






04FB 


014B 




♦ 


STO 


1 


SAVE-T 




3AEI0860 
3AE10e70 






04FC 


1010 






SLA 




16 




3AE10880 






04FD 


014E 






STO 


1 


PNTC-T 




3AE10890 




DATE 


15NnV66 15JUN67 


010CT67 


15SEP68 01JUL69 010CT69 01JUN70 


PROG 10 


03AF-0 


EC NO. 


419642 


1 420317 


420374 


420416 571013 571066 571097 
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CAFE 





OlAO 




STO 


1 


DLYA-T 


SET 


3AE10900 






04FF 





C113 




LD 


1 


H0004-T 


DELAY 


3AE10910 






0500 





D13F 


* 


STO 


1 


OLYB-T 


COUNTERS 


3AE10920 
3AE10930 






0501 





09E3 




XIO 


1 


SENSR-T 


SENSE DSW AND RESET 


3AE10940 






0502 





0143 


* 


STO 


1 


DSW-T 


SAVE DSW 


3AE10950 
3AE 10960 






0503 





4C28 0500 


* 


BSC 


L 


READI,£Z 


BR IF READ RESPONSE 


3AE10970 
3AE10980 






0505 





1001 




SLA 




1 




3AE10990 






0506 





4C28 052F 


* 


BSC 


L 


FAILC, £Z 


BR IF WRITE RESPONSE 


3AE11000 
3AE11010 






0508 





1003 




SLA 




3 




3AE11020 






0509 





4C02 0566 


* 


BSC 


L 


TMCHK.C 


BR IF TIMEOUT 


3AE11030 
3AE11040 






050B 





4C00 080D 


* 

^ , ,, 


BSC 


L 


INTX+2 


GO TO RESTORE AND EXIT 


3AEI1050 
3AE11060 
3AE11070 


























* 






READ RESPONSE - REAOI 


3AE11080 












* 










3AE11090 






050D 





1003 


REAOI 


SLA 




3 




3AE11100 






050E 





4C28 056B 


* 


BSC 


L 


TMCHK.Z* 


BR IF TIMEOUT, IGNORE READ 


3AE11110 
3AE11120 






0510 





6C00 0804 




STX 


L 


SYNC I 


TURN ON INITIAL SYNC INO 


3AE11130 






0512 





0905 


* 


XIO 


1 


REAO-T 


RD CHAR INTO BUFFER 


3AE11140 
3AE11150 






0513 





C125 




LO 


1 


DATA-T 




3AE11160 






051A 





4CA0 08F9 


* 


BSC 


I 


RDF»Z 


BR IF RECEIVING DATA 


3AEill70 
3AE111B0 






0516 





4400 084C 


♦ 


BSl 


L 


ITRCH 


STORE CHAR IN TRACE TBL 


3AE11190 
3AE11200 






0518 





C132 




LD 


1 


LCNTL-T 




3AE11210 






0519 





4C98 08F9 


* 


BSC 


I 


ROF,*- 


BR IF LEADER CONTROL OFF 


3AE11220 

3AE11230 






051B 





C142 




LD 


1 


BUF-T 




3AE11240 






051C 





D12D 




STO 


1 


CLSW-T 


BUF=CL CL SW ON 


3AE11250 






051D 





F105 




EOR 


1 


CLC-T 




3AE11260 






051E 





4C18 052C 


* 


BSC 


L 


TLCL*1,+- 


BR IF BUF=CL 


3AE11270 
3AE11280 






0520 





FIOF 




EOR 


1 


H6000-T 




3AE11290 






0521 





4C18 052B 


* 


BSC 


L 


TLCL,+- 


BR IF BUF=TL 


3AE11300 
3AE11310 






0523 





6303 




LDX 


3 


3 


INVALID LEADER MSG NUMBER 


3AE11320 






052A 





09E5 




XIO 


1 


ENOOP-T 


END SCA OPERATION 


3AE11330 






0525 





09CF 




XIO 


1 


STRED-T 


START READ 


3AE11340 






0526 





6600 0A42 




LDX 


L2 


TMSGF 


ENDOP, ST RO MSG 


3AE11350 






0528 





4400 0845 




BSl 


L 


ITRCA 


STORE MSG IN TRACE TBL 


3AE11360 






052A 





7002 


4c 


MDX 




TLCL+2 




3AE11370 
3AE11380 






0528 





D120 


TLCL 


STO 


1 


CLSW-T 


TURN OFF CL RCVD INO 


3AE11390 






052C 





0132 




STO 


1 


LCNTL-T 


TURN OFF CONTROL LEADER 


3AE11400. 






052D 





4C00 0800 


* 
% 


BSC 


L 


INTX*2 


GO TO RESTORE AND EXIT 


3AE11410 
3AE11420 
3AE11430 
3AE11440 












* 






WRITE RESPONSE - FAILC 












* 










3AE11450 






052F 





lOlC 


FAILC 


SLA 




16 




3AE11460 






0530 





D12F 




STO 


1 


FAIL-T 


TURN OFF FAIL IND 


3AE11470 






0531 





6C00 0803 


* 


STX 


L 


READY 


TURN ON INITIAL RDY IND 


3AE11480 
3AE11490 






0533 





C15B 




LD 


1 


IDLCT-T 


IF NO IDLES TO WRITE 


3AE11500 






053A 





4C08 053F 


* 


BSC 


L 


XMPA0,+ 


BR TO CK FOR PAD TO WRITE 


3AE11510 
3AE11520 






0536 





911B 




S 


1 


Dl-T 


DECRE NUM. OF IDLES BY 1 


3AE11530 






0537 





D15R 




STO 


1 


lOLCT-T 




3AE11540 






0538 





C1C7 




LD 


I 


lOLE-T 


FETCH IDLE CHARACTER 


3AE11550 






0539 





0142 




STO 


1 


BUF-T 




3AE11560 






053A 





09D7 




XIO 


I 


WTBUF-T 


WRITE IDLE 


3AE11570 




DATE 


15N0V66 15JUN67 


0100167 


15SEP68 01JUL69 010CT69 01JUN70 


PROG ID 


03AF-0 


EC NO- 


A196A3 420317 


42 03 74 


4?0416 571013 571066 571097 
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053B 





4400 


084C 




BSl 


L 


ITRCH 


STORE CHAR IN TRACE TBL 


3AE11580 






0530 





4C00 


080B 


* 


BSC 


L 


INTX 


GO TO RESTORE AND EXIT 


3AE11590 
3AE11600 






053F 





CllF 




XMPAD 


LD 


1 


XPAO-T 


IF NO PAD TO WRITE 


3AE11610 






0540 





4C98 


08FA 


* 


BSC 


I 


WTF,£- 


BR TO SERVICE WRT RESP 


3AE11620 
3AE11630 






0542 





C114 






LD 


1 


HFFOO-T 


FETCH PAD CHARACTER 


3AE11640 






0543 





0142 






STO 


1 


BUF-T 




3AE11650 






0544 





0907 






XIO 


1 


HTBUF-T 


WRITE PAO 


3AE11660 






0545 





4400 


084C 




BSl 


L 


ITRCH 


STORE CHAR IN TRACE TBL 


3AE11670 






0547 





1010 






SLA 




16 




3AE11680 






0548 





OllF 




* 


STO 


1 


XPAD-T 


TURN OFF XNIT-PAO IND 


3AE11690 
3A El 1700 


- 




0549 





C12B 






LD 


1 


TLTM-T 




3AE11710 






054A 





4C20 


0555 


* 


8SC 


L 


RTL.Z 


BR IF LOAD TL IND ON 


3AE11720 
3AE11T30 






054C 





C12A 






LD 


1 


CLTM-T 




3AE11740 






054D 





4C20 


0550 


* 


BSC 


L 


RCL,Z . 


BR IF LOAD CL IND ON 


3AE11750 
3AE11760 






054F 





6600 


09FD 




LOX 


L2 


TMSG6 


ST RD MSG 


3AEI1770 


' 




0551 





4400 


0845 




BSl 


L 


ITRCA 


STORE MSG IN TRACE TBL 


3AE11780 






0553 





COOO 






LD 




• 


TURN LEADER CONTROL IND ON 


3AE11790 






0554 





7012 




* 


MDX 




RD2 




3AE11800 
3AEliai0 






0555 





09DF 




RTL 


XIO 


1 


LDTL-T 


LOAD TL TO SYNC REG 


3AE11820 






0556 





6600 


0A02 




LDX 


L2 


TMS67 


S/I=TL, ST RO MSG 


3AE11S30 






0558 





4400 


0845 




BSl 


L 


ITRCA 


STORE MSG IN TRACE TABLE 


3AE11840 






055A 





1010 






SLA 




16 


TURN OFF LEADER CONTROL 


3AE11850 






055B 





0120 






STO 


1 


CLSM-T 


TURN OFF CL SWITCH 


3AElt860 






05 5C 





7008 




♦ 


MDX 




ROl 




3AE11870 
3AE11B80 






055D 





09DD 




RCL 


XIO 


1 


LDCL-T 


LOAD CL TO SYNC-REG 


3AE11890 






055E 





6600 


OAOB 




LDX 


L2 


TMSG8 


S/I=CL, ST RD MSG 


3AE11900 






0560 





4400 


0845 




BSl 


L 


ITRCA 


STORE MSG IN TRACE TABLE 


3AEtl910 






0562 





6C0O 


08CA 




STX 


L 


CLSW 


TURN ON CL SMITCH 


3AE11920 






0564 





1010 




* 


SLA 




16 


TURN OFF LEADER CONTROL 


3AE11930 
3AE11940 






0565 





D12A 




RDl 


STO 


1 


CLTM-T 


TURN OFF LOAD CL IND 


3AE11950 






0566 





D12B 




* 


STO 


1 


TLTM-T 


TURN OFF LOAD TL INO 


3AE 11960 
3AE11970 






0567 





0132 




R02 


STO 


1 


LCNTL-T 


LEADER CONT ON OR OFF 


3AE11980 






056 8 





09CF 






XIO 


1 


STRED-T 


START READ 


3AE11990 






0569 





4C00 


0800 


* 


BSC 


L 


INTX*2 


BR TO RESTORE AND EXIT 


3AE12000 
3AE12010 
3AEI2020 














■*" -^ ~ ■■ 








.m. 














* 






TIMEOUT - 


TMCHK 


3AE12030 














* 










3AE12040 






0568 





09E5 




TMCHK 


XIO 


1 


ENDOP-T 


END SCA OPERATION 


3AE12050 






056C 





6C00 


08CF 


* 


STX 




LCNTL 


TURN ON LEADER CONTROL 


3AE12060 
3AE12070 






056E 





C12F 






LO 


1 


FAIL-T 




3AE12080 






056F 





4C98 


08FB 


* 


BSC 




TIMF,*- 


BR IF OS FAIL INO OFF 


3AE12090 
3AE12100 






0571 





C136 






LD 


1 


READY-T 




3AE12110 






0572 





4C20 


0578 


* 


BSC 




DFAIL.Z 


BR IF OS RDY FAILURE 


3AE12120 
3AE12130 






0574 





74FF 


08EA 




MDX 




PNTB,-l 


DECRE TRACE POINTER 


3AE12140 






0576 





6310 






LOX 


3 


16 


DATA SET NOT RDY MSG 


3AE12150 






0577 





7005 




* 


MDX 




X 




3AE12160 
3AE12170 






0578 





6600 


0A2B 


OFAIL 


LDX 


L2 


TMSGC 


ERR TIMEOUT MSG 


3AE12180 






057A 





4400 


0845 




BSl 




ITRCA 


STORE MSG IN TRACE TABLE 


3AE12190 






057C 





6301 






LDX 


3 


1 


DATA SET FAIL MSG 


3AE12200 






057D 





4C00 


07F0 


X 

« 


BSC 


L 


XMITI 


GO TO SEND IDLES 


3AE12210 
3AE12220 














^ 





• 





— . 


3AE12230 














* 






WRITE RESPONSE FOR OPEN - OPW 


3AE12240 














* 










3AE12250 




DATE 


15N0V66 15JUN67 


010CT67 


15SEP68 01JUL69 0inCT69 01JUN70 


PROG If) 


03AE-0 


EC NO. 


419643 420317 


420374 
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057F 
0580 

0582 

0583 

0585 

0586 



C132 
*C18 0591 

C131 
^C18 0804 

C129 
4020 058A 



OPW 



0588 6C00 08C0 



LD 
8SC 

LD 
BSC 

LD 
BSC 

STX 



1 LCNTL-T 

L XFOTQ.e- 

1 TYPE-T 

L WTCLtS- 

1 RTBSY-T 

L BSY.Z 

L XEOI 



058A 
058B 
05 8C 

0580 

05 8F 

0591 

0592 

0594 

0595 

0597 

0598 

059A 
059B 



C130 
E926 
E921 

4C20 0804 

4C00 0802 

C126 
4C20 0702 

C121 
4C20 07DA 

C130 
4C20 0706 

0131 
4C18 0706 



* 
BSY 



LD 
OR 
OR 
* WRITE CL 
BSC 

BSC 

XEOTO LO 
BSC 

LD 
BSC 



1 XEOI-T 

1 XEOT-T 

1 XTEL-T 
IF XEOIt XEOT, OR XTEL ON 
L HTCL.Z 



BR IF LEADER CONTROL OFF 

IS DATA IN 
YES, GO WRITE CL 



BR IF ROUTINE IS BUSY 
TURN ON XMIT-EOI IND. 
DATA OUT 



LD 
BSC 

LD 
BSC 



059D 4C00 07CE 



059F 6C00 08CF 
05A1 C128 
05A2 4C20 07EA 

05A4 C12D 
05A5 4C18 05BE 

05A7 C142 
05A8 FlOA 
05A9 4C18 07E7 

05AB FlOE 
05AC 4C18 07F0 

05AF FlOO 
05AF 4C18 07ED 

05B1 C131 
05R2 4C18 05Bft 

05B4 C14? 
05R5 FIFB 
0586 4820 
05B7 FIOC 
05B8 4C18 05C5 

05BA 6305 
05RB 7004 

05RC 6314 
0580 7008 



OPR 



STX 
LO 

BSC 

LD 
BSC 

LD 

EOR 

BSC 

EOR 
BSC 

EOR 
BSC 

LD 
BSC 

LD 

FOR 

BSC 

EOR 

BSC 



OPFRR LDX 
MOX 
* 
OPFRl IDX 

MDX 



L WTTL 

I XEOT-T 
L WTEOT.Z 

1 XTEL-T 
L MTTELtZ 

1 XEOI-T 
L MTEOI,Z 

1 TYPE-T 
L WTEOI,*- 



BSC L WTINQ 



GO TO WRITE TL 

BR IF XEOT ON 

BR IF XTEL ON 

BR IF XEOI ON 

HR IDLE IF DATA IN 
GO TO WRITE INQ 



READ RESPONSE FOR OPEN - OPR 

TURN ON LEADER CONTROL 
BR IF RCV-ERR ON 



L LCNTL 

1 RCVER-T 
L XMEOI.Z 



1 CLSW-T 

L INQO.e- 

l BUF-T 
1 EOTC-T 
L XHEOT,<~ 

l H6300-T 
L XMITI.t- 

1 H6500-T 
L XMTEL,*- 

1 TYPE-T 
L OPERR.t- 

1 BUF-T 
1 ACKS-T 

Z 
1 GMC-T 
L OPRFX,+- 

3 5 

0PRFX4-1 

3 20 

CPREX+1 



BR IF LAST CHAR A TL 

BUF « EOT 

BR IF BUF=EOT 

BUF « IDLE 

BR IF BUF • IDLE 

BUF it TFL 

BR IF BUF = TEL 

BR IF DATA IN, ERROR 



CHFCK FOR 

EITHER 
aCKl OR ACK2 
BR IF FITHFR 

INVALID CONT SEO MSG 



CONTFNTinN MSG 



3AE12260 
3AE12270 
3AE12280 
3AE12290 
3AE12300 
3AE12310 
3AE12320 
3AE12330 
3AE12340 
3AE12350 
3AE12360 
3AE12370 
3AE12380 
3AE12390 
3AE12400 
3AE12410 
3AE12420 
3AE12430 
3AE12440 
3AE12450 
3AE 12460 
3Aei2470 
3AE12480 
3AE12490 
3AE 12500 
3AE12510 
3AE12520 
3AE12530 
3AE12540 
3AE12550 
3AE12560 
3AE12570 
3AE12580 
3AE12590 
3AE12600 
3AE12610 
3AE12620 
3AE12630 
3AE 12640 
3AE 12650 
3AE 12660 
3AE 12670 
3AE 12680 
3AE12690 
3AE 12700 
3AE12710 
3AE12720 
3AE12730 
3AE12740 
3AE12750 
3AE12760 
3AE12770 
3AE12780 
3AE12790 
3AF12800 
3AF12810 
3AF12820 
3AE12830 
3AE12840 
3AE12850 
3AE12860 
3AE12870 
3AE12880 
3AF12890 
3AE12900 
3AE12910 
3AE12920 
3AE12930 



05BE C142 
05BF F108 
05C0 4C20 05BA 

05C2 C131 
05C3 4C20 05BC 

05C5 D129 
05C6 4C00 07F0 



05C8 C137 
05C9 4020 05CF 

05CB 74FB 08EA 
05CD 6311 
05CE 7005 

05CF 6600 0A2B 
05DI 4400 0845 
05D3 6302 
0504 4C00 07EA 



05D6 C121 
0507 4C20 0611 

0509 C126 
05DA 4C20 0615 

050C C130 
0500 4C20 0619 

05DF C123 
05E0 4C20 061F 

05E2 C124 
05E3 4C20 0623 

05E5 C127 
05E6 4C20 062F 

05E8 C146 
05E9 4C18 0637 

05EB 911B 
05EC D146 

05E0 C480 08E5 

05EF 7400 08DA 
05FI 7004 

05F2 1808 
05F3 6C00 080A 
05F5 7006 

05F6 D142 
05F7 1010 
05F8 D13D 
05F9 7401 08E5 
05FB C142 

05FC 1008 



INOQ 


LD 


1 


BUF-T 


LAST CHAR. WAS TL 


3AE12940 




EOR 


1 


INQC-T 


BUF» INQ 


3AE12950 




BSC 


L 


OPERR.Z 


BR IF BUF NOT « INQ 


3AF 12960 


* 










3AE12970 




LD 


1 


TYPE-T 




3AE 12980 




BSC 


L 


OPERl.Z 


BR IF DATA OUT, 


3AE12990 


« 








INQ RCVO 


3AE 13000 


OPREX 


STO 


I 


RTBSY-T 


TURN OFF RTN BUSY 


3AE13010 




BSC 


L 


XMITI 


GO TO SEND IDLES 


3AE13020 


* 










3AE13030 


4r ... 










3AE13040 
3AE13050 


♦ 






TIMEOUT 


FOR OPEN - CKOPR 


* 










3AE13060 


CKOPR 


LO 


1 


SYNC I -T 




3AE13070 




BSC 


L 


NOSYN, Z 


BR IF PREVIOUS SYNC 


3AE13080 


* 










3AE13090 




NOX 


L 


PNTB,--5 


OECRE TRACE POINTER 


3AE13100 




LDX 


3 


17 


NO SYNC MSG 


3AE13110 




MOX 




XI 




3AE13120 


4> 










3AE13130 


NOSYN 


LDX 


L2 


TMSGC 


ERR TIMEOUT MSG 


3AE13140 




BSI 


L 


ITRCA 


STORE MSG IN TRACE TABLE 


3AE13150 




LDX 


3 


2 


LOST SYNC MSG 


3AE13160 


XI 


BSC 


L 


XHEOI 


GO TO SEND EOI 


3AE13170 


* 










3AE13180 


^^ ^ ^_, 










3AE13190 




^ ~ '" " ~ 


^~""* 






* 






WRITE RESPONSE FOR XMIT - XNM 


3AE13200 


* 










3AE13210 


XNW 


LO 




XTEL-T 


IS XMIT-TEL ON 


3AE13220 




BSC 


L 


TEL7,Z 


YES , BRANCH 


3AE13230 


* 










3AEI3240 




LD 




XEOT-T 


IS XMIT-EOT ON 


3AE 13250 




BSC 


L 


EOTT.Z 


YES, BRANCH 


3AE13260 


* 










3AE13270 




LD 




XEOI-T 


IS XMIT-EOI ON 


3AE13280 




BSC 


L 


E0I7,Z 


YES, BRANCH 


3AE13290 


* 










3AE13300 




LO 




XINO-T 


IS XMIT-INQ ON 


3AE13310 




BSC 


L 


INQ7,Z 


YES. BRANCH 


3AE13320 


* 










3AE13330 




LO 




XSOR-T 


IS XMIT-SOR ON 


3AE13340 




BSC 


L 


SORT, 2 


YES, BRANCH 


3AE13350 


* 










3AE13360 




LD 




XRLRC-T 


IS XR-ILRC ON 


3AE13370 




BSC 


L 


ILRCT.Z 


YES, BRANCH 


3AE13380 


* 










3AE13390 




LD 




COUNT-T 


IS HD CNT ZERO 


3AE13400 




BSC 


L 


QLRCe- 


YES, BRANCH 


3AE13410 


* 










3AE13420 




S 




Ol-T 


DECREMENT WORD COUNT 


3AE13430 




STO 




COUNT-T 




3A El 3440 


* 










3AE13450 




LO 


I 


POINT 


PICK UP CHARACTER 


3AE13460 


* 










3AE13470 




MDX 


L 


RIGHT 




3AE13480 




MDX 




XMWI 


BR IF XMIT RIGHT BYTE 


3AE13490 


* 










3AF13500 




SRA 




8 




3AE13510 




STX 


L 


RIGHT 


TURN ON RIGHT BYTE IND 


3AE13520 




MOX 




XMW2 




3AE13530 


* 










3AF13540 


XMWI 


STO 


1 


BUF-T 




3AE13550 




SLA 




16 




3AE13560 




STO 


1 


RIGHT-T 


TURN OFF RIGHT BYTE IND 


3AF13570 




MOX 


L 


POINT, 1 


INCRE I/O AREA POINTER 


3Afl3580 




LO 


I 


BUF-T 




3AF13590 


* 










3AE13600 


XMW2 


SLA 




8 




3AE13610 



lAIF 


15N0V66 


15JUN67 


0inCT6T 


15SEP68 


01JIJL69 


010CT69 


01JUN70 


PROG in 


03AE-0 


OATF 


15N0V66 


15JUN67 


010CT67 


15SEP68 


01JUL69 


010CT69 


01JUN70 


PROG in 


03AF-0 


C NO. 


4l%43 


420317 


420374 


4?0416 


571013 


571066 


571097 


PAGE 


10 


FC NO. 


419643 


420317 


420374 


420416 


571013 


571066 


571097 


PAGE 


lOA 
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O5F0 





0142 






STO 


1 


BUF-T 


STORE CHAR TO XNIT 


3AF13620 










* 










3AE14300 






05FE 





F144 






EOR 


1 


LRC-T 


BUILD LRC 


3AE13630 


0630 





6C00 


08C7 




STX 


L 


CLTM 


TURN ON LOAD CL IND 


3AE14310 






05FF 





0144 




* 


STO 


1 


LRC-T 




3 AE 13640 
3AE13650 


063F 
0641 






6C00 
7OE0 


08BC 




STX 

MOX 


L 


XPAD 
ILRC7 


TURN ON XMIT-PAO 
GO TO XMIT LRC 


3AE14320 
3AE14330 






0600 





C142 






LD 


1 


BUF-T 




3AE13660 










* 










3AE14340 






0601 





FlOB 






EOR 


I 


RM-T 


IS CHAR A REC MARK 


3AE13670 


0642 





COOO 




FILL 


LD 




* 




3AE14350 






0602 





4820 






BSC 




Z 




3AE13680 


0643 





0130 






STO 


1 


XEOI-T 


TURN ON XMIT-EOI 


3AE14360 






0603 





FIOC 






EOR 


1 


GMC-T 


IS IT A GROUP MARK 


3AE13690 


0644 





7008 






MDX 




XCL 


BR TO SEND CL 


3AE14370 






0604 





4B20 






BSC 




I 




3AE13700 










* 










3AE14380 






0605 





7004 






MOX 




DATAC 


BYPASS ILRC CHECK 


3AE13710 
3AE 13720 




















^ A r* V ^ "k r%r% 








♦ 












* 






READ RESPONSE FOR XMIT - xm 


3AEI4390 

3AE14400 






0606 





C133 






LD 


1 


I LRC-T 


IF ILRC IS REQUESTED 


3AE13730 










* 










3AE14410 






0607 





0127 






STO 


1 


XRLRC-T 


TURN ON XR-ILRC 


3AEI3740 


0645 





6C00 


08CF 


XMR 


STX 


L 


LCNTL 


TURN ON LEADER CONTllOL 


3 AE 14420 






0608 





4C20 


O&OE 




BSC 


L 


SVDTA. Z 


BR IF ILRC REQ 


3AEI3750 


0647 





C128 






LD 




RCVER-T 




3AE14430 














* 








• 


3AE13760 


0648 





4C20 


068C 




BSC 


L 


CNTER*1,Z 


BR IF ERR RCVO IND ON 


3AE14440 






060A 





4400 


0856 


DATAC 


BSI 


L 


GOATA 


GO TO STORE DATA IN TRACE 


3AE13770 










* 










3AE 14450 






06 OC 





4C00 


07E2 




BSC 


L 


HTEND*5 


GO TO XNIT DATA 


3AE13780 


064A 





C12D 






LD 




CLSH-T 




3A El 4460 














* 










3AE13790 


064B 





4C18 


068B 




BSC 


L 


CNTER,«~ 


BR IF LAST CHAR NOT CL 


3AE14470 






060E 





C142 




SVDTA 


LO 


1 


BUF-T 


FETCH CHAR TO XHIT 


3AE13800 










* 










3AE14480 






060F 





4C00 


07 EO 


* 


BSC 


L 


HTEND«^3 


XMIT CHAR AND TRACE 


3AE13810 
3AE13820 


064D 
064 E 







C142 
F109 






LO 

EOR 




BUF-T 
TELC-T 


BUF « TEL 


3AE 14490 
3AE14500 


* 




0611 





C132 




TEL7 


LD 


1 


LCNTL-T 




3AE13830 


064F 





4C18 


067 E 




BSC 


L 


ALTER, e- 


YES, BRANCH 


3AE14S10 






0612 





4C18 


070A 


* 


BSC 


L 


HTTEL,*- 


GOTO SEND TEL 


3AE13840 
3AE13S50 


0651 





C122 




* 


LD 




TEL-T 




3AE14520 
3AE 14530 






0614 





7008 




♦ 


MOX 




XCL 


GOTO SEND CL 


3AE13860 
3AE13870 


0652 





4C20 


068B 


* 


BSC 


L 


CNTER.Z 


TEL SW ON, TRY AGAIN 


3AE14S40 
3AE14550 






0615 





C132 




E0T7 


LO 


1 


LCNTL-T 




3AE13880 


0654 





C126 






LD 




XEOT-T 




3AE 14560 






0616 





4C18 


0704 


* 


BSC 


L 


«TEaT*2,+- 


GOTO SEND EOT 


3AE13890 
3AE13900 


0655 





4C18 


0660 


* 


BSC 


L 


CKACK, C- 


GO CK ACK IF OFF 


3AE14570 
3AE14S60 






0618 





7004 




* 


MOX 




XCL 


GOTO SEND CL 


3AE13910 
3AE13920 


0657 
0658 






C142 

FlOA 






LD 
EOR 




BUF-T 
EOTC-T 


XMIT-EOT IS ON, 
IS BUFKEOT 


3 AE 14590 
3AE14600 






0619 





012A 




E0I7 


STO 


1 


CLTM-T 


TURN ON LOAD CL I NO 


3AE13930 


0659 





4C18 


07BA 




BSC 


L 


ENTST,*- 


EOT RCVO, END OF TEST 


3AE14610 






061A 





C132 






LD 


1 


LCNTL-T 




3AE13940 










* 










3AE14620 






061B 





401 8 


0706 


♦ 


BSC 


L 


WTEOI.*- 


GO TO SEND IDLE 


3AE13950 
3AE 13960 


065B 
065C 






C142 
F107 






LO 
EOR 




BUF-T 
lOLE-T 




3AE14630 
3AE 14640 






0610 





4C00 


0804 


XCL 

* 


BSC 


L 


HTCL 


GOTO SEND CL 


3AE13970 
3AE13980 


0650 





4C20 


068B 


* 


BSC 


L 


CNTER,Z 


BR IF NOT IDLE 


3AE 14650 
3AE14660 






061F 





C132 




INQ7 


LO 


1 


LCNTL-T 




3AE13990 


065F 





702C 






MDX 




CNTER+1 




3AE14670 






0620 





4C18 


07CE 




BSC 


L 


HTINQ,*- 


GOTO SEND I NO 


3AE14000 










* 










3AE14680 














* 










3AE14010 


0660 





C142 




CKACK 


LD 




BUF-T 


IS RIGHT ACK IN BUF 


3AE14690 




" 


0622 





7001 






MOX 




SORTEl 


GOTO SEND TL 


3AE 14020 


0661 





F1F9 






EOR 




ACK-T 




3AE14700 














* 










3AE14030 


0662 





4C20 


0668 




BSC 


L 


NOACK, Z 


NO, BRANCH 


3AE14710 






0623 





C132 




S0R7 


LO 


I 


LCNTL-T 




3AE14040 










* 










3AE14720 






0624 





4C20 


0802 




BSC 


L 


MTTL.Z 


GOTO SEND TL 


3AE14050 


0664 





D123 






STO 




XINQ-T 


YES, TURN OFF XINQ 


3AE14730 














* 










3AE14060 


0665 





7401 


08E6 




MDX 


L 


RCDCT,1 


INCRE RECORD COUNT 


3AE 14740 






0626 





0124 






STO 


1 


XSOR-T 


TURN OFF XMIT-SOR 


3AE14070 


0667 





7018 






MDX 




DB-1 


GO CLEAR ROUTINE BUSY 


3AE14750 






0627 





C145 






LD 


1 


HDCNT-T 




3AE14080 










* 










3AE 14760 






0628 





0146 






STO 


1 


COUNT-T 


SET UP WORD COUNT, 


3AE14090 


0668 





C142 




NOACK 


LD 




BUF-T 




3AE14770 






0629 





C147 






LO 


1 


lOAR-T 


I/O AREA POINTER 


3AE14100 


0669 





F107 






EOR 




IDLE-T 


IS CHAR AN IDLE 


3AE14780 






062A 





811B 






A 


1 


Ol-T 




3AE14110 


066A 





4C18 


0686 




BSC 


L 


INQON.C- 


BR IF YES 


3AE14790 






062B 





D148 






STO 


1 


POINT-T 




3AE14120 










« 










3AE14800 






062C 





0132 






STO 


I 


LCNTL-T 


TRN ON LEADER CONTRL 


3AE14130 


066 C 





C142 






LD 




BUF-T 




3AE14810 






062D 





C1F9 






LD 


1 


ACK-T 


PREPARE TO XMIT SOR 


3AE14140 


066D 





FlOB 






EOR 




ERRC-T 




3AE14820 






062E 





7001 




* 


MOX 




ILRC7CI 


GOTO CLEAR LRC 


3AE14150 
3AE14160 


066E 





4C20 


0677 


* 


BSC 


L 


C8,Z 


BR IF NOT ERR RESP 


3AE14830 
3AEI4840 






062F 





C144 




ILRC7 


LD 


I 


LRC-T 


PREPARE TO XMIT LRC 


3AE14170 


0670 





6306 






LDX 




6 


ERR SEQ MESSAGE 


3AE 14850 






0630 





0142 






STO 


1 


BUF-r 


STORE CHAR TO XMIT 


3AE14180 


0671 





1010 




DAT 


SLA 




16 




3AE14860 






0631 





1010 






SLA 




16 




3AE14190 


0672 





D123 






STO 




XINO-T 


TURN OFF XMIT-INQ 


3AE14870 






0632 





D144 






STO 


I 


LRC-T 


CLEAR LRC 


3AE14200 


0673 





COOO 






LD 




« 




3AE14880 






0633 





D127 






STO 


1 


XRLRC-T 


TURN OFF XR-ILRC 


3AE14210 


0674 





0124 






STO 




XSOR-T 


TURN ON XMIT-SOR 


3AE14890 






0634 





C142 






LO 


1 


BUF-T 


FETCH CHAR TO XMIT 


3AE14220 


0675 





4C00 


07F9 




BSC 


L 


STWT2 


GO TO START WRITE 


3AE14900 






0635 





4C00 


07EO 


* 


BSC 


L 


WTEND4-3 


GO TO XHIT CHAR 


3AE14230 
3AE14240 


0677 





C9F9 




* 
CB 


LDD 




ACK-T 




3AE14910 
3AE14920 






0637 





C129 




QLRC 


LD 


I 


RTBSY-T 


IF NOT BUSY, 


3AE14250 


0678 





1090 






SLT 




16 


CHECK FOR OTHER ACK 


3AE 14930 






0638 





4C18 


0642 




BSC 


L 


FILL, 6- 


BR TO SEND EO I 


3AE14260 


0679 





F142 






EOR 




BUF-T 




3AE 14940 














♦ 










3AE14270 


067A 





4C20 


06 8B 




BSC 


L 


CNTER.Z 


BR NOT OTHER ACK 


3AE14950 






063A 





C13? 






LD 


1 


LCNTL-T 




3AF14280 










* 










3AE14960 






063R 





4C2P 


0802 




BSC 


L 


WTTL.Z 


GOTO SEND TL 


3AE14290 


067C 





6307 






LDX 


3 


7 


WRONG ACK MSG 


3AE14970 




DATE 


15N0V66 1 


L5JUN67 


010CT67 


15SEP68 01JUL69 010CT69 01JUN70 


PROG ID 03AE-0 


DATE 15NaV66 15JUN67 


010CT67 


I5SEP6a 01JUL69 010CT69 G1JUN70 


PROG 10 


3AE-0 


EC NO. 


419643 420317 


420374 


420^16 571013 57106ft 571097 
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420374 
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0670 





70F3 




* 


MOX 




DAT 




3AE14980 
3AE14990 






067E 





C122 




ALTER 


LO 


1 


TEL-T 




3AE15000 






067F 





4C18 


07E0 


* 


esc 


L 


XMTEL,+- 


GO TO XMIT TEL 


3AE15010 
3AE15020 






0681 





1010 






SLA 




16 




3AE15030 






0682 





0122 






STO 


1 


TEL-T 


TURN OFF TEL IND 


3AE15040 






0683 





0129 




* 


STO 


1 


RTBSY-T 


CLEAR ROUTINE BUSY IND 


3AE15050 
3AE15060 






0684 





4C00 


07 FO 


08 


BSC 


L 


XMITI 


GO TO SEND IDLES 


3AE15070 
3AE150eO 






0686 





C129 




INQON 


LO 


1 


RTBSV-T 




3AE15090 






0687 





4C18 


07EA 


♦ 


BSC 


L 


XMEOI.t- 


BR TO SENT IDLE, NOT BSY 


3AE15100 
3AE15110 






0689 





4C00 


07E4 


* 


BSC 


L 


XMINQ 


BUSY, SEND INQ 


3AE15120 
3AE15130 






0688 





6305 




CNTER 


LOX 


3 


5 


INVALID CONT SEQ MSG 


3AE15140 






06 8C 





C122 






LO 


1 


TEL-T 




3AE15150 






06 80 





4C20 


07EE 


* 


BSC 


L 


XMTEL*lf Z 


TEL ON, GO XMIT TEL 


3AE15160 
3AE15170 






068F 





C126 






LO 


1 


XEOT-T 




3AE15180 






0690 





4C20 


07F0 


* 


BSC 


L 


XMITI, Z 


XEQT ON, GO XMIT EOT 


3AE15190 
3AE15200 






0692 





4C00 


07E4 


* 

4c— 


BSC 


L 


XMINO 


GO TO XMIT INQ 


3AE15210 
3AE15220 
3AE15230 
3AE15240 






- 








* 






TIMEOUT FOR XMIT - XMT 














* 










3AE15250 






0694 





C126 




XMT 


LO 


1 


XEGT-T 




3AE15260 






0695 





4C18 


06 A 3 


* 


BSC 


L 


ERRTO, ♦- 


BR IF NOT EOT SENT 


3AE15270 
3AE15280 






0697 





C135 






LO 


1 


TOCNT-T 




3AE15290 






0698 





eilB 






A 


1 


01-T 


INCRE TIMEOUT COUNT 


3AE15300 






0699 





0135 






STO 


1 


TOCNT-T 




3AE15310 






069A 





911C 






S 


1 


03-T 




3AE15320 






069B 





4C10 


06A3 


* 


BSC 


L 


ERRTO, - 


BR IF THREE TIMEOUTS 


3AE15330 
3AE15340 






0690 





6600 


0A25 




LOX 


L2 


TMSG8 


TIMEOUT MSG 


3AE15350 






069F 





4400 


0845 




BSI 


L 


ITRCA 


STORE MSG IN TRACE TABLE 


3AE15360 






06AI 





6313 






LOX 


3 


19 


TIMEOUT MSG 


3AE15370 






06A2 





70E9 




* 


MOX 




CNTER+1 




3AE15380 
3AE15390 






06A3 





6308 




ERRTO 


LOX 


3 


8 


ERR TIMEOUT MSG 


3AE15400 






06A4 





6600 


0A28 




LOX 


L2 


TMSGC 


ERR TIMEOUT MSG 


3AE15410 






06A6 





4400 


0845 




BSI 


L 


ITRCA 


STORE MSG IN TRACE TABLE 


3AE15420 






06A8 





70E3 




* 


MOX 




CNTER+1 


GO TO RETRY 


3AE15430 
3AE 15440 
3AE15450 
3AE15460 














* 






WRITE RESPONSE FOR RECEIVE - RCW 














* 










3AE15470 






06A9 





C132 




RCM 


LO 


I 


LCNTL-T 




3AE15480 






06AA 





4C20 


0804 


* 


BSC 


L 


WTCL.Z 


SEND CL IF ON 


3AE 15490 
3AE15500 






06AC 





C12C 






LO 


1 


TOINO-T 




3AE15510 






06AD 





4C20 


06C2 


* 


BSC 


L 


TLTMQ.Z 


BR IF TIMEOUT OCCURRED 


3AE15520 
3AFI5530 






06AF 





C121 






LO 


1 


XTEL-T 




3AF15540 






06B0 





4C20 


07DA 


* 


BSC 


L 


WTTEL.Z 


BR IF XMIT-TEL ON 


3AE15550 
3AE15560 






06B2 





C130 






LD 


1 


XFOI-T 




3AE15570 






06B3 





4C20 


0706 


* 


BSC 


L 


WTEOI.Z 


XEOl ON, GO SEND IDLE 


3AF15580 
3AF15590 






06B5 





C120 






LD 


1 


XERR-T 




3AE15600 






06B6 





4C18 


06BD 


« 


BSC 


L 


ACKO.e- 


BR IF XMIT-ERR NOT ON 


3AE15610 
3AE15620 






06B8 





C108 






LD 


1 


ERRC-T 


TRANSMIT FRR 


3AE15630 






06B9 





6C00 


08C8 


FXl 


STX 


L 


TLTM 


TURN ON LOAD TL IND 


3AF15640 






06BB 





4C00 


07DD 




BSC 


L 


WTEND 


GO SENT ACK OR ERR 


3AE15650 




DATE 


15N0V66 15JUN67 


010CT67 


15SEP68 01JUL69 01CCT69 01JUN70 


PROG ID 


3AE-0 


EC NO. 


419643 


1 420317 


420374 
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* 








- 


3AE15660 






06BD C12E 


ACKO 


LO 


1 


XACK-T 




3AE15670 






06BE 4C18 0706 


* 


BSC 


L 


MTEOI,*- 


BR IF XMIT-ACK NOT ON 


3AE15680 
3A El 5690 






0600 C1F9 




LO 


1 


ACK-T 




3AE15700 






06C1 70F7 


* 


MOX 




EXl 


GO TO XMIT ACK 


3AE15710 
3AE15720 






06C2 1010 


TLTMC 


1 SLA 




16 




3AE15730 






06C3 D12C 




STO 


1 


TOINO-T 


TURN OFF TIMEOUT IND. 


3AE15740 






06C4 C135 




LO 


1 


TOCNT-T 




3AE15750 






06C5 811B 




A 


1 


Dl-T 


ALTERNATE TL AND IDLE 


3AE15760 






06C6 0135 




STO 


1 


TOCNT-T 




3AE15770 






06C7 4804 




BSC 




E 


SKIP IF COUNT EVEN 


3AE15780 






06C8 012B 




STO 


1 


TLTM-T 


TURN ON LOAD TL I NO 


3AE15790 






06C9 4C00 0706 


* 
" 


BSC 


L 


MTEOI 


GO TO WRITE IDLE 


3AE15800 
3AE15810 

4 » r--w ^«k'«tf« 














—"———-• — — — 


— — ■— ——————————— ™_»______« 


— 3AE15820 








* 






READ RESPONSE FOR RECEIVE - RCR 


3AE15830 








* 










3AE15S40 






06CB C125 


RCR 


LD 


1 


DATA-T 




3AE15850 


, 




06CC 4C20 0709 


• 


BSC 


L 


RECRDfZ 


BR IF RCVNG A RECORD 


3AE15860 
3AE15870 






06CE 6C00 08CF 




STX 


L 


LCNTL 


TURN ON LD CNTRL 


3AE15880 






0600 C128 




LO 


1 


RCVER-T 




3AE15890 






06DI 4C20 0T8B 


* 


BSC 


L 


RCT.Z 


BR IF RCV-ERR IS ON 


3AE15900 
3AE15910 






0603 C120 




LO 


1 


CLSM-T 




3AE15920 






0604 4C20 06F8 


* 


BSC 


L 


SWON,Z 


BR IF LAST CHAR CL 


3AE15930 
3AE15940 






06D6 C135 




LD 


1 


TOCNT-T 


GET TIMEOUT COUNT 


3AE15950 






0607 4C18 060C 


* 


BSC 


L 


QINQ,*- 


BR IF NO TIMEOUTS 


3AE15960 
3AE 15970 






0609 6304 




LOX 


3 


4 


EXP CL NOT RCVO MSG 


3AE15980 






060A 1010 




SLA 




16 




3AE15990 






060B D135 


* 


STO 


1 


TOCNT-T 


RESET TIMEOUT COUNT 


3AE16000 
3AE16010 






06DC C142 


QINQ 


LD 


1 


BUF-T 


IS «UF = INQ 


3AE16020 






0600 F108 




EOR 


1 


INQC-T 




3AE 16030 






060E 4C18 06F2 


* 


BSC 


L 


CKBSY,£- 


BR TO CHECK RTN BUSY 


3AE16040 
3AE 16050 






06E0 090B 




XIO 


1 


LOAD-T 


LOAD SYNC REG WITH IDLE 


3AE16060 






06E1 6600 0A14 




LOX 


L2 


TMSG9 


S/I=IOLE NSG 


3AE16070 






06E3 4400 0845 


* 


BSI 


L 


ITRCA 


STORE MSG IN TRACE TBL 


3AE 16080 
3A El 6090 






06E5 C9F9 




LOO 


1 


ACK-T 


IS BUF « CORRECT SOR 


3AE16100 






06E6 1090 




SLT 




16 




3AE16110 






06E7 F142 




EOR 


1 


BUF-T 




3AE16120 






06E8 4C20 0706 


* 


BSC 


L 


INCSQ,Z 


BR IF NOT RIGHT SOR 


3AE16130 
3AE16140 






06EA 0120 




STO 


1 


XERR-T 


TURN OFF XMIT-ERR 


3AE16150 






06EB 012E 




STO 


1 


XACK-T 


TURN OFF XMIT-ACK 


3AE16160 






06EC D144 




STO 


1 


LRC-T 


CLEAR LRC 


3AE16170 






06ED 6C00 08C2 


* 


STX 


L 


DATA 


TURN ON DATA SWITCH 


3AE16180 
3AE16190 






06EF 09ED 




XIO 


1 


RETIM-T 


RESTART TIMER 


3AE16200 






06F0 4C00 0800 


* 


BSC 


L 


INTX+2 


GO TO RESTORE AND EXIT 


3AE16210 
3AE 16220 






06F2 C129 


CKBSV 


LD 


1 


RTBSY-T 




3AE16230 






06F3 4C18 07F0 


* 


BSC 


L 


XMITI, +- 


NOT BUSY, XMIT IDLES 


3AE16240 
3AE16250 






06F5 6309 




LDX 


3 


9 


INQ SEQ MSG 


3AE 16260 






06F6 4C00 07F9 


* 


BSC 


L 


STWT2 


GO TO START WRITE 


3AE16270 
3AE16280 






06F8 C142 


SWON 


LO 


1 


BUF-T 




3AE16290 






06F9 FlOA 




EOR 


1 


EOTC-T 


BUF # FOT 


3AE16300 






06FA 4C20 06FF 


♦ 


BSC 


L 


QTEL.Z 


NO, BRANCH 


3AE16310 
3AE16320 






06FC COOO 




LO 




* 




3AE16330 




DATE 


15N0V66 15JUN67 


010CT67 


15SEP68 01JUL69 010CT69 01JUN70 


PROG 10 


03AF-0 


EC NO. 
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06FD 4C0O 07BA 


* 


BSC 


L ENTST 


EOT RCVO, END TEST 


3AE 16340 
3AE16350 






06FF F116 


OTEL 


EOR 


1 H0600-T 




3AE 16360 






0700 4C18 07E0 


* 


BSC 


L XMTEL,*- 


BR IF BUF=TEL 


3AE16370 
3AE16380 






0702 F500 OOOD 




EOR 


Ll H6500-T 




3AE16390 






070* 4C18 07EA 


♦ 


BSC 


L XME01,+- 


BR IF IDLE IN BUF 


3AE16400 
3AE16410 






0706 6305 


INCSQ 


LDX 


3 5 


INVALID CONT SEQ MSG 


3AE16420 






0707 4C00 078B 


* 


BSC 


L RCT 




3AE16430 
3AE 16440 






0709 C128 


RECRO 


LO 


1 RCVER-T 




3AE16450 






070A *C2d 0789 


* 


BSC 


L RCT-2,Z 


BR IF RCV-ERR ON 


3AE16460 
3AE 16470 






070C C134 




LD 


1 ABRTl-T 




3AE16480 






0700 4C20 077E 


* 


BSC 


L CKSEQ.Z 


BR IF POSSIBLE ABORT 


3AE 16490 
3AE16500 






070F C132 




LD 


1 LCNTL-T 




3AE16510 






0710 4C20 0736 


* 


BSC 


L CHECK tZ 


BR IF LD CNTRL ON 


3AE16520 
3AE16530 






0712 6C00 08CF 




STX 


L LCNTL 


TURN ON LEADER CNTRL 


3AE16540 






0714 4400 084C 




BSI 


L ITRCM 


STO CHAR IN TRACE TBL 


3AE 16550 






0716 C127 




LD 


1 XRLRC-T 




3AE16560 






0717 4C18 0724 


* 


BSC 


L LAST.e- 


BR IF NO ILRC 


3AE16S70 
3AE16580 






0719 C142 




LD 


1 BUF-T 


COMPARE LRC S 


3AE16590 






071A F144 




EOR 


1 LRC-T 




3AE16600 






071B 4018 0720 


* 


BSC 


L GILRC, ♦- 


BR IF EQ COMPARE 


3AE16610 
3AE16620 






0710 0120 




STO 


1 XERR-T 


TURN ON XMIT-ERR 


3AE16630 






071E 630A 




LDX 


3 /A 


ILRC ERR MSG 


3AE16640 






071F 1010 


* 


SLA 


16 




3AE16650 
3AE 16660 






0720 0127 


GILRC 


STO 


1 XRLRC-T 


CLEAR XR-ILRC 


3AE16670 






0721 0144 




STO 


1 LRC-T 


CLEAR LRC BUCKET 


3AE16680 






0722 4C00 0800 


* 


BSC 


L lNTX+2 


GO TO RESTORE AND EXIT 


3AE16690 
3AE 16700 






0724 0125 


LAST 


STO 


I DATA-T 


TURN OFF DATA SWITCH 


3AE16710 






0725 C142 




LD 


1 BUF-T 




3AE16720 






0726 F144 




EOR 


1 LRC-T 


COMPARE LRC S 


3AE16730 






0727 4C20 0732 


* 


BSC 


L CLEAR.Z 


BR IP NO EQ COMPARE 


3AE16740 
3AE16750 






0729 0144 




STO 


1 LRC-T 


CLEAR LRC BUCKET 


3AE16760 






072A C120 




LD 


1 XERR-T 




3AE 16770 






072B 4C20 0793 


* 


BSC 


L B10,Z 


XMIT-ERR ON, BRANCH 


3AE16780 
3AE16790 






072D D129 




STO 


1 RTBSY-T 


CLEAR ROUTINE BUSY 


3AE16800 






072E 7401 08E6 




MOX 


L RCOCT.l 


INCRE RECORD COUNT 


3AE16810 






0730 4CO0 07F0 


* 


BSC 


L XMITI 


GO TO SEND IDLFS 


3AE16820 
3AE16830 






0732 1010 


CLEAR 


SLA 


16 




3AE 16840 






0733 D144 




STO 


1 LRC-T 


CLEAR LRC BUCKET 


3AE16850 






0734 630B 




LDX 


3 /B 


LRC ERR MSG 


3AE16860 






0735 7050 


* 


MUX 


810 


GO TURN ON XMIT-ERR 


3AE16870 

3AE16880 






0736 C142 


CHECK 


LD 


1 BUF-T 




3AE16890 






0737 1808 




SRA 


8 


CK FOR VALID DATA CH 


3AE 16900 






0738 4C04 073B 




BSC 


L *£1,E 




3AE16910 






073A 7007 




MOX 


CK48 


CK FOR CNTRL CHAR 


3AE16920 






073B 1804 




SRA 


4 




3AE16930 






073C Flic 




EOR 


1 03-T 




3AE16940 






073D 4C18 076F 




BSC 


t INVAL,*- 


BR IF CONTROL CHAR 


3AE 16950 






073F FllE 




FOR 


l 06-T 




3AE16960 






0740 4C18 076F 


* 


BSC 


L INVAL,*- 


BR IF CONTROL CHAR 


3AE16970 
3AE16980 






0742 C142 


CK48 


ID 


I BUF-T 


CHECK 4/8 CODE 


3AE16990 






0743 6210 




LDX 


? 16 




3AE17000 






0744 1240 




SLC/i 


, 2 b 


POSITION 1ST BIT 


3AE17010 




DATE 


15N0.V66 15JUN6 7 


010CT67 
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0745 4828 




BSC 


Z* 


SKIP, NO BITS ON 


3AE17020 






0746 FllO 




EOR 


1 H8000-T 


TURN OFF 1ST BIT 


3AE17030 






0747 1240 




SLCA 


2 


POSITION 2N0 BIT 


3AE17040 






0748 4828 




BSC 


I* 


SKIP, NO BITS ON 


3AE 17050 






0749 FllO 




EOR 


1 H8000-T 


TURN OFF 2N0 BIT 


3AE17060 






074 A 1240 




SLCA 


2 


POSITION 3R0 BIT 


3AE 17070 






074B 4828 




BSC 


Z* 


SKIP, NO BITS ON 


3AE17080 






074C FllO 




EOR 


1 H8000-T 


TURN OFF 3R0 BIT 


3AE17090 






074D 1240 




SLCA 


2 


POSITION 4TH BIT 


3AE17100 






074E 4C10 076B 




BSC 


L F0UR8,- 


BR IF LESS THAN 4 BITS 


3AE17110 






0750 FllO 




EOR 


1 H8000-T 


TURN OFF 4TH BIT 


3AE17120 






0751 4C20 076B 


* 


BSC 


L FOURS. Z 


BR IF MORE THAN 4 BITS 


3AE17130 
3AE 17140 






0753 C142 


VALID 


LO 


I BUF-T 




3AE17150 






0754 F144 




EOR 


I LRC-T 




3AE17160 






0755 D144 


* 


STO 


I LRC-T 


BUILD LRC 


3AE17170 
3AE17180 






0756 C142 




LD 


I flUF-T 




3AE17190 






0757 FlOB 




EOR 


I RM-T 


.IS CHAR A RECORD HRK 


3 AE 1 72 00 






0758 4820 




BSC 


Z 




3AE17210 


' 




0759 FIOC 




EOR 


1 GMC-T 


OR A GROUP MARK 


3AE17220 






075A 4C20 0765 


* 


BSC 


L GOOO.Z 


NO, GO TO STORE DATA 


3AE17230 
3AE17240 






075C C133 




LD 


I I LRC-T 


YES, IF ILRC REOSTD 


3AE17250 






0750 0127 




STO 


I XRLRC-T 


TURN ON XR-ILRC 


3AE 17260 






075E 4C18 0765 


* 


BSC 


L GOOD,*- 


BR IF NO ILRC REQ 


3AE17270 
3AE17280 






0760 1010 


CNTRL 


SLA 


16 




3AE 17290 






0761 0132 




STO 


1 LCNTL-T 


TURN OFF LEADER CONTROL 


3AE17300 






0762 4400 084C 




BSI 


L ITRCH 


STORE CHAR IN TRACE TBL 


3AE17310 






0764 7004 


* 


NOX 


GOOD4K4 


GO TO RESTORE AND EXIT 


3AE17320 
3AEt7330 






0765 C400 0003 


GOOD 


LD 


L /3 


ANY ERRORS 


3AE 17340 






0767 4418 0856 




BSI 


L GDATAc^- 


NO, STORE DATA IN TRACE TB 


3AE17350 






0769 4C00 0800 


* 


BSC 


L INTX*2 


GO TO RESTORE AND EXIT 


3AE17360 
3AE17370 






076 B 630C 


FOURS 


LDX 


3 /C 


4/8 ERR MSG 


3AE17380 






076C 4400 084C 




BSI 


L ITRCH 


STORE BUF IN TRACE TBL 


3AE17390 






076E 700D 


* 


MOX 


ABORT4'2 




3AE17400 
3AE17410 






076F C142 


INVAL 


LO 


1 BUF-T 




3AE17420 






0770 F107 




EOR 


1 lOLE-T 




3AE17430 






0771 4C18 0762 


• 


BSC 


L CNTRL+2,+- 


- BR IF IDLE IN BUF 


3AE17440 
3AE17450 






0773 F115 




EOR 


l HOCOO-T 


IS BUF=TL 


3AE17460 






0774 4C18 0760 


* 


BSC 


L CNTRL,£- 


BR IF BUF # TL 


3AE17470 
3AE174B0 






0776 630E 




LDX 


3 /E 


CONT CHAR IN TEXT MSG 


3AE17490 






0777 F112 




EOR 


1 H6C00-T 


IS BUF=CL 


3AE17500 






0778 4C20 077C 


* 


BSC 


L AB0RT*2,Z 


BR IF NO 


3AE17510 
3AE17520 






077A COOO 


ABORT 


LD 


« 




3AE17530 






077B D134 




STO 


I ABRTl-T 


TURN ON ABORT INO. 


3AE17540 






077C 0120 




STO 


1 XERR-T 


TURN ON XMIT-ERR 


3AE 17550 






077D 70D5 


* 


MDX 


VALID 


CONTINUE AS IF GOOD DATA 


3AE17560 
3AE17570 






077E 1010 


CKSEQ 


1 SLA 


16 




3AE17580 






077F D134 




STO 


1 ABRTl-T 


TURN OFF ABORT I NO 


3AE17590 






0780 C142 




LD 


1 BUF-T 




3AE17600 






0781 F107 




EOR 


1 lOLE-T 




3AE17610 






0782 4C20 0736 


* 


BSC 


L CHECK, Z 


BR IF NOT IDLE IN BUF 


3AE17620 
3AE17630 






0784 4400 084C 




BSI 


L ITRCH 


STORE CHAR IN TRACE TBL 


3 AE 17640 






0786 6300 




LDX 


3 /D 


ABORT SEQ MSG 


3AE17650 






0787 4C00 07F0 


* 


BSC 


L XMITI 


GO TO SEND IDLES 


3AE17660 
3AE17670 






0789 O 4400 084C 




BSI 


L ITRCH 


STORE CHAR IN TRACE TBL 


3AE17680 






078B COOO 


RCT 


LD 


* 




3AE17690 




DATE 


15N0V66 15JUN67 


010CT67 


15SEP63 01JUL69 01OCT69 01JUN70 


PROG in 


03AE-0 


EC NO. 


419643 420317 
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078C 0125 




STO 


1 


DATA-T 


TURN ON DATA SMITCH 


3AEir700 






0780 0128 




STO 


1 


RCVER-T 


TURN ON RCV-ERR 


3AE17710 






078E 0132 


* 


STO 


1 


LCNTL-T 


TURN ON LD CNTRL 


3AE17720 
3AE17730 






078F C142 




LD 


1 


BUF-T 




3AE 17740 






0790 F114 




EOR 


1 


HFFOO-T 


IS BUF = ALL ONES 


3AE17750 






0791 4C20 0800 


* 


BSC 


L 


INTX+2,Z 


BR IF BUF NOT ALL ONES 


3AF 17760 
3AE17770 






0793 1010 


BIO 


SLA 




16 




3AE17780 






0794 0125 




STO 


1 


DATA-T 


TURN OFF DATA SWITCH 


3AE17790 






0795 D128 




STO 


1 


RCVER-T 


TURN OFF RCV ERR 


3AE17800 






0796 6C00 08BD 




STX 


L 


XERR 


TURN ON XMIT-ERR 


3AE17810 






0798 4C0O 07F0 




BSC 


L 


XMITI 


GO TO SEND IDLES 


3AE17820 








* 










3AE17830 
3AE17840 
3AE17850 








* 






TIMEOUT 


FOR RECEIVE - RCTIM 








* 










3AE17860 






079A 6500 0A25 


RCTIH 


1 LOX 


L2 


TMSGB 


TIMEOUT MSG 


3AE17870 






079C C128 




LD 


1 


RCVER-T 


IF RCV ERROR, 


3AE17880 






079D 4420 0845 




BSI 


L 


ITRCA.Z 


STORE MSG IN TRACE TBL 


3AE17890 






079F 6313 




LDX 


3 


19 


TIMEOUT MSG 


3AE17900 






07A0 C128 




LO 


1 


RCVER-T 


IF RCV ERROR, 


3AE17910 






07A1 4C20 0793 


* 


BSC 


L 


BIO.Z 


XMIT ERR, RESET IND. 


3AE17920 
3AE17930 






07A3 C125 




LD 


1 


OATA-T 




3AE17940 






07A4 4C20 07B4 


* 


BSC 


L 


DATER.Z 


BR IF RECEIVING DATA 


3AE17950 
3AE 17960 






07A6 C135 




LD 


1 


TOCNT-T 




3AE17970 






07A7 911C 




S 


1 


D3-T 




3AE17980 






07A8 4C28 07AD 


* 


BSC 


L 


TMOK.Z* 


BR IF LESS THAN 3 TIMEOUTS 


3AE17990 
3AE18000 






07AA 6600 0A2B 




LDX 


L2 


TMSGC 


ERR TIMEOUT MSG 


3AE18010 






07AC 6308 


* 


LDX 


3 


8 


ERR TIMEOUT MSG 


3AE18020 
3AE18030 






07A0 4400 0845 


THOK 


BSI 


L 


ITRCA 


STORE MSG IN TRACE TBL 


3AE18040 






07AF COOO 




LO 




♦ 




3AE180S0 






0780 D130 




STO 


1 


XEOI-T 


TURN ON XMIT-EOI 


3AE18060 






07B1 012C 




STO 


1 


TOIND-T 


TURN ON TIMEOUT IND. 


3AE18070 






07B2- 4C00 07F0 


* 


BSC 


L 


XMITI 


GO TO SEND IDLES 


3AE18080 
3AE18090 






07B4 6600 0A2B 


OATER 


LDX 


L2 


TMSGC 


ERR TIMEOUT MSG 


3AE18100 






07B6 4400 0845 




BSI 


L 


ITRCA 


STO MSG IN TRACE TBL 


3AE18110 






07B8 6308 




LOX 


3 


8 


ERR TIMEOUT MSG 


3AE18120 






07B9 7009 


* 


MOX 




BIO 




3AE18130 
3AE18140 








4i 


— — 


— — 








3AE18150 








* 






SCA INTERRUPT EXIT ROUTINES 


3AE18160 








* 










3AE18170 






07BA 0126 


ENTST 


STO 


1 


XEOT-T 


TURN XEOT ON OR OFF 


3AE18180 






07BB 1010 




SLA 




16 




3AE18190 






07BC D120 




STO 


1 


XERR-T 


TURN OFF XMIT-ERR 


3AE18200 






07B0 D12E 




STO 


1 


XACK-T 


TURN OFF XMIT-ACK 


3AE18210 






07BE D129 




STO 


1 


RTBSY-T 


TURN OFF ROUTINE BUSY 


3AE18220 






07BF 6C00 08D6 


* 


STX 


L 


ENOSW 


TURN ON END OF TEST IND 


3AE18230 
3AE18240 






07C1 6600 057F 




LDX 


L2 


OPW 


SET UP 


3AE18250 






07C3 6E00 08FA 




STX 


L2 


WTF 


RESPONSE 


3AE18260 






07C5 6600 059F 




LDX 


L2 


OPR 


ADDRESSES 


3AE18270 






07C7 6E00 08F9 




STX 


L2 


ROF 


FOR SERVICING 


3AE18280 






07C9 6600 05C8 




LDX 


L2 


CKOPR 


INTERRUPTS 


3AE 18290 






07C6 6E00 08F8 




STX 


L2 


TIME 




3AE18300 






07CD 7022 


* 


MOX 




XMITI 


GO TO SEND IDLES 


3AE18310 
3AE18320 






07CE 6C00 08C7 


HTINO 


STX 


L 


CLTM 


TURN ON LOAD CL INO 


3AE18330 






0700 C108 




LD 


1 


INQC-T 


FETCH INO CHARACTER 


3AE 18340 






0701 700B 


4: 


MOX 




WTEND 


GO TO WRITE IT 


3AE18350 
3AE18360 






07D2 1010 


WTEOT 


SLA 




16 




3AE18370 




DATE 


15N0V66 15JUN67 


010CT67 


15SEP68 01JUL69 01OCT69 01JUN70 


PROG ID 


03AE-0 


EC NO. 


419643 420317 


420374 


420^^16 571013 571066 571097 
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07D3 0126 




STO 


1 XEOT-T 


0704 ClOA 




LO 


1 EOTC-T 


0705 7007 


:|e 


MOX 


WTEND 


07D6 1010 


HTEOI SLA 


16 


0707 0130 




STO 


1 XEOI-T 


07D8 C107 




LD 


1 IDLF-T 


0709 7003 


* 
MTT 


MOX 


WTEND 


070A 1010 


EL SLA 


16 


07DB D121 




STO 


1 XTEL-T 


07DC C109 


^ 


LD 


I TELC-T 


0700 6C00 08BC 


WTEND STX 


L XPAO 


070F 0142 




STO 


1 BUF-T 


07E0 4400 084C 




BSI 


L ITRCH 


07E2 0907 




XIO 


1 WT BUF-T 


07E3 7027 


^ 


MOX 


INTX 


07E4 5C00 O8C0 


XMINQ STX 


L XI NO 


07E6 7009 


^ 


MDX 


XMITI 


07E7 6CO0 08C3 


XMEOT STX 


L XEOT 


07E9 7006 


^ 


NDX 


XMITI 


07EA 6C00 08C0 


XMEOI STX 


L XEOI 


07EC 7003 


* 
XMTE 


MDX 


XMITI 


07E0 6312 


L LOX 


3 18 


07EE 6C00 08BE 




STX 


L XTEL 


07F0 09DB 


XMITI XIO 


I LOAD-T 


07FI 09D3 




XIO 


1 SYNC-T 


07F2 6600 09F1 




LOX 


L2 TNSG5 


07F4 4400 0845 




BSI 


L ITRCA 


07F6 1010 




SLA 


16 


07F7 0128 




STO 


1 RCVER-T 


07F8 7012 


* 
STMT; 


MOX 


INTX 


07F9 09DB 


2 XIO 


1 LOAD-T 


07FA 0901 




XIO 


I STMRT-T 


07FB 6600 OAIB 




LOX 


L2 TNSGA 


07FD 4400 0845 




BSI 


L ITRCA 


07FF C15A 




LO 


1 DOOOX-T 


0800 D15B 




STO 


1 IDLCT-T 


0801 7009 


* 
MTTL 


MOX 


INTX 


0802 C106 


LO 


I TLC-T 


0803 7001 


^ 


MOX 


HTCL*1 


0804 C105 


MTCL 


LO 


1 CLC-T 


0805 D142 




STO 


1 BUF-T 


0806 4400 084C 




BSI 1 


L ITRCH 


0808 09D7 




XIO 


1 MTBUF-T 


0809 1010 




SLA 


16 


080A D132 


^ 


STO 


1 LCNTL-T 


080B 6C00 08CC 


INTX 


STX L FA II 


0800 7300 




MOX 


3 


080E 7009 


* 
INTXA 


MOX 


ERROR 


080F C14B 


LD 


1 SAVE-T 


0810 DOIA 




STO 


TRACE 


0811 C9CB 




LOO 


1 AO-T 


0812 6600 0000 


XR2 


LOX L2 *-* 


0814 6700 0000 


XR3 


LOX L3 *-* 


0816 4CC0 04F2 




BOSC I 


INTI 



TURN OFF XHIT-EOT 
FETCH EOT CHARACTER 
GO TO WRITE IT 



TURN OFF XMIT-EOI 
FETCH IDLE CHARACTER 
GO TO WRITE IT 



TURN OFF XM IT-TEL 
FETCH TEL CHARACTER 

TURN ON XMIT-PAD 

STORE CHAR TO WRITE IN BUF 

STORE CHAR IN TRACE TABLE 

MRITE CHARACTER 

GO TO RESTORE AND EXIT 

TURN ON XNIT-INQ 
GO TO SEND IDLES 

TURN ON XMIT-EOT 
GO TO SEND IDLES 

TURN ON XMIT-EOI 
GO TO SEND IDLES 

XR3=TEL RCVD MSG NUMBER 
TURN ON XMIT-TEL 

LOAD IDLE TO SYNC REG 
START SYNC 

S/I=IDLE, ST SYNC MSG 
STORE MSG IN TRACE TBL 

TURN OFF ERROR RCVD INO 
GO TO RESTORE AND EXIT 

LOAD IDLE TO SYNC REG 
START WRITE 
S/I=IDLE, ST WR MSG 
STORE MSG IN TRACE TBL 
NUMBER OF IDLES TO 

PRECEED TRANSMISSION 
GO TO RESTORE AND EXIT 

FETCH TL CHARACTER 
GO TO WRITE IT 

FETCH CL CHARACTER 
STO CHAR IN BUF 
STORE CHAR IN TRACE TBL 
WRITE CHARACTER 

TURN OFF LEADER CONTROL 

TURN ON DATA SET FAIL IND 

BR IF ERROR OCCURED 



RESTORE A AND Q 
RESTORE XR2 
RESTORE XR3 
EXIT INTERRUPT 



DATE 

EC NO. 



15N0V66 
419643 



1 5 JUN67 
420317 



010CT67 
420374 



15SEP68 
420416 



01JUL69 
571013 



010CT69 
571066 



01JUN70 
571097 



3AE18380 

3AF18390 

3AE 18400 

3AF18410 

3AE18420 

3AE18430 

3AE 18440 

3AE18450 

3A El 8460 

3AE18470 

3AE18480 

3A El 8490 

3AE18500 

3AE18510 

3AE18520 

3AEie530 

3AE18540 

3AE18550 

3AE18550 

3AE 18570 

3AE18580 

3AE 18590 

3AE18600 

3AE18610 

3AEI8620 

3AE18630 

3AE18640 

3AE18550 

3AF18660 

3AE18670 

3AE18680 

3AE 18690 

3AE 18700 

3AE18710 

3AE18720 

3AE 18730 

3AE 18740 

3AE18750 

3AE 18760 

3AE18770 

3AE18780 

3AE18790 

3AEI8800 

3AE18810 

3AE18820 

3AEI8S30 

3AE18840 

3AE18850 

3AE 18860 

3AE18870 

3AE18880 

3AE18890 

3AE18900 

3AE18910 

3AE18920 

3AE18930 

3AE 18940 

3AE18950 

3AE1896d 

3AE18970 

3AE18990 

3AE18990 

3AE19000 

3AEI9010 

3AE19020 

3A El 9030 

3AE 19040 

3AE19050 



PROG ID 
PAGE 



03AE-0 
14A 
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0818 C700 09B6 


ERROR 


LO 


L3 ERMSG-1 




3AE19060 






OBIA D14F 


* 


STO 


I EX-T 


SET ERROR HSG ADR INO 


3 AE 19070 
3AE 19080 






0816 73F1 




MOX 


3 -15 




3AE 19090 






081C 70F2 


• 


MOX 


INTXA 


BR IF I MSG 


3AE19100 
3AE19110 






0810 D13A 




STO 


1 ERRSW-T 


TURN ON ERROR INO 


3AE19120 






081E C14E 




LO 


1 PNTC-T 


FETCH ADR LAST HEX CHAR 


3AE19130 






081F 4C08 080F 


* 


BSC 


L INTXA, 4- 


BR LAST CHAR NOT HEX 


3AE19140 
3AE19150 






0821 C480 08EB 




LD 


I PNTC 


FETCH LAST HEX CHAR 


3AE19160 






0823 1888 




SRT 


8 




3AE19170 






0824 C400 0003 




LO 


L 3 


FETCH MSG NUMBER 


3AE19180 






0826 8111 




A 


1 HOOEF-T 




3AE19190 






0827 1088 




SLT 


8 


COMB ERR NO AND HEX CHAR 


3 AE 19200 






0828 0460 08EB 




STO 


I PNTC 


STORE IN TRACE TABLE 


3AEi9210 






082A 70E4 


* 


MOX 


INTXA 




3AE19220 
3AE19230 








****:**^^****L*************************************** 


3AE19240 








* 








3AE19250 








* 




TRACE HSG 


STORE ROUTINE - TRACE 


3AE19260 








* 








3AE19Z70 








^^t^if^m^^t***************************************** 


3AE19280 








* 








3AE19290 






082B 0000 


TRACE 


DC 


*-* 




3AE19300 






082C €138 




LO 


I OVRCR-T 




3AE19310 






082D 4C1B 083A 


* 


BSC 


L NOVER+2,*- 


EXIT IF CORE FULL 


3AE19320 
3AE 19330 






082F 7401 08EA 




MDX 


L PNTB.l 


INCRE TRACE POINTER B 


3AE19340 






0831 C14D 




LO 


1 PNTB-T 




3AE19350 






0832 914A 




S 


1 CORSZ-T 




3AE19360 






0833 4C28 0838 


* 


BSC 


L NOVER.Z* 


BR IF STILL MORE CORE 


3 AE 19370 
3AE 19380 






0835 0138 




STO 


1 OVRCR-T 


SET CORE FULL IND 


3AE19390 






0836 6600 0A4B 


* 


LOX 


L2 TMSGG 


CORE FULL MSG 


3AE19400 
3AE19410 






0838 6E80 08EA 


NOVER 


STX 


12 PNTB 


STORE MSG IN TRACE TBL 


3AE 19420 






083A ClOO 




LO 


1 SHO-T 




3AE 19430 






083 B 1009 




SLA 


9 




3AE 19440 






083C 4C28 0841 


* 


BSC 


L SAVIT, Z* 


BR IF TRACE ALL SELECTED 


3AE19450 
3AE 19460 






083E C13A 




LD 


1 ERRSM-T 




3AE19470 






083F 4C98 082B 


« 


BSC 


I TRACE, ♦- 


BR IF NO ERRORS YET 


3AE19480 
3AE 19490 






0841 C14D 


SAVIT LO 


1 PNTB-T 




3AE19500 






0842 bl4C 




STO 


1 PNTA-T 


UPDATE POINTER A 


3AE19510 






0843 4C80 0S2B 


* 


BSC 


I TRACE 


RETURN TO CALLING ROUTINE 


3AE19520 

3AE19530 

- 3AE19540 

3AE19 550 






4c 

* 




TRACE CALLS FROM INTERRUPT 








* 








3AE19560 






0845 0000 


ITRCA DC 


♦-* 




3AE19570 






0846 C139 




LO 


1 ENDSW-T 




3AE19580 






0847 4CA0 0845 


* 


BSC 


I ITRCA, Z 


EXIT IF END OF TEST IS ON 


3AE 19590 
3AE19600 






0849 40E1 




BSI 


TRACE 


STORE MSG IN TRACE TBL 


3AE19610 






084A 4C80 0845 


* 


BSC 


I ITRCA 


RETURN TO CALLING ROUTINE 


3AE19620 
3AE19630 








« 










- 3AE19640 








* 




STORE TWO 


DIGIT HEX CHARACTER 


3AE19650 








* 








3AE19660 






084C 0000 


ITRCH DC 


*-* 




3 AE 19670 






084D C142 




LO 


1 6UF-T 


FETCH BUFFER CONTENTS 


3AE19680 






084E 1808 




SRA 


8 




3AE19690 






084F D400 0002 




STO 


L 2 


XR2=HEX CHARACTER 


3AE19700 






0851 40F3 




BSI 


ITRCA 


STORE CHAR IN TRACE TBL 


3AE19710 






0852 C14D 




LO 


1 PNTB-T 




3AE19720 






0853 D14E 




STO 


1 PNTC-T 


UPDATE TRACE POINTER C 


3AE19730 




DATE 


15N0V66 15JUN67 


010CT67 


15SEP68 01JUL69 010CT69 01JUN70 


PROG ID 


03AE-0 


EC NO. 


419643 420317 


420374 


420416 571013 571066 571097 
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0854 4C80 084C 


BSC 

* 


I 


ITRCH 


RETURN TO CALLING ROUTINE 


3AE19>'vt 
3AE19750 
3AE19760 
3AE 19770 








*— — — — — — ■ — 

* ' 




STORE GOOD DATA IN TRACE TABLE 








* 








3AE19780 






0856 0000 


GOATA DC 




*-* 




3AE19790 






0857 ClOO 


LO 


1 


SMO-T 




3AE19800 






0858 lOOA 


SLA 




10 




3AE19810 






0859 4C10 085D 


BSC 

* 


L 


NSAVE,- 


BR IF DATA SAVE OPTION OFF 


3AE19820 
3AE19830 






085B 40F0 


BSI 




ITRCH 


STORE DATA IN TRACE TBL 


3AE 19840 






085C 7008 


MDX 

* 




RTRN 


RETWN TO CALLING ROUITNE 


3AE198S0 
3AEI9860 






085D C480 08EA 


NSAVE LD 


I 


PNTB 




3AE19870 






085F F003 


EOR 




MSG+1 




3AEt98B0 






0860 4C98 0856 


BSC 

* 


I 


GDATA,4^- 


BR IF MSG ALREADY STORED 


3AEI9890 
3 AE 19900 






0862 6600 0A50 


MSG LDX 


L2 


TMSGH 


TEXT MSG 


3AE19910 






0864 40E0 


BSI 




ITRCA 


STORE MSG IN TRACE TABLE 


3AE 19920 






0865 4C80 0856 


RTRN BSC 

•* 


I 


GDATA 


RETURN TO CALLING ROUTINE 


3AE19930 
3AE 19940 








***4>**********«*4>***4c**4!**«**4>************«******** 


3AE 19950 








* 








3AE 19960 








• 




CONSTANTS AND INDICATORS 


3AE 19970 








* 








3AE199B0 








«*«****4i*«*«i*****«*«**********4<********«***4'******* 


3AE19990 








* 








3AE20000 






0868 0002 


AQ BSS 


E 


2 


FOR ACC AND EXT 


3AE20010 






086A 0002 


AQ2 BSS 

* 




2 




3AE20020 
3AE20030 






086C 0000 


STR ED DC 







START READ 


3AE20040 






086D 5600 


DC 




/5600 


lOCC 


3AE20050 






086E 0000 


STURT DC 







START MRITE 


3AE20060 






086F 5500 


DC 




/5500 


lOCC 


3AEZ0070 






0870 0000 


SYNC DC 







SYNCHRONIZE 


3AE20080 






0871 5410 


DC 




/5410 


lOCC 


3AEZ0090 






0872 080F 


READ DC 




BUF 


READ 


3AE20100 






0873 5200 


DC 




/5200 


lOCC 


3AE20110 






0874 08DF 


MTBUF DC 




BUF 


WRITE 


3AE20120 






0875 5100 


DC 




/5100 


lOCC 


3AE20130 






0876 08A1 


HRSU3 DC 




SW3A 


WRITE FROM SWS 


3AE20140 






0877 5100 


DC 




/5100 


lOCC 


3AE20150 






0878 08A4 


LOAD DC- 




IDLE 


LOAD SYNC/IDL REGIS 


3AE20160 






0879 5104 


OC 




/5104 


lOCC 


3AE20170 






087A 08A2 


LOCL DC 




CLC 


LOAD SYNC REG WITH CL 


3AE20180 






087B 5104 


DC 




/5104 


lOCC 


3AE20190 






087C 08A3 


LDTL DC 




TLC 


LOAD SYNC REG WITH TL 


3AE20200 






0870 51Q4 


DC 




/5104 


lOCC 


3AE20210 






087E 08A1 


SIREG DC 




SW3A 


LOAD SYNC REG FROM SMS 


3AE20220 






087F 5104 


OC 




/5104 


lOCC 


3AE20230 






0880 0000 


SENSR DC 







SENSE AND RESET DSW 


3AE20240 






0881 5701 


DC 




/5701 


lOCC 


3AE20250 






0882 0000 


ENOOP DC 







END OPERATION 


3AE20260 






0883 5404 


OC 




/5404 


lOCC 


3AE20270 






0884 0000 


RESET DC 







PROGRAM SCA RESET 


3AE20280 






0885 5540 


DC 




/5540 


lOCC 


3AE20290 






0886 0000 


SEND DC 







SEND-RCV RUN TR. ON 


3AE20300 






0887 5601 


DC 




/5601 


lOCC 


3AE20310 






0888 0000 


RCVTR OC 







SEND-RCV RUN TR. OFF 


3AE20320 






0889 5602 


DC 




/5602 


lOCC 


3AE20330 






088A 0000 


RETIM OC 







RESTART TIMEOUT 


3AE20340 






088B 5702 


DC 




/5702 


lOCC 


3AE20350 
3AE20360 






088C 08F5 


SPACE OC 




SPS 


SPACE PRINTER 


3AE20370 






088D 0900 


DC 




/0900 


lOCC 


3AE20380 






088E 08F4 


CRTRN DC 




CR 


CARRIER RETURN 


3AE20390 






088F 0900 


DC 




/0900 


lOCC 


3AE20400 






0890 08F0 


PRINT DC 




PRTWD 


PRINTER WRITE 


3AE20410 




DATE 


15N0V66 15JUN67 


010CT67 


15SEP68 


01JUL69 010CT69 01JUN70 


PROG ID 


03AE-0 


EC NO. 


419643 420317 


420374 


420416 


571013 571066 571097 
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0891 0900 

0892 0000 

0893 OFOl 

0894 08EF 

0895 3A00 

0896 0000 

0897 0000 

0898 3300 

0899 5300 

089A 4C00 0102 
089C 7003 

0890 OOOO 



0890 
089E 
089F 
08AO 
08 A 1 

08A2 
DBA 3 
08A4 
DBAS 
08AS 
0BA6 
08A7 
0BA8 



0000 
0000 
0006 
0039 
3900 

5500 
3500 
3900 
5900 

5C00 

5AO0 
AAOO 



08A9 2700 
08AA 6500 
08AB 6300 
08AC 6000 



OBAO 
08AE 
08AF 
0880 
08B1 
0882 
08B3 
08B4 
0885 
08B6 
08B7 



8000 
OOEF 
6C00 
0004 
FFOO 
OCOO 
0600 
OOFO 
OFOO 
OOFF 
067C 



0888 0001 

0889 0003 
08BA 0005 
08BB 0006 



oeat 

08BC 
08 BO 
08BE 
08BF 
08C0 
0801 
08C2 
08C3 
08C4 
08C5 
0806 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



08C7 0000 
080 8 0000 



SNSPR 
ROSMS 

* 
ACK 

ACKS 

* 

BOOT 

N0X3 

♦ 
T 
* 

SHO 

SWl 

SM2 

SW3 

SM3A 

* 

CLC 

TLC 

IDLE 

INQC 

ERRC 

TELC 

eOTC 

RM 

* 

GMC 

H6500 

H6300 

H6000 

* 

H8000 

HOOEF 

H6C00 

H0004 

HFFOO 

HOCOO 

H0600 

HOOFO 

HOFOO 

HOOFF 

H007C 

* 

01 
03 
05 
06 

TAB4 

XPAD 

XERR 

XTEL 

TEL 

XINO 

XSOR 

DATA 

XEOT 

XRLRC 

ROVER 

RTBSY 

♦ 

CLTH 

TLTM 



DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 

BiSC 
HOX 

BSS 

DC 
DC 
DC 
DC 
DC 

DC 

DC 

OC 

DC 

EQU 

OC 

DC 

DC 

OC 
DC 
OC 
DC 

DC 
OC 
DC 
OC 
DC 
OC 
DC 
DC 
OC 
DC 
OC 

DC 
DC 
DC 
DC 

BSS 

DC 

DC 

DC 

DC 

DC 

DC 

00 

OC 

DC 

DC 

00 

DO 
DC 



/0900 



/OFOl 

SMS 

/3A0O 




/3300 
/5300 

BEGIN 
♦♦3 







6 

/0039 

/3900 

/S500 

/3500 

/3900 

/S900 

INQC 

/SCOO 

/5A00 

/AAOO 

/2700 
/6500 
/6300 
/6000 

78000 
/OOEF 
/6C00 
/0004 
/FFOO 
/OCOO 
/0600 
/OOFO 
/OFOO 
/OOFF 
/007C 

1 

3 
5 
6 






o 















lOCC 
SENSE PRINTER OSW 

lOCC 
READ SWS 

lOCC 

CURRENT ACK/SOR 
NEXT ACK/SOR 
AGK2 - S0R2 
ACKl - SORl 

RESTART BRANCH 
RESTART BRANCH 



FUNCTION SWITCH ENTRY 
FUNCriON 1 SNITCH ENTRY 
FUNCTION 2 SWITCH ENTRY 
FUNCTION 3 SWITCH ENTRY 
XNir CHAR FOR RTNS 4 AND 

4/8 FOR Ct 

4/8 FOR TL 

4/a FOR IDLE 

4/S FOR IN9 

«/■ FOR ERR 

♦/• FOR TEL 

«/• FOR EOT 

4/8 FOR RECtmO NARK 

CONST FOR GN CHECK 
TEL CK CONST 6500 
IDLE CK CONST 6300 
TL CHECK CONST 6000 



CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 



8000 
OOEF 
6C00 
0004 
FFOO 
OCOO 
0600 
OOFO 
OFOO 
OOFF 
00 7C 



CONSTANT 0001 

CONSTANT 0003 

CONSTANT 0005 

CONSTANT 0006 

BEGIN TABLE TO CLEAR 
XMIT PAD INO 

TRANSMIT ERR IND. 
TRANSMIT TEL INO. 
INITIATE XMIT TEL 
TRANSMIT INO INO. 
TRANSMIT SOR IND. 
XMIT/RCV DATA INO 
TRANSMIT EOT INO. 
XMIT/RCV ILRC IND 
ERROR ON RCV 
ROUTINE BUSY 

LOAD CL IND 
LOAD TL INO 



3 AE 2 0420 
3AE20430 
3AE20440 
3AE20450 
3AE20460 
3AE20470 
3AE20480 
3AE20490 
3AE20500 
3AE20510 
3AE20S20 
3AE20530 
3AE20S40 
3AE20S50 
3AE20560 
3AE20S70 
3AE20S80 
3AE20S90 
3AE20600 
3AE20610 
5 3AE20620 
3AE20630 
3AE20640 
3AE20650 
3AE20660 
3AE20670 
3AE20680 
3AE20690 
3AE207Q0 
3AE207I0 
3AE20720 
3AE20730 
3AE20T40 
3AE20750 
3AE20760 
3AE20770 
3AE20780 
3AE20790 
3AE20800 
3AE20810 
3AE20820 
3AE20830 
3AE20840 
3AE20850 
3AE20860 
3AE20870 
3AE20880 
3AE20890 
3AE20900 
3AE20910 
3AE20920 
3AE20930 
3AE20940 
3AE20950 
3AE20960 
3AE20970 
3AE20980 
3AE20990 
3AE21000 
3AE21010 
3AE21020 
3AE21030 
3AE21040 
3AE21050 
3AE21060 
3AE21070 
3AE21080 
3AE21090 



08C9 





0000 


08CA 





0000 


08CB 





0000 


08CC 





0000 


08C0 





0000 


08CE 





0000 


08CF 





0000 


0800 





0000 


0801 





0000 


0802 





0000 


0803 





0000 


08D4 





0000 


0805 





0000 


0B06 





0000 


080T 





0000 


0808 





0000 


0809 





oobo 


08DA 





0000 


08DB 





0000 


080C 





0000 


0800 





0000 


08DE 





0000 


08DF 





0000 


08E0 





0000 


08E1 





0000 


08E2 





0000 


08E3 





0000 


08E4 





0000 


08E5 





0000 


08E6 





0000 


08E7 





5533 


08E8 





0000 


0BE9 





0A86 


08 E A 





0A«6 


08EB 





0000 


08EC 





0000 


08E0 





0000 


08EE 





0000 


OBEF 





0000 


08F0 





0000 


08F1 





0000 


08F2 





0AB6 


08F3 





03B9 


08F4 





8100 


08F5 





2100 


0eF6 





0600 


08F7 





0005 


08F8 





0000 


08F9 





0000 


08FA 





0000 


08FB 





0000 



DC 
OC 
OC 
DC 



08FC 0016 
090C 0005 



TOIND DC 
CLSW DC 
XACK 
FAIL 
XEOI 
TYPE 
LCNTL DO 
ILRC DC 
4BRT1 OC 
TOCNT OC 
READY OC 
SYNC I OC 
OVRCR DC 
ENDSH OC 
ERRSU OC 
SmSY OC 
L6BSV OC 
RI6HT OC 
L12SN OC 
QLVB OC 
OLYA OC 
L60LY OC 
• 

8UF OC 
OSW DC 
LRC OC 
WOCNT OC 
COUNT OC 
lOAR OC 
POINT OC 
RCBCT OC 
* 

CORSZ OC 
SAVp DC 
FNTA OC 
FNTt OC 
PNTC OC 
EX OC 

XNCNT DC 
PftOSW OC 
SWS OC 
PRTWD OC 
FRAOR OC 
TBAOR OC 
INTER OC 
* 

CR 

SPS 

ASTW 

• 

OOOOX OC 

IDLCT DC 

* 

RDF 

WTF 

TIME 

* 

* 

HSGl TYPE 

* 

MSG2 TYPE 

* 



OC 
OC 
DC 



DC 
OC 

DC 

























o 

















THE NEXT 

/5533 



TRCTB-l 



o 











TRCTB-l 

ERINT 

/8100 
/2100 
/D600 

5 
*-* 







TIMEOUT INDICATOR 
CONTROL LEADER INO. 
XMIT ACK INDICATOR 
DATA SET FAIL CHECK 
TRANSMIT EOI IND. 
DATA IN OR OUT 
CONTROL SEQUENCE IND. 
ILRC IN RECORD IND. 
ABORT IND ON IF CL IN DATA 
TIMEOUT COUNTER 
INITIAL READY IND 
INITIAL SYNC INO 
CORE FULL INDICATOR 
END OF TEST INO 
ERROR INOICATW 
CONSOLE SMS RTN BUSY INO 
Cog RTN BUSY INO 
KNIT RIGHT BYTE INO 
1ST/2ND CHAR IND 
^CA INT DELAY COUNT B 
SCA INT DELAY COUNT A 
LOG OELAY COUNTER 



4/8 BUF FOR RCV/XNIT 
DEVICE STATUS WMtO 
LRC ACCUMULATOR 
tNNtO COUNT FROM USER 
ACTUAL WORD CIMINT 
I/O AREA ADDRESS 
r/0 AREA roiNTER 
RECORD COUNT 
AORS WILL BE FROG SET 
HAX EVEN CmE ADDRESS 
fENF STORAGE 
fRACE FOINfCR A 
TRACE FOtMTER B 
TRApE POINTER C 
ERROR NSC ROR INO 
KNIT RECORD COUNT 
PRINTER OSW STORA«E 
CONSOLE SWS BUFFIR 
LOG RTN DATA MFFtR 
NSG ADR STORASE 
TRACE TABLE AOR 
ERR INT RTN ADR 

CARRIER RETIHIN CODE 
SPACE CODE 
ASTERISK 

TOTAL NUMBER OF IDLES 
XMIT THIS NUNBER OF IDLES 

BR ADDR FOR READ 
BR ADDR FOR WRITE 
BR AODR FOR TIMEOUT 



PRINT CODE FOR ALPHA MESSAGES 

PROGRAM STATUS MESSAGES 

. Al SELECT TEST RTN AND START.. 

.A5 HALT... 



3AE21100 
3AE21110 
3AE21120 
3AE21130 
3AE21I40 
3AE21150 
3AE21160 
3AE21170 
3AE21180 
3AE21190 
3AE2I200 
3AE2I210 
SREZ1220 
SAE212)0 
SAE21240 
3AE212S0 
3AE21260 
1AE21270 
SAE2iaB0 
3AE2UBB 
aAE2tl00 
1AE21310 
SAE2tS20 
SAEtlSSB 
3AEttl4« 
BAEIIlfe 
lACItSBO 
SAEttBTO 

SACtisio 
iAE2ti«e 

BAE2|««0 

SAEXUlO 

IAf216tO 

3*Ett6M 

SAE2I««0 

SACtt«10 

3AE2I6M 

1AE2UT0 

SAE2t6S0 

ME2I6B0 

SAE2l«eo 

3AE2IS10 

3AE21StO 

3AE2l9tO 

SAE2tS40 

3AE2tS50 

3AE21S60 

3AE21S70 

3AE21S80 

3AE21590 

3AE21600 

3AE216i0 

3AE21620 

3AE21630 

3AE21640 

3AE21650 

3AE21660 

3AE21670 

3AE21680 

3AE21690 

3AE21700 

3AE21710 

3AE21720 

3AE21730 

3AE21740 

3AE21750 

3AE21760 

3AE21770 



DATE 
EC NO. 
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15JUN67 
420317 
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01JUN70 
571097 
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0911 


0010 


MSG3 

* 


TYPE 


.A3 START TEST RTN... 


3AE217eO 
3AE21790 






091B 


0008 


MSG4 


TYPF 


.A6 MANUAL TERM.. 


3AE21800 
3AE21810 
3AF21820 
3AF21830 
3AF2ia40 










* 
* 




ERROR MESSAGES 






0923 


0009 


EROl 

* 


TYPE 


.El DATA SET FAIL.. 


3AF21850 
3AE21860 






092C 


0007 


ER02 

* 


TYPE 


.E2 LGST SYNC. 


3AE21870 
3AE21880 






0933 


0010 


ER03 

* 


TYPE 


.F3 INVALID LEADER... 


3AE21890 
3AE2I900 






093D 


0010 


ER04 

* 


TYPE 


.E4 EXP CL NOT RCVD.. 


3AE21910 
3AE21920 






09A7 


0011 


ER05 

* 


TYPE 


.E5 INVALID CONT SEQ. . . 


3AE21930 
3AE21940 






0952 


0006 


ER06 


TYPE 


.E6 ERR SEQ.- 


3AE21950 
3AE21960 






0958 


0007 


ER07 

* 


TYPE 


.E7 WRONG ACK.- 


3AE21970 
3AE21980 






095F 


0008 


EROB 

* 


TYPE 


.E8 ERR TIMEOUT.. 


3AE21990 
3AE22000 






0957 


0006 


ER09 

* 


TYPF 


.E9 INQ SEO.. 


3AF22010 
3AE22020 






096D 


0007 


EROA 

* 


TYPE 


.EA ILRC ERR... 


3AE22030 
3AE22040 






0974- 


0006 


EROB 

* 


TYPE 


.EB LRC ERR.. 


3AE22050 
3AE22060 






097A 


0006 


EROC 

* 


TYPE 


.FC 4/8 ERR.- 


3AE22070 
3AE22080 






0980 


0007 


EROD 

* 


TYPE 


.EO ABORT SEO.. 


3AF22090 
3AE22100 






0^987 


0011 


EROE 


TYPE 


.EE CONT CHAR IN TEXT-. 


3AE22110 
3AE22120 






0992 


0000 


EROF 

* 

* 
* 


DC 


SPARE MSG LOCATION 
SCA INFORMATION MESSAGES 


3AF22130 
3AE22140 
- 3AE22150 
3AE22160 
3AE22170 






0993 


0011 


INFOl 

* 


TYPE 


.11 DATA SET NOT RDY... 


3AE22180 
3AE22190 






099E 


0006 


INF02 

* 


TYPE 


.12 NO SYNC- 


3AE22200 
3AF22210 






09AA 


0007 


INF03 


TYPE 


.13 TEL RCVD... 


3AE22220 
3AE22230 






09AB 


0006 


INF04 

* 


TYPE 


.14 TIMEOUT.. 


3AF22240 
3AE22250 






09B1 


0008 


INF05 

* 


TYPE 


.15 CONTENTION... 


3AF22260 

3AE22270 

- 3AE22280 










* 
* 




MESSAGE ADDRESS TABLE 


^r^^\- £- C- K— ^^ >^ 

3AE22290 
3AE22300 






09B9 
09BA 
09BB 
09BC 
09BD 
09BE 
09BF 
09C0 
09C1 
09C2 
09C3 
09C4 
09C5 
09C6 
09C7 


0923 
092C 
0933 
093D 
0947 
0952 
0958 
095 F 
0967 
0960 
0974 
097A 
0980 
0987 
0992 


ERMSG 


DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 


EROl 
ER02 
ER03 
ER04 
ER05 
ER06 
ER07 
EROS 
ER09 
EROA 
EROB 
EROC 
EROD 
EROE 
EROF 


3AE22310 
3AF22320 
3AF22330 
3AE22340 
3AE22350 
3AE22360 
3AE22370 
3AF22380 
3AE22390 
3AE22400 
3AE22410 
3AE22420 
3AE22430 
3AE22440 
3AE22450 
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15N0V66 15JUN67 
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420416 571013 571066 571097 
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09C8 0993 
09C9 099 E 
09CA 09A4 
09CB 09AB 
09CC 09&1 



09CD 


0007 


0904 


0007 


09DB 


0012 


09E7 


0010 


09F1 


0012 


09FD 


0005 


0A02 


0009 


OAOB 


0009 


0A14 


0007 


OAIB 


0010 


0A25 


0006 


0A2B 


0008 


0A33 


0006 


0A39 


0009 


0A42 


0009 


0A4B 


0005 


0A50 


0005 


0A55 


0002 


0A57 


0030 


0A87 


09CD 


0A88 


0102 


NO 


STATEMENTS 



DC INFOl 

DC INF 02 

DC INF03 

DC INF04 

DC INF05 

TMSGl TYPE 

TMSG2 TYPE 

TMSG3 TYPE 

* 

TMSG4 TYPE 

TMSG5 TYPE 

TMSG6 TYPE 

TMSG7 TYPE 

TMSG8 TYPE 

TMSG9 TYPE 

* 

TMSGA TYPE 

TMSGB TYPE 

TMSGC TYPE 

* 

THSGD TYPE 

TMSGE TYPE 

* 

TMSGF TYPE 

TMSGG TYPE 

TMSGH TYPE 

TMSGI TYPE 

* 
*************************************************** 

TSTBL BSS 48 XMIT TBL FOR TEST RTN 2 

TRCTB DC TMSGl START OF TRACE TABLE 

END BEGIN 
FLAGGED IN THE ABOVE ASSEMBLY 



TRACE MESSAGES 
. Tl OPEN IN... 
. T2 OPEN OUT.. 
. T3 ACK AND RCVt ST WR.. 
. T4 XH DATA, ST WR.. 
.T5 S/I=IDLE, ST SYNC... 
.T6 ST RD.. 
.T7 S/I=TL, ST RO.. 
.T8 S/I=CL, ST RO.. 
.T9 S/I=IDLE... 
.TA S/I=IDLE, ST WR.. 
.TB TIMEOUT.. 
.TC ERR TIMEOUT.. 
. TD XM EOT.. 
.TE CLOSE, RESET... 
.TF ENDOP, ST RD... 
.TG CORE... 
TEXT... 



3AE22460 

3AE22470 

3AE22480 

3AE22490 

3AE22500 

3AF22510 

3AE22520 

3AE22530 

3AE22540 

3AE22550 

3AE22560 

3AE22570 

3AE22580 

3AE22590 

3AE22600 

3AE22610 

3AE22620 

3AE22630 

3AE22640 

3AE22650 

3AE22660 

3AE22670 

3AE22680 

3AE22690 

3AE22700 

3AE22710 

3AE22720 

3AE22730 

3AE22740 

3AE22750 

3AE22760 

3AE22770 

3AE22780 

3AE22790 

3AE22800 

3AE22810 

3AE22820 

3AE22830 

3AE22840 

3AE22850 

3AE22860 

3AE22870 

3AE22880 

3AE22890 

3AE22900 

3AE229I0 

3AE22920 

3AE22930 

3AE22940 

3AE22950 

3AE22960 

3AF22970 



DATE 


15N0V66 


15JUN67 


010CT67 


15SEP68 


01JUL69 


010CT69 


01JUN70 


EC NO. 
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420416 


571013 


571066 


571097 
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ABORT 

ABRTI 

ACK 

ACKO 

ACKS 

ALTER 

AO 

AQ2 

ASTER 

BEGIN 

BOOT 

BSY 

BUF 



BUSY 

BIO 

CHECK 

CKACK 

CKBSY 

CKOPR 

CKSCA 

CKSEQ 

CK48 

CLC 

CLEAR 

CLOSE 

CLSH 

CLTM- 

CL4A 

CNTER 

CNTRL 

CORSZ 

COUNT 

CR 

CRTRN 

C8 

DAT 

DATA 

DATAC 

DATAl 

DATA2 

DATER 

DFAIL 

DIN 

DIN2 

DLYA 

DLYB 

OSW 

DOOOX 

Dl 

D3 

D5 

D6 

08 

END 

END MS 

ENDMl 

ENDOP 

ENDSM 

ENOl 

END2 

END2A 

END2B 

EN03 

EN04 

ENTST 

E0I7 



077A 
08D1 
0896 
06B0 
0898 
067E 
0868 
086 A 
08F6 
01D2 
089A 
058 A 
080F 



042E 

0793 

736 

0660 

06F2 

05C8 

02B8 

077E 

0742 

08A2 

0732 

046C 

08CA 

08C7 

0473 

068B 

0760 

08E7 

08E3 

08F4 

088E 

0677 

0671 

08C2 

060A 

0161 

01A2 

0764 

0578 

04AA 

0492 

08DD 

080C 

08E0 

08F7 

08B8 

08B9 

086A 

08BB 

0684 

03BD 

0408 

0400 

0882 

0806 

03D4 

03EA 

03EE 

03F0 

03F4 

03FA 

07BA 

0619 



076E 

070C 

0483 

06B6 

0482 

064F 

027A 

03A8 

035E 

OlEO 

OlFl 

0586 

051B 

064D 

0742 

0427 

072B 

0710 

0655 

06DE 

049B 

02B4 

070D 

073A 

051D 

0727 

0433 

051C 

04E0 

0476 

0648 

0771 

0106 

05E8 

088E 

034E 

066E 

067 D 

0513 

0605 

0242 

024D 

07A4 

0572 

0487 

04B6 

0425 

042 8 

0502 

04E4 

023D 

02E1 

020D 

073F 

0667 

022D 

03C5 

03BF 

0281 

022C 

03F9 

03E6 

03 EC 

03ED 

03E4 

03DC 

0659 

050D 



0778 
0778 
04B3 

05B5 

0283 
03B3 



077F 

04B5 04E1 04E3 062D 0661 0677 06C0 06E5 



0291 0294 02A2 02A5 04F3 0811 



089A 0A88 



0539 
0657 
0753 
042A 
0735 
0782 



07C9 
02C3 



0543 05A7 05B4 05BE 05F6 05FB 05F0 0600 060E 0630 0634 

065B 0660 0668 066C 0679 06nC 06E7 06F8 0719 0725 0736 

0756 076F 0780 078F 07DF 0805 084D 0872 0874 

07A1 07B9 



02C8 



0804 087A 



044C 
052B 
05 4C 

064B 
0774 
01D8 
05EC 



055B 0562 05A4 064A 06D3 
0565 0619 063D 07CE 

0652 065D 065F 067A 06A2 06A8 

01E3 0447 0832 
0628 



06CB 06ED 0724 078C 0794 07A3 



0437 
0439 

07FF 
0450 
069A 



02D5 
03CB 

0492 
04 EC 



03E9 
03E0 
06FD 



04FF 
0500 



0536 05EB 062A 0698 06C5 
073C 07A7 



0310 

03CF 048B 04B0 

0524 056B 
07BF 0846 



03EF 



EOTC 


08A7 


05A8 0658 


06F9 


0704 




E0T7 


0615 


05DA 








ERINT 


03B9 


08F3 








ERLOG 


02C5 


02BE 








ERMSG 


09B9 


0818 








ERRC 


08A5 


066D 06B8 








ERROR 


0818 


OBOE 








ERRPR 


02BE 


02B6 








ERRSW 


08D7 


0442 08 ID 


083E 






ERRTO 


06A3 


0695 069B 








EROA 


096D 


09C2 








EROB 


0974 


09C3 








EROC 


097A 


09C4 








EROD 


0980 


09C5 








EROE 


0987 


09C6 








EROF 


0992 


09C7 








EROl 


0923 


09B9 








ER02 


092C 


09BA 








ER03 


0933 


09BB 








FR04 


093D 


09BC 








ER05 


0947 


098D 








ER06 


0952 


09BE 








FR07 


0958 


09BF 








EROB 


095F 


09C0 








ER09 


0967 


09C1 








EX 


08EC 


02B5 02C0 


047D 


081A 




EXIT 


04F0 


0420 0430 


043D 


043F 0477 04CB 




EXITl 


04E1 


046 A 04DA 








EXIT2 


04F7 


04A9 04E0 








EXl 


06B9 


06C1 








FAIL 


08CC 


04F9 0530 


056E 


080B 




FAILC 


052F 


0506 








FILL 


0642 


0638 








FOURS 


076B 


074E 0751 








GOATA 


0856 


060A 0767 


0860 


0865 




GILRC 


0720 


0718 








GMC 


08A9 


05B7 0603 


0759 






GOOD 


0765 


075A 075E 


0764 






HALT 


030F 


0201 02AC 


02CC 


03D7 




HEX 


0385 


02F0 02F5 


0343 


035C 0395 03C3 


03C9 


HEXl 


038B 


038A 








HEX2 


0390 


0387 








HFFOO 


08B1 


0542 0790 








HXMSG 


0366 


0341 0344 


0345 


035F 0363 




HOCOO 


08B2 


0773 








HOFOO 


08B5 


04D1 








HOOEF 


08AE 


0826 








HOOFF 


0866 


035B 03C2 


0456 






HOOFO 


0884 


0454 04B8 








H0004 


06B0 


0432 0438 


0448 


04FF 




H007C 


08B7 


0207 030F 


0316 


0309 




H0600 


08B3 


06FF 








H6CC0 


08AF 


0777 








H60C0 


08AC 


0520 








H6300 


08AB 


05AB 








H65 CO 


08AA 


05AE 0702 








H8000 


08AD 


0746 0749 


074C 


0750 




lOLCT 


08F8 


04E5 0533 


0537 


0800 




IDLE 


08A4 


0538 065C 


0669 


0770 0781 0708 


0878 


ILRC 


08D0 


0455 04B9 


0606 


075C 




ILRC7 


062 F 


05 E6 062 E 


0641 






iNcse 


0706 


06E8 








INFOl 


0993 


09C8 








INF 02 


099E 


09C9 








INF03 


09 A4 


09CA 








INF 04 


09AB 


09CB 








INF05 


09BI 


09CC 








INQC 


08A5 


05BF 060D 


07D0 
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INQON 

INQQ 

INq7 

INTER 

INTX 

INTXA 

INTl 

INT4 

INVAL 

lOAR 

ITRCA 

ITRCH 

LAST 

LCNTL 

LOCL 

LOTL 

LGBSY 

LGDLY 

LGINT 

LINTX 

LINTl 

LINT2 

LOAD 

LOG 

LOGl. 

L0G2 

LOGS 

LQG3A 

L0G4 

L0G5 

LQG6 

LOG7 

LOOP 

LRC 

L12SW 

M0X3 

MSG 

MSGl 

MSG2 

MSG3 

MSG4 

NBUSY 

NOACK 

NOSYN 

NOVER 

NSAVE 

NTEST 

OPEN 

OPERR 

OPFRl 

OPR 

OPREX 

OPW 

OVRCR 

PNTA 

PNTB 

PNTC 

POINT 

PRADR 

PROSW 

PRINT 

PBTHD 

QINQ 

QLRC 



0686 
05BE 
061F 
08F3 
080B 
080F 
04F2 
03A7 
076F 
08E4 
0845 

084C 
0724 
08CF 

087A 
087C 
0609 
08DE 
0369 
0382 
037E 
0380 
0878 
031F 

032C 
0334 
033E 
0342 
034B 
034F 
0356 
035A 
0209 
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089C 
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090C 
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044 E 
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05C3 

0497 

05B8 

0493 

0448 
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0302 

0850 

04FD 

05ED 

0347 
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0380 

036F 

0607 

05E9 



0520 0530 
081F 082A 
0816 
03B7 
0740 

04BC 0629 
0551 0558 
0847 084A 
053B 0545 

0518 052C 
0645 06A9 



0320 0351 
0326 0354 
03AD 
0377 0381 



0280 04A3 
0212 021F 
G32C 032E 
0327 



0569 06F0 072? 0769 Q791 07E3 07F8 0801 



0560 057A 0501 069F 06A6 06E3 079D 07AO 07B6 07F4 

0851 0864 

0714 0762 076C 0784 0789 07EO 0806 0854 085B 

0567 056C 057F 059F 0611 0615 061A 061F 0623 06?C 

06CE 070F 0712 0761 078E 080A 



0382 
0355 



06E0 
0230 
0331 



03 6 B 



07F0 07F9 

0246 026F 0286 0297 02B1 02C5 02DB 0?FA 0311 

0334 033B 0356 0358 03B0 03C0 03F1 03F4 



0330 



05FF 062F 
0372 037B 



0632 
037F 



06EC 071A 0721 0726 0729 0733 0754 0755 



0833 



05C0 

07C5 

05BB 05BO 
07C1 

0481 082C 
0445 047F 
03DF 03E2 

081E 0821 
05F9 062B 
034C 0360 
03AF 

0376 0890 



0835 
0842 
03F7 

0828 

0379 
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0853 
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OTEL 


06FF 


06FA 








RCDCT 


08E6 


0300 047A 0665 072F 








RCL 


0550 


0540 








RCR 


06CB 


0460 








RCT 


0786 


0601 0707 070A 








RCTIM 


079A 


0464 








RCV 


0227 


022F 








RCVD 


0416 


04AE 








RCVER 


08C5 


05A1 0647 0600 0709 0780 0795 0790 07A0 07F7 








RCVTR 


0888 


04B2 








RCW 


06A9 


0450 








RDF 


08F9 


0462 0499 0405 0514 0519 0707 








RDSHS 


0894 


0305 








ROl 


0565 


0550 








RD2 


0567 


0554 








READ 


0872 


0270 0512 








REAOI 


0500 


0503 








READY 


08D3 


047B 0531 0571 








RECRD 


0709 


06CC 








RECV 


0453 










RESET 


0884 


0329 03BA 042B 0470 








RETIM 


088A 


06EF 








RIGHT 


08DA 


05EF 05F3 05F8 








RM 


08A8 


0601 0757 








RTBSY 


08C6 


0422 04E7 0585 0505 0637 0683 0686 06F2 0720 07BE 








RTL 


0555 


054A 








RTRN 


086 5 


0850 








RTTBL 


0219 


0217 








SAVE 


OSES 


04FB 080F 








SAVIT 


0841 


0830 








SCAT 


0418 


OlFB 0222 0227 0235 023F 0253 0258 02B8 020F 0318 0410 0435 


04CF 






SEND 


0886 


0491 








SENSR 


0880 


027B 0292 02A3 0501 








SENT 


0414 


0489 








SFOT 


04DB 


0402 








SIREG 


087E 


029E 02A4 








SNSPR 


0892 


03AB 








SORT 


0623 


05E3 0622 








SPACE 


0880 


0349 








SPS 


08F5 


0880 








START 


OlFB 


0313 03FE 








STAT2 


03B4 


03A9 








STCOR 


OlEl 


01D9 








STRED 


086C 


0277 0282 0525 0568 








STWRT 


086E 


028E 029F 04E6 07FA 








STWT2 


07F9 


0675 06F6 








SVDTA 


060E 


0608 








SWBSY 


0808 


01F7 0208 02F9 0300 0303 








SWCHK 


0207 


OlFE 02A9 0209 0209 02FD 0304 








SHINT 


02FF 


0301 0306 03B1 








SWMSG 


0308 


02F2 02F7 02FC 








SWON 


06F8 


06D4 








SHS 


08EF 


02DF 02EC 0894 








SWO 


0890 


01F5 0200 0208 02AB 0201 020B 02E7 0310 0317 0306 03DA 03FA 
0857 


083A 






SHI 


089E 


0209 020C 0211 0215 








SW2 


089F 


0233 








SW3 


08A0 


02E9 








SW3A 


OBAl 


02EB 0876 087E 








SYNC 


0870 


04A4 07F1 








SYNC I 


08D4 


047C 0510 050 8 








T 


089D 


0102 0108 01E5 OlEE OlFl 01F5 01F6 01F7 0200 0207 0208 0209 
0200 0211 0220 0233 0234 023A 0230 023E 0276 0277 027A 027B 
0281 0282 0283 028D 028E 0291 0292 0293 0294 029E 029F 02A2 
02A4 02A5 02AB 02B5 02C0 0201 02CB 0208 02DF 02E1 02E9 02EB 
02F9 0300 0305 030F 0310 0316 0317 0320 0326 0329 0349 034E 
0355 035B 035E 036B 036F 0376 037F 0380 0382 03A8 03AB 03AC 
03B3 03BA 0300 0302 0306 03D9 03DA 030E 03DF 03FA 0422 042B 


0200 
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0*7F 


0*80 


0*81 


0*82 
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0*A* 
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0*B8 


0*89 
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0*BE 
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0*0B 


0*E1 


0*E3 


0*E* 


0*E5 


0*E6 


0*EC 


0*E0 


0*EE 


0*F3 


0*FB 






0*FD 


0*FE 


0*FF 


0500 


0501 


0502 


0512 


0513 


0518 


051B 


051C 


0510 


0520 






052* 


0525 


05 2B 


05 2C 


0530 


0533 


0536 


0537 


0538 


0539 


053A 


053F 


05*2 






05*3 


05** 


05*8 


05*9 


05*C 


0555 


0S5B 


0550 


0565 


0566 


0567 


0568 


056B 






056E 


0571 


057F 


0582 


0585 


05 8A 


05BB 


058C 


0591 


059* 


0597 


059A 


05AI 






05A* 


05A7 


05A8 


05AB 


05AE 


05B1 


05B* 


05B5 


05B7 


05BE 


056F 


05C2 


05C5 






05C8 


05D6 


0509 


050C 


050F 


05E2 


05E5 


05E8 


05EB 


05EC 


05F6 


05F8 


05FB 






05FD 


05FE 


05FF 


0600 


0601 


0603 


0606 


0607 


060E 


0611 


0615 


0619 
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0623 


0626 


0627 
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0629 
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062B 


062C 


0620 


062F 


0630 


0632 






0633 


063* 


0637 


063A 


06*3 


06*7 


06*A 


06*0 


06*E 


0651 


065* 


0657 


0658 






065B 


06 5C 


0660 


0661 


066* 


0668 


0669 


066C 


0660 


06 72 


067* 


0677 


0679 






067E 


0682 


0683 


0686 


06 8C 


068F 


069* 


0697 


0698 


0699 


069A 


06A9 


06AC 






06AF 


06B2 


0685 


06B8 


0680 


06C0 


06C3 


06C* 


06C5 


06C6 


06C8 


06CB 


0600 






0603 


0606 


0608 


06DC 


0600 


06E0 


06E5 


0667 


06EA 


06EB 


06EC 


06EF 


06F2 






06F8 


06F9 


06FF 


702 


0709 


070C 


070F 


0716 


0719 


071A 


0710 


0720 


0721 






072* 


0725 


0726 


0729 


072A 


072D 


0733 


0736 


073C 


073F 


07*2 


07*6 


07*9 






07*C 


0750 


0753 


075* 


0755 


0756 


0757 


0759 


075C 


0750 


0761 


076F 


0770 






0773 


0777 


0778 


077C 


077F 


0780 


0781 


078C 


0780 


078F 


078F 


0790 


079* 






0795 


079C 


07A0 


07A3 


7A6 


07A7 


07B0 


07B1 


07BA 


07BC 


07BD 


07BE 


0700 






0703 


070* 


0707 


0708 


07DB 


07DC 


07DF 


07E2 


07F0 


07F1 


07F7 


07F9 


07FA 






07FF 


0800 


0802 


080* 


0805 


0808 


080 A 


080F 


0811 


081A 


0810 


081E 


0826 






082C 


0831 


0832 


0835 


083A 


083E 


08*1 


08*2 


08*6 


08*0 


0852 


0853 


0857 


TAB4 


08BC 


0*73 


























TBADR 


08F2 


0*7E 


























TEL 


08BF 


0651 


067E 


0682 


068C 




















TELC ■ 


08A6 


06*E 


07DC 
























TEL7 


0611 


05D7 


























TERM 


0315 


02AF 


























TEST 


0212 


020E 


























TESTO 


021F 


0219 


























TESTl 


0230 


021A 


























TEST2 


02*6 


021B 


























TEST3 


026F 


021C 


























TEST* 


0286 


021D 


























TESTS 


0297 


021E 


























TIME 


08FB 


0*66 


0*90 


0*C9 


056F 


07CB 


















TLC 


08A3 


0802 


08 7C 
























TtCL 


052B 


051E 


0521 


052A 






















TLTM 


08C8 


0*EE 


05*9 


0566 


06B9 


06C8 


















TLTMQ 


06C2 


06AD 


























TMCHK 


056B 


0509 


050E 
























THEOT 


02CF 


023B 


0260 
























TMOK 


07A0 


07A8 


























TMSGA 


OAIB 


07FB 


























TMSGB 


0A25 


0690 


079A 
























TMSGC 


0A2B 


0578 


05CF 


06 A* 


07AA 


07B* 


















TMSGO 


0A33 


0*0C 


























TMSGE 


0A39 


0*6C 


























TMSGF 


0A42 


0526 


























TMSGG 


0A4B 


0836 


























TMSGH 


0A50 


0862 


























TM5GI 


OA55 


03F3 


























TMSGl 


09C0 


0*AA 


0A87 
























TMSG2 


09DA 


0*8D 


























TMSG3 


09DB 


0458 


























TMSG4 


09E7 


0*0* 


























TMSG5 


09F1 


0*A5 


07F2 
























TMSG6 


09FD 


05*F 


























TMSG7 


0A02 


0556 


























TMSG8 


OAOB 


055E 


























TMSG9 


0A14 


06E1 


























TOCNT 


08D2 


0*** 


0697 


0699 


06C* 


06C6 


0606 


060B 


07A6 












TOIND 


08C9 


0**3 


06AC 


06C3 


07B1 




















TRACE 


082B 


045A 


0*6 E 


0*8F 


0*A7 


0*AC 


0*06 


0*DE 


0*F9 


0810 


083F 


08*3 


08*9 




TRCTB 


0A87 


0300 


08E9 


08EA 


08F2 





















TRTBL 

TSTBt 

TST21 

TST22 

TYPE 

T3IEX 

T3INT 

T*INT 

T5INT 

VALID 

VECTR 

woe NT 

WRSW3 

UTA 

WTB 

WTBUF 

WTC 

HTCL 

WTENO 

WTEOI 

WTEOT 

WTF 

WTINQ 

WTTFL 

WTTL 

WTl 

WT2 

WT3 

X 

XACK 

XCL 

XEOI 

XEOT 

XEOTQ 

XERR 

XINQ 

XMCNT 

XMEOI 

XMEOT 

XMINQ 

XMIT 

XMITI 

XMPAD 

XMR 

XMT 

XMTEL 

XMW 

XMWl 

XMW2 

XMl 

XM2 

XPAD 

XRLRC 

XR2 

XR2A 

XR3 

XSOR 

XTEL 

XI 
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I . PURPOSE 



THE PURPOSE OF THE SCA DISPLAY PROGRAM IS TO PROVIDE AN AID FOR 

MANUAL CONTROL OF THE SYNCHRONOUS COMMUNICATIONS ADAPTER ISCA) AND 

TO DISPLAY THE RESULTS FOR VISUAL OBSERVATION. 

THE DISPLAY PROGRAM IS USED IN CONJUNCTION WITH THE SCA C.E. SWITCHES 

AND THE CONSOLE StJiTCHES. 

IT SHOULD BE EMPHASIZED THAT THIS PROGRAM IS NOT INTENDED FOR ERROR 

DETECTION OR FAULT FINDING. HOWEVER IT IS MOST SUITABLE FOR DETAILED 

ANALYSIS OF A PARTICULAR SCA FUNCTION THAT IS SUSPECTED AS BEING 

FAULTY. 



2. REQUIREMENTS 

2.1 PROGRAM REQUIREMENTS 



THERE ARF NO PROGRAM PREREQUISITES FOR RUNNING THE DISPLAY PROGRAM. 
THE DISPLAY PROGRAM* IS A STAND ALONE TYPE OF PROGRAM AND IS THE ONLY 
PROGRAM RESIDING IN 1130 MEMORY DURING ITS EXECUTION. 



2.2 EQUIPMENT REQUIREMENTS 

1. DATA TERMINAL SWITCH IN TEST POSITION. 

2. CE SPACE SWITCH TO MARK lOFFI. 

3. CE MODE SWITCH TO ON. 

4. SET SCA SPEED SELECT SWITCH TO SINGLE PULSE. 

5. SET CONSOLE SWITCHES 5,6,7 AND 8 THROUGH 15 FOR DESIRED INSTRUC- 
TION TO BE EXECUTED. SEE OPERATING PROCEDURE AND DISPLAY CHARTS. 

6. SIR SWITCH TO ST«. 

7. ACCUMULATOR BIT 15 WILL BE ON UNTIL PUT TO USE BY CE. 

THIS INDICATOR IS AVAILABLE FOR WIRING OF ANY DISPLAY DESIRED. 
USE PANEL PIN K7B09. 

8. CHECK TO SEE THAT JUMPERS ARE INSTALLED AS SHOWN BELOW. 
INSTALL OR REMOVE JUMPERS AS REQUIRED. MARK ON THIS PAGE 
ANY JUMPERS THAT ARE CHANGED FOR THIS TEST, AND RESTORE TO 
ORIGINAL CONFIGURATION AFTER COMPLETION OF tEST. 

H2DI0-06005 NOT INSTALLED 
K2D08-K2B08 INSTALLED 
L2004-LZD08 INSTALLED 

M2B04-M200e INSTALLED INOT REQUIRED IF A DIAL-UP DATA SET 
IS CONNECTED I 

NOTE. .REFER TO LOGIC PAGE A0003 FOR CUSTOMER OPTION JUMPERING. 

3. OPERATING PROCEDURE 

3.1 PROGRAM LOADING 

TO LOAD FROM CARDS... 

A. PLACE THE RELOCATING LOADER. THE SCA DISPLAY 
PROGRAM, AND AT LEAST ONE BLANK CARD IN THE READER. 

B. MAKE READER READY. 

C. PRESS THE 1131 RESET AND' PROGRAM LOAD KEYS. 

D. IF PROGRAM FAILS TO LOAD OR STOPS AT A WAIT BELOW ADDRESS /0160 
REFER TO THE RELOCATING LOADER DOCUMENTATION. 

E. TO LOAD HEX PATCH CARDS USE THE FOLLOWING FORMAT- 
COLUMN 1 12 PUNCH 

COLUMN 2-5. ...HEX VALUE OF THE CORE ADDRESS TO BE MODIFIED. 

COLUMN 6 .MUST BE BLANK. 

COLUMN 7- 10... DATA WORD TO BE INSERT INTO THE PROGRAM. 

COLUMN 11 MUST BE BLANK. 

COLUMN 12-15. .DATA WORD ETC. 

COLUMN 16 MUST BE BLANK 

COLUMN 17-20.. OAT A WORD ETC. 
ETC. 

TO LOAD FROM PAPER TAPE... 

A. PLACE THE RELOCATING LOADER IN THE READER. 

B. MAKE READER READY. 

C. PRESS THE 1131 RESET AND PROGRAM LOAD KEYS. 

0. AT LOADER WAIT 30F6 (B REG) PLACE THE SCA PROGRAM IN THE READER. 

E. MAKE READER READY. 

F. PRESS PROGRAM START. 

G. IF PROGRAM FAILS TO LOAD OR STOPS AT A WAIT BELOW ADDRESS /0160 
REFER TO THE RELOCATING LOADER DOCUMENTATION. 

H. HEX PATCHES MUST BE LOADED VIA THE BIT SWITCHES AFTER 
THE PROGRAM IS LOADED. 
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3.2 PROGRAM OPERATION 

A SUCCESSFUL PROGRAM LOAD AND SWITCH SET-OP MILL BE INDICATED BY BIT 
8 OF THE ACC BEING ON AND THE STEPPING OF THE I COUNTER AND THE MEM- 
ORY ADDRESS REGISTER. THIS INDICATES THAT THE PROGRAM IS RUNNING, 
SENSE DSH INSTRUCTION IS WORKING AND THE RCV RUN TRG IS BEING READ 
OUT. THE DISPLAY PROGRAM, WHEN RUNNING, INDICATES THE STATUS OF THE 
DSH, DIAGNOSTIC WORD I, DIAGNOSTIC WORD 2 AND SCA BUFFER CONTENTS. 
MANUAL CONTROL OF THE PROGRAM AND THE SCA IS ACCOMPLISHED BY THE SCA 
CE SWITCHES AND THE 1130 CONSOLE SWITCHES. 

INSERTING AND EXECUTING DIFFERENT SCA INSTRUCTIONS IS ALSO UNDER 
MANUAL CONTROL OF THE CONSOLE SWITCHES. SEE SECTION 3.3 PROGRAM 
CONTROL . 

3.3 PROGRAM CONTROL 

THE DISPLAY PROGRAM AND SCA ARE UNDER MANUAL CONTROL OF THE SCA CE 
SWITCHES AND THE 1130 CONSOLE SWITCHES. THE 1130 CONSOLE SWITCHES 
PROVIDE ABILITY TO INSERT AND EXECUTE DIFFERENT SCA INSTRUCTIONS. 
THE CE SWITCH PROVIDE CONTROLS TO THE SCA CIRCUITRY AND FOR SINGLE 
CYCLE CONTROL OF THE SCA CLOCK. 
THE CONTROLLING FUICTION OF THESE SWITCHES ARE AS FOLLOWS 



CE SPACE SWT. 



CONSOLE SWT 0.. 



,.EACH CHANGE OF SWT WILL INITIATE THE EXECUTION 
OF THE SCA INSTRUCTION SET-UP IN THE CONSOLE SWTS. 



FOR VISUAL DISPLAY. ON, 
1 TO FUNCTION NORMALLY. 



PERMITS INTERRUPT LEVEL 



CONSOLE SWT 2... 



,UP, TO READ AND DISPLAY SCA BUFFER DATA IN ACCOM. 
DOWN, TO DISPLAY OSW IN ACCUMULATOR 



CONSOLE SWT 3. 



.ON, TO LOAD CONSOLE SWTS 8 THROUGH 15 INTO 
COMMON DUMP AREA OF DISPLAY PROGRAM. INSTRUCTIONS 
FOR LOADING ARE.... SET SWT 3 ON AND DESIRED BIT 
VALVES IN SWITCHES 8-15, IMMEDIATE STOP, CONSOLE 
RESET, PROGRAM START. USEFUL IN CHANGING BUFFER 
WRITE DATA. 

OFF, PERMITS COMMON DUMP AREA TO BE CLEARED TO 
ZERO DURING A PROGRAM RESTART- 



..SET OFF IMARKl THIS CONDITIONS THE RECEIVE DATA 

LINE TO A RECEIVE MARK LEVEL 

WHEN ON (SPACEJ THE RECEIVE SPACE LINE ARE ACTI- 
VATED 

CE SNGL CYC PB SW.THIS PUSHBUTTON SWITCH CONTROLS THE PUSHBUTTON 

LATCH. PRESSING.. TURNS ON THE PB LATCH, RELEASING 
TURNS OFF THE PB LATCH. THIS SWITCH AND THE OTHER 
CE SWITCHES PROVIDE ON/OFF CONTROL OF -THE GATED 
OSCILLATOR A LINE AND B LINE. 

CAUTION ... THIS PB SWITCH IS NOT INTERLOCKED 
WITH PRINT OUT. ADVISE SLOW REPETITION WHEN 
OPERATING P. B. SWITCH. 

3.4 PROGRAM HALTS 

.HALT NO. DESCRIPTION . RESTART ACTION 

3001 . PROGRAM STOP . RESET AMD RESTART PROGRAM 



3.5 



RESTART 

PRESS IMMEDIATE STOP, RESET, THEN START. THIS MILL RESET SCA 
AND COUNTER, AND RESTART THE DISPLAY PROGRAM. RESTART ACTION 
WILL ALSO TRANSFER CONSOLE SWTS 8-15 TO COMMON DUMP AREA WHEN SWT 3 
IS UP. 



4. PRINTOUT AND DISPLAY CHARTS 
4.1 PRINTOUT 



THE ONLY PRINTOUT MADE BY THE DISPLAY PROGRAM WILL BE TH6 COUNT 
VALUE FOR THE NUMBER OF TIMES THE CE PUSH BUTTON HAS BEEN PUSHED. 
THE COUNT VfALUE IS CONSECUTIVE. EACH DEPRESSION OF THE CE PUSH 
BUTTON CAUSE AN INCREMENT OF ONE TO THE COUNT AND THAT VALUE TO 
BE PRINTED OUT. IE I 2 3 4 5 6 7 8 <9 10 11 12 13 ETC. 



CONSOLE SWT 4 UNUSED 

CONSOLE SWTS 5-7. .TO SPECIFY THE 3 BIT FUNCTION CODE OF THE lOCC I IN- 
PUT/OUTPUT CONTROL COMMAND! FOR SCA INSTRUCTIONS. 
SEE SECTION 4, DISPLAY CHARTS. 

CONSOLE SWTS B-15.T0 SPECIFY THE 8 BIT MODIFIER CODE OF THE lOCC FOR 
SCA INSTRUCTIONS. SEE SECTION 4, DISPLAY CHARTS. 
WHEN SWT 3 IS UP, CONSOLE SWTS 8 THROUGH 15 WILL 
BE TRANSFERRED INTO THF COMMON DUMP AREA OF THE 
DISPLAY PROGRAM. 

SPEED SFLE'-T SWT.. SET TO SINGLE 5>ULSE FOR CLOCK CONTROL 

STR SWT SET TO STR FOR OPFRATION MODE CONTROL 

CE MODE SWT SET ON TO SCTlVi^TE THE TE SPSCE SWITCH SND THE 

SINGLP CYCLE PUSHBUTTON CIRCUITRY. 
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*.2 DISPLAY CHART 

NOTE. -PROGRAM SHOULD BE RESTARTED AFTER START WRITE, START READ, 
SYNCRONIZE MODE, OR DIAGNOSTIC MODE COMMANDS ARE EXECUTED. 



.COMMAND 



.lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 



CONSOLE 

INDICATORS 

ROY 

ABL 

REC 

TSM 

BFR 

CLK 

I 

C P 

ACCUMULATOR 
RO RESPH 

MRT RESPN 

CI^CK 

TIMEOUT 

ANS RED 

BUSY 

ENABLE 

READY 



I 
2 
3 
* 

6 
7 
8 REC RUN 



ACCM EXT 
SYNC TRG 
lOL CH TR 
CH CMPLT 
END OP TR 
0IA6 TRG 
TIMER TRG 
3 SEC TMR 
1.5 SEC T 

8 SND SPACE 

9 CLK GT TR 

10 SYNC CTR 

11 1ST TRAN 

12 P C CTRL 

13 REC TAG 
1* C P TRG 
15 P C 1 TR 



1 
2 
3 
* 

5 
6 
7 



COMMAND 

• « • 

MRITE 
EXECUTE SMT 

PB COUNT 

* 



* 



lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 
SMt't* .SMT I* .ALARM ON 



NOTE... ALARM SHOULD STAY ON UNTIL 
RESET OR ALARM OFF COMMAND. 



CONSOLE 

INDICATORS 

ROY 

ABL 

REC 

TSM 

BFR 

CLK 

D I 

C P 

ACCUMULATOR 
RO RESPN 

WRT RESPN 

CHECK 

TIMEOUT 

ANS REQ 

BUSY 

ENABLE 

READY 



1 
2 

3 

* 
5 
6 
7 
8 REC RUN 



ACCM EXT 
SYNC TRG 
IDL CH TR 
CH CMPLT 
END OP TR 
01 AG TRG 
TIMER TRG 
3 SEC TMR 
1.5 SEC T 

8 SND SPACE 

9 CLK GT TR 

10 SYNC CTR 

11 1ST TRAN 

12 P C CTRL 

13 REC TAG 
1* C P TRG 
15 P C 1 TR 



1 
2 

3 
* 
5 

6 

7 



WRITE 
EXECUTE SMT 

PB COUNT 

4t 



SMT 




,SMT 15 



.ALARM OFF 



NOTE... SEE ALARM ON COMMAND 



TftTF 


?0FFR67 


15JUM67 


">in'"T67 


15SFP6R 


01JUN6" 


OIJUN-'" 


FC NO. 


A19t.t;^ 


*?0317 


•^20 3 7i 


4?041?. 


S7ni3 


■=71097 



PROG I"> 


ri3 4C-« 


OiSTE 


20FFB67 


15JUN6^ 


010CT57 


15SEP68 


01JUN69 


01JUN70 


OAOF 


1 


EC NO. 


*19656 


*20317 


*2037* 


*20*16 


571013 


5710-57 



PROG ID 
P4(;E 



n^AF-* 
3A 



IBM MAINTENANCe DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA DISPLAY PROGRAM 



PART NO. 224355^ 
PAGE ^ 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA DISPLAY PROGRAM 



PART MO. 2243'56* 
PAGE 4ft 



CONSOLE 

INDICATORS 

RDY 

ABL 

REC 

TSM 

BFR 

CLK 

I 

C P 



ACCUMULATOR 

RD RESPN 

1 HRT RESPN 
CHECK 
TIMEOUT 
ANS REO 
BUSY 
ENABLE 
READY 
REC RUN 



ACCH EXT 
SYNC TRG 
IDL CH TR 
CH CNPLT 
END OP TR 
DUG TRG 
TIMER TRG 
3 SEC TMR 
1.5 SEC T 

8 SND SPACE 

9 CLK GT TR 

10 SYNC CTR 

11 1ST TRAN 

12 P C CTRL 

13 REC TAG 

14 C P TRG 

15 P C I TR 



1 
2 
3 

4. 
5 
6 

7 



COMMAND 

CONTROL 
EXECUTE SWT 

PB COUNT 

♦ 



lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 

SWT 5 .SWT B .ENABLE SCA 

^ 



NOTE. ..NO INTERRUPT, PB ACTION HAS NO 
EFFECT. 



CONSOLE 

INDICATORS 

ROY 

ABL 

REC 

TSM 

BFR 

CLK 

D I 

C P 

ACCUMULATOR 

RD RESPN 

1 MRT RESPN 

2 CHECK 

3 TIMEOUT 

4 ANS REQ 

5 BUSY 
6, ENABLE 

7 READY 

8 REC RUN 

ACCH EXT 
SYNC TRG 
IDL CH TR 
CH CNPLT 
END OP TR 
DIAG TRG 
TIMER TRG 
3 SEC TMR 
1.5 SEC T 

8 SN0 SPACE 

9 CLK GT TR 

10 SYNC CTR 
1ST TRAN 
P C CT9L 

13 REO TAG 

14 C P T7t6 

15 p C 1 T« 



11 
12 



COMNANO 

CONTROL 
EXECUTE SMT 

PB COUNT 



lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 

SHT 5 ' .SHT Q .DISABLE SCA 

' . ^. 



NOTE. ..NO INTERRUPT , PB ACTION HA? NO 
EFFECT. 



04TF 
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T5SFPfr» 
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OIJ'IMT^ 


PAdE 


4 


P-" W 
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4?«'lt 
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COMMANO 

.START MRlTf 

•EXECUTE SWT 

CONSOLE 

INDICATORS .PB COWT 

ROY . * 

ABL 

REC 

TSN 

BFR 

CtK 

1 

C P 



lOCC FUNCTION lOCC mOIFIER CODE. FUNCTION 



ACCtMULATOR. 
RO RESPN . 

WRT RESPN. 

CHECK 

TinfiOUT . 

ANS REQ . 

BUSY 

ENABLE 

READY 

REC RUN . 



I 
2 
i 

4 
5 
6 

T 
B 



ACCN EXT 

SVMC TR6 . 

IDL CH TR. 

CH CMPLT . 

END (»> TR. 

QIA6 TRG . 

TIME« TRe< 

3 SEC Tl«. 

1.5 SEC T. 

SND SPACE. 

cm GT TR. 
lO^VNC CTR. 

11 1ST TRAN. 

12 P C CTRL. 

13 REC TAG . 

14 C P TRG . 

15 P C 1 TR. 



I 
2 
3 

4. 

5 

6 

7 

8 

9 






SMTS 5 AND 7 .SWT 9 



.RESET SCA 



NOTE... SHOULD RESET ANY CIRCUITS LEFT 
AN BY A PREVIOUS COMMAND. 
SEE ALARM ON COHhANO. 



.^COMMAND .lOCC FUNCT 




> ^ - . . . • m ■ , 


» • ■ 




.CONTROL .SMT 
.EXECUTE SMT.O— 


5 






CONSOLE 






INDICATORS . 


,P8 COUNT 




RDV 


. * . . 




ABt 






REC 






TSM 






BFR , 






CLK 






D I 






C P 






ACCimULATORi 




RD RESPN . 






I URT RESPM. 






2 CHECK 






3 TIMEOUT 






4 ANS REQ . 






5 BUSY 






6 £NABt£ 






T READY 


. • . . 




8 REC RUN . 


• 










ACCMEXT***! 






SYIK: TRG . 






1 lOL CH TR. 






2 CH CNPLT . 






3 END OP TR, 






4 01A6 TRG . 






5 TIMER TRG. 


. • . . 




6 3 SEC TNR. 






7 1.5 SEC T. 






8 SND SPACE. 






9 CLK GT TR. 






10 SYNC CTR. 






11 1ST TRAN. 






12 P C CTRL. 






13 REC TAG . 






14 C P TRG . 






15 PCI TR. 


* . 





lOCC FUNCTKMt. lOCC MODIFIER CODE. FUNCTION 

,SNT 10 .START/STOP TIMER 



»nTE..,EACH TIMf SMTO IS CHANGED THE 
TIMER TRIG <BIT 5 OF ACCN EXTI HILL 
CHANGE ITS OFF/ON StATUS. PB ACTICM 
HAS MO EFFECT, NO INTERRUPT 
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.COMMAND 




> ... 




.CONTROL 




.EXECUTE 




CONSOLE 




INDICATORS 


.PB COUNT 


ROY 


, ♦ 


ABL 




REC 




TSM 




BFR 




CLK 




D I 




C P 




ACCUMULATOR 




RD RESPN 




1 MRT RESPN. 




2 CHECK 




3 TIMEOUT 




4 ANS REQ . 




5 BUSY 




6 ENABLE 




7 READY 


« 


8 REC RUN . 


♦ 






ACCM EXT 




SYNC TRG . 




I fOL CH TR 




2 CH CMPLT , 




3 END OP TR, 


* 


* OlAG TRG . 




5 TIMER TRG. 




6 3 SEC TMR. 




7 1.5 SEC T. 




8 SND SPACE, 




9 CLK GT TR. 




10 SYNC CTR, 




11 1ST TRAN, 




12 P C CTRL, 




13 REC TAG , 




14 C P TRG . 




15 PCI TR. 


* 



.lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 

.END OP 



NOTE. ..NO INTERRUPT, P8 ACTION 
HAS NO EFFECT. 



CONSOLE 

INDICATORS 

RDY 

ABL 

REC 

TSM 

BFR 

CLK 

D I 

C P 



ACCUMULATOR 
RD RESPN 

WRT RESPN 

CHECK 

TIMEOUT 

ANS REQ 

BUSY 

ENABLE 

READY 



1 
2 
3 

* 
5 

6 
7 
8 REC RUN 



ACCM EXT 

SYNC TRG 

1 IDL CH TR 
CM CMPLT 
END OP TR 
DIAG TRG 
TIMER TRG 
3 SEC TMR 
1.5 SEC T 

8 SND SPACE 

9 CLK GT TR 

10 SYNC CTR 

11 1ST TRAN 

12 P C CTRL 

13 REC TAG 

14 C P TRG 

15 P C 1 TR 



COMMAND 

• * • 

WRITE 
EXECUTE SWT 

PB COUNT 



* 



lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 



SWT 7 





NONE 



.WRITE BUFFER 



NOTE... BUFFER SHOULD CONTAINED DATA 
FROM THE COMMON DUMP AREA IN 
DISPLAY PROGRAM. SWT 2 UP TO 
DISPLAY DATA IN ACCUM. 
DISPLAY SHOULD BE ALL ONES IF 
PREVIOUS COMMAND HAS RESET FOL- 
LOWED BY A READ BFR, ALL ZERO 
IF RESET PRECEEOEO THIS WRITE 
BFR COMMAND. NO INTERRUPT, PB 
ACTION HAS NO EFFECT. 
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CONSOLE 

INDICATORS 

ROY 

ABL 

REC 

TSM 

BFR 

CLK 

P I 

C P 



ACCUMULATOR 
RD RESPN 
HRT RESPN 
CHECK 
TIMEOUT 
ANS REO 
BUSY 
ENABLE 
READY 
REC RUN 



ACCM EXT 
SYNC TRG 
IDL CH TR 
CH CMPLT 
END OP TR 
OIAG TRG 
TIMER TRG 
3 SEC TMR 
1.5 SEC T 
SND SPACE 
CLK GT TR 

10 SYNC CTR 

11 1ST TRAN 

12 P C CTRL 

13 REC TAG 

14 C P TRG 
P C 



15 



1 TR 



COMMAND 

• • • 

READ 
EXECUTE SWT 

PB COUNT 

* 



lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 



SWT 6 

n 



. NONE 



.READ BUFFER 



NOTE. ..BUFFER SHOULD CONTAIN DATA 

FROM THE COMMON DUMP AREA IN 
DISPLAY PROGRAM. SWT 2 UP TO 
DISPLAY DATA IN ACCOM. 
DISPLAY SHOULD BE ALL ZEROS IF 
PREVIOUS COMMAND MAS WRITE ZEROS 
TO BFR. ALL ONES IF RESET 
PRECEEDED THIS READ BFR COMMAND. 
NO INTERRUPT, PB ACTION HAS 
NO EFFECT. 





* 


CONSOLE 


INDICATORS . 


RDY 


ABL 


REC 


TSM 


BFR 


CLK 





I 


C 


P 


ACCUMULATOR. 





RD RESPN . 


1 


HRT RESPN. 


2 


CHECK 


3 


TIMEOUT . 


4 


ANS REQ . 


5 


BUSY 


6 


ENABLE 


7 


READY 


8 


REC RUM . 


ACCM EXT 





SVMC TRG . 


1 


IDL CH TR. 


2 


CH CMPLT . 


3 


END OP TR. 


4 


OIAG TRG . 


5 


TIMER TRG. 


6 


3 SEC TMR. 


7 


1.5 SEC T. 


8 


SND SPACE. 


9 


CLK 6T TR. 


10 


SYNC CTR. 


11 


1ST TRAN. 


12 


P C CTRL. 


13 


REC TAG . 


14 


C P TRG . 


15 


P C I TR. 



COMMAND 

CONTROL 
EXECUTE SWT 

PB COUNT 



lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 



SWT 5 




.SWT 15 



.SET 7 



NOTE... NO INTERRUPT, PB ACTION HAS 
NO EFFECT. 

SWT 2 UP TO DISPLAY BFR DATA IN 
ACCUM. PRECEED THIS SET 7 COMMAND 
WITH RESET AND READ BUFFER WHICH 
SHOULD THEN CONTAIN 7 ONES. 
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CONSOLE 

INDICATORS 

ROV 

ABL 

REC 

TSM 

BFR 

CLK 

D I 

C P 

ACCUMULATOR 

RO RESPN 

1 HRT RESPN 
CHECK 
TIMEOUT 
ANS REQ 
BUSY 
ENABLE 
READY 



2 
3 
4 
5 
6 
7 
8 REC RUM 



ACCM EXT 
SYNC TRG 
lOL CH TR 
CM CMPLT 
END OP TR 
0IA6 TRG 
TIMER TRG 
3 SEC THR 
1.5 SEC T 

8 SNO SPACE 

9 CLK GT TR 

10 SYNC CTR 
1ST TRAN 
P C CTRL 

13 REC TAG 

14 C P TRG 

15 P C 1 TR 



1 
2 
3 

4 
5 
6 
7 



11 
12 



COMMAND 



•lOCC FUNCTION, lOCC MODIFIER CODE. FUNCTION 



CONTROL .SHT 5 
EXECUTE SHT.O 



PB COUNT 



,SMT 14 



• SET 6 



NOTE. ..NO INTERRUPT, P8 ACTION HAS 
NO EFFECT. 

SWT 2 UP TO DISPLAY BFR DATA IN 
ACCUM. PRECEED THIS SET 5 COMMAND 
MITH RESET AND READ BUFFER WHICH 
SHOULD THEN CONTAIN 6 ONES. 



CONSOLE 

INDICATORS 

ROY 

ABL 

REC 

TSM 

BFR 

CLK 

D I 

C P 

ACCUMULATOR 
RD RESPN 

MRT RESPN 

CHECK 

TIMEOUT 

ANS REQ 

BUSY 

ENABLE 

READY 



I 
2 
3 
4 
5 
6 
7 

8 REC RUN 

ACCM EXT 
SYNC TRG 
IDL CH TR 
CH CMPLT 
END OP TR 
OIAG TRG 
TIMER TRG 
3 SEC TMR 
1.5 SEC T 
S SNO SPACE 

9 CLK GT TR 

10 SYNC CTR 

11 1ST TRAN 

12 P C CTRL 

13 REC TAG 

14 C P TRG 

15 P C 1 TR 



1 
2 
3 

4 
5 
6 

7 



COMMAND 

START READ 
EXECUTE SHT 

PB COUNT 



* COMES 

* 

* 
* 



ON AFTER 3 SECONDS AND STAYS ON 



* COMES 



lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 



SHTS 5 AND 6 



NONE 



.RCV MODE 



NOTE... INTERRUPT (XCURS 3 SECONDS 

AFTER EXECUTING SWT 0, ADDITIONAL 
HAS NO EFFECT EXCEPT CLK ON/OFF 



ON AFTER 6 SECONDS *N0 STAYS ON 



DATE 

Ef" NO. 



?0FEB67 

41C656 



15JUN67 

420317 



niOCT&7 



15SEP68 



01JUN69 

571013 



01JUN70 
5710.97 
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DATE 
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010CT6'' 


15SEP68 


01JUN69 


01JUN70 


PAGF 


«=1 


EC NO. 
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420317 
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420416 
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ACCUMULATOR 

RD RESPN 

1 *»RT RESPN 
CHECK 
TIMEOUT 
ANS REQ 
BUSY 
ENABLE 
READY 



2 
3 

4 
5 
6 

7 

S REC RUN 



ACCM EXT 
SYNC TRG 
IDL CH TR 
CH CMPLT 
END OP TR 
01 AG TRG 
TIMER TRG 
3 SEC TMR 
1.5 SEC T 
SMO SPACE 
CLK GT TR 
SYNC CTR 
1ST TRAN 
P C CTRL 

13 REC TAG 

14 C P TRG 
P C 



I 
2 
3 

4 

5 

6 

7 

8 

9 

10 

11 

12 



15 



1 TR 



COMMAND 

START BEAD 
EXECUTE SMT 



PB COUNT 

* 



* COMES 

* 



* COMES 



lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 



SHTS 5 AND 6 .SHT 15 
0, SHT I OFF, ^ 



.RCV MASTER 



ON AFTER 3 SECONDS AND STAYS ON 



NOTE... INTERRUPT 1 OCCURS 3 SECONDS 

AFTER EXECUTING SUT 0« ADDITIONAL 
HAS NO EFFECT EXCEPT CLK ON/OFF 



ON AFTER 6 SECONDS AND STAYS ON. 



CONSOLE 

INDICATORS 

ROY 

ABL 

REC 

TSM 

BFR 

CLK 

I 

C P 

ACCUMULATOR 
RO RESPN 

MRT RCSPN 

CHECK 

TIMEOUT 

ANS REQ 

BUSY 

ENABLE 

READY 



1 

2 
3 
4 
5 
6 
7 
8 REC RUN 



ACCM EXT 
SYNC TRG 
IDL CH TR 
GH CMPLT 
END OP TR 
01 AG TRG 
TIMER TRG 
3 SEC TMR 
1.5 SEC T 

8 SNO SPACE 

9 CLK GT TR 

10 SYNC CTR 
I St TRAN 
P C CTRL 

13 REC TAG 

14 C P TRG 
P C 



1 
2 

3 

4 
5 
6 

7 



11 
12 



15 



I TR 



COMMAND 

« • * 

START READ 
EXECUTE SHT 

PB COUNT 



* COMES 



lOCC FUNCTION. lOCC MbOIFIER CODE. FUNCTION 
SHTS 5 AND 6 .SHT 14 .RCV SLAVE 

0„ .- : -.: ^- •— 



* COMES ON AFTER 3 SECONDS 



NOTE. 



.INTERRUPT OCCURS 3 SECONDS. AFTER 
EXECUTING SHT »» ADDITIONAL PB ACT 
NO EFFECT EXCEPT CLK ON/OFF. 



ON AFTER 6 SECONDS 



OATE 

EC NO. 



20FEB67 



15JUN67 

420317 



OlOCTft"' 
420374 



15SEP6S 
420416 



OlJUN6<5 



01JUN70 
5T1097 



P1?0G ID 


03AF-* 


DATE 


20FEB67 


15JUN67 


010CT67 


15SEP68 


01JUN69 


01JUN70 


PAGF 


9 


EC NO. 


419656 


420317 


420374 


420416 


571013 


5"'1097 



PROG 10 
PAGE 



03AF-* 
9 A 
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CONSOLE 

INDICATORS 

ROY 

ABL 

REC 

TSM 

BFR 

CLK 

D I 

C P 



ACCUMULATOR 

RD RESPN 

1 HRT RESPN 
CHECK 
TIMEOUT 
ANS REQ 
BUSY 
ENABLE 
READY 



2 

3 
4 
5 
6 
7 
8 REC RUN 



ACCM EXT 
SYNC TRG 
lOL CH TR 
CH CMPLT 
END OP TR 
DUG TRG 
TIMER TRG 
3 SEC TMR 
U5 SEC T 

8 SND SPACE 

9 CLK GT TR 

10 SYNC CTR 

11 1ST TRAN 

12 P C CTRL 

13 REC TAG 

14 C P TRG 
P C 1 TR 



1 
2 
3 

4 
5 
6 

7 



15 



COMMAND .lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 

•SWT 11 .SYNCHRONIZE MODE 



CONTROL .SWT 5 
EXECUTE SMT.O 



PB COUNT . 1 
* - * 



* COMES 



ON 



2 

* 



NOTE. ..NO INTERRUPT 



AFTER 1.5 SECONDS AND STAYS ON. 

* 



COMMAND .lOCC FUNCTItW. lOCC MODIFIER CODE. FUNCTION 



CONSOLE 

INDICATORS 

ROY 

ABL 

REC 

TSM INSTR 3 

BFR INSTR 4 

CLK 
D I 
C P 



ACCUMULATOR 

RD RESPN 

1 HRT RESPN 
CHECK 
TIMEOUT 
ANS REQ 
BUSY 
ENABLE 
READY 



2 

3 

5 
6 
7 
8 REC RUN 



ACCM EXT 
SYNC TRG 
IDL CH TR 
CH CMPLT 
END OP TR 
0IA6 TRG 
TIMER TRG 
3 SEC TMR 
1.5 SEC T 
SND SPACE 
CLK GT TR 

10 SYNC CTR 

11 1ST TRAN 

12 P C CTRL 

13 REC TAB 

14 P C TRG 
P C 1 TR 



15 



START WRITE.SHTS 5 AND 7 
EXECUTE INSTR— 



NONE 



.TRANSMIT MODE 



PB COUNT 

* 



OPERATING INSTRUCTIONS... 

1. CE SHT ON, CE S/M SWT TO MARK, 
SPEED SWT TO ANY SPEED, SWT I OFF. 

2. RESET 

3. EXECUTE THE ABOVE START WRITE IN- 
STRUCTI^I 

4. EXECUTE WRITE BUFFER ISWT 71, SFR 
LITE SHOULD COME ON. 
CAUTION... CONSOLE SWT 2 OFF 

WILL CAUSE CHAR GAP CHECK 
lACCUH BTT 2» 

NOTE... INTERRUPT LEVEL 1 OCCURS AT 

PB COUNT 8, SND SPACE lACCUM EXT BIT Bl 

WILL CONE ON. 



* 



4> 
* 






* 
* 



4> 
* 
* 



DSTE 

Fi" Nn. 



'i>10656 



I'^JUN'-" 
4?0317 



010CT67 
420374 



15SEP6S 
4?0416 



01JUN69 
571013 



01JUN70 
571097 
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010CT67 


15SEP58 
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10 
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PROG 10 
PAGE 



03AF-* 

104 



I3M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA DISPLAY PROGRAM 



PART NO. 2243564^ 
PAGE 11 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA DISPLAY PROGRAM 



PART NO. 2243'^64 
PAGE U* 





.COMMAND 




> « • « 




.WRITE 


, 


EXECUTE 


CONSOLE 




INDICATORS . 


.PB COUNT 


ROY 


* 


ABL 




REC 




TSM 




BFR 




CLK 




D I 




C P 




ACCUMULATOR 




RO RESPN 




1 MRT RESPN. 




Z CHECK 




3 TIMEOUT . 




4 ANS REQ . 




5 BUSY 




6 ENABLE 




7 READY 


* 


8 REC RUN . 


* 






ACCM EXT 




SYNC TRG , 




I IDL CH TR 




2 CH CMPLT . 


* 


3 END OP TR. 




4 DIAG TRG 


* 


5 TIMER TRG. 




6 3 SEC TMR. 




7 1.5 SEC T. 




8 SND SPACE. 




9 CLK GT TR. 


* 


10 SYNC CTR 




11 1ST TRAN. 




12 P C CTRL. 




13 REC TAG . 




14 C P TRG . 




15 P C 1 TR. 


* 



.lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 



.SHT 7 



,SHT 13 



.WRITE SYNC REGISTER 



11 



OPERATING INSTRUCTIONS... 

1. CE SHT OFF, CE S/M. SHT TO MARK, 
SINGLE PULSE, SWT 1 OFF, SWT 2 OFF, 

2. RESET 

3. EXECUTE. ..WRITE SYNC REGISTER ... 
SMTS 7 AND 13. 

4. EXECUTE... SET DIAG MaDE...SMTS 5 £12 
PB COUNT 11... CHECK FOR INT LEVELS 

I AND 4 ON. 
CAUTION... CONSOLE SHT 2 ON 

HILL CAUSE CHAR GAP CHECK 
lACCUM BIT 21 



5. 



CONSOLE 

INDICATORS 

ROY 

ABL 

REC 

TSM 

BFR 

CLK 

D I 



COMMAND 

« • * 

CONTROL 
EXECUTE 

PB COUNT 

* , 



,IQCC FUNCTION. lOCC MOOIFER CODE. FUNCTION 



• SWT 
INSTR 



.SHT 12 



.SET DIAGNOSTIC MODE 



(INSTR 
(INSTR 



5) 
3) 



C P 



ACCUMULATOR. 

RO RESPN . 

1 HRT RESPN. 

2 CHECK 
TIMEOUT . 
ANS REQ . 
BUSY 
ENABLE 
READY 



3 

4 

5 

6 

7 

8 REC RUN . * 

15MEMRY TRG. SEE NOTE 



ACCM EXT 

SYNC TRG . 

IDL CH TR. 

CH CMPLT . 

END OP TR. 

DIAG TRG . 

TIMER TRG. 

3 SEC TMR. 

1.5 SEC T. 

SND SPACE. 

CLK GT TR. 

10 SYNC CTR. 

11 1ST TRAN 

12 P C CTRL. 

13 REC TAG . 

14 C P TRG . 

15 P C 1 TR. 



♦INSTR 2 



16 

• 



28 47 48 

♦ « * 






* 



59 OPERATING INSTRUCTIONS... 

* 1. CE SHT ON, CE S/M SWT TO MARK, 

SHT 1 OFF, SHT 2 OFF, SINGLE 
PULSE. 
2. EXECUTE... SET DIAG MODE COMAND 

* 3. CH4NGE CE S/M SHT TO SPACE... 

* 01 INDICATOR LIGHT SHOULD 
COME ON, ACC €X BIT 11 ON 

4. PB COUNT 1...CK FOR ACC EX 
BIT 9 ON 

5. PB COUNT 2...CK FOR CLK INDICA 

* TOR ON, THIS LIGHT SHOULD 
CHANGE EVERY 2 PULSES. 

* 6. PB COUNT 16.. .CK FOR ACC EX 

BIT 11 OFF, ACC EX BIT 12 ON. 
7. PB COUNT 28... CK FOR ACC BIT 
ON, BFR INDICATOR ON. 

* 8. PB COUNT 31.. .CHANGE CE S/M 

* SHT TO MARK. (SEE NOTE! 

9. PB COUNT 47... CK FOR ACC 15 
ON, THIS LIGHT COULD HAVE 
COME ON ANY TIME AFTER PB 
COUNT 33. 

10. PB COUNT 48... CK FOR ACC 15 
OFF 

11. PB COUNT 59... CK FOR ACC 2 ON 



12. PB COUNT 65(0 ON TW}...CK 
FDR CLK INDICATOR OFF. 

NOTE ... JUMPER J2B09 TO K7B09 

FOR MEMORY TRIGGER DIS- 
PLAY IN ACC BIT 15. 



F;C NO 



?nFEe6"' 

419ft56 



I'5,JUN6' 

4?cni7 



1 nr T6 ^ 

4?'>'74 



15SEP63 

4?04lf> . 



01JUN69 



niJUN7!^ 

^■•lOaT 



PROG ID 
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010CT6-' 
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P&GF 


n 


EC NO. 
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420374 
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.COMMAND .lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 

.SWT 15 .READ OIAG WORD 1 



• •«• * ••• 

.READ .SHT 6 
* THIS COMMAND HAS NO EFFECT. 



.COMMAND .lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 

.SHT 14 .READ OIAG WORD 2 



.READ .SWT 6 
* THIS COMMAND HAS NO EFFECT. 



.COMMAND 



.lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 



.SENSE DSH .SHTS 5,6,7 
* THIS COMMAND HAS NO EFFECT. 



.NONE 



.PLACE OSW IN ACCUM 



•COMMAND 



, lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 



.SENSE DSM .SWTS 5,6,7 
* THIS COMMAND HAS NO EFFECT. 



.SHTS 14 AND 15 



.PLACE OSH IN ACC/RESET 



.COMMAND 
. ... 



lOCC FUNCTION. lOCC MODIFIER CODE. FUNCTION 

. NONE .PLACE ILSM IN ACCUM. 



.SENSE ILSW .SHTS 6,7 
* THIS COMMAND HAS NO EFFECT. 
4.3 INDICATOR CARD 



INDICATOR CARD IN SOCKET G3 ON PIN SIDE OF BOARD C-Al 



TOP 



...XMIT BIT 6 
...XMIT BIT 7 
...DATA MARK BIT 
...SPARE 4 
...SPARE 5 
...SPARE 6 



INDICATOR CARD IN SOCKET F3 ON PIN SIDE OF BOARD C-Al 



XMIT 


BIT 


0... 








XMIT 


BIT 


1... 








XMIT 


BIT 


2... 








XMIT 


BIT 


3... 








XMIT 


BIT 


4... 








XMIT 


BIT 


5... 









TOP 



NOT 


RCV 


BIT 


0... 








NOT 


RCV 


BIT 


1.. 








NOT 


RCV 


BIT 


2.. 








NOT 


RCV 


BIT 


3.. 








NOT 


RCV 


BIT 


4.. 


n 





NOT 


RCV 


BIT 


5.. 









,..NOT RCV BIT 6 
...NOT RCV BIT 7 
...NOT RCV TAG 
...SPARE I 
...SPARE 2 
...SPARE 3 



OPERATING INSTRUCTIONS 



CE SWT ON, C 

IN TFST POST 

LOAD COMMON 

THIS CAN BE 

DO A PROGRAM 

EXECUTE 4 WR 

EXECUTE SWT 

EXECUTE A SE 

THEN EXECUTE 

PLACE TNOItft 

PIN SIDE OF BOAR 

* DISREGARD 



2. 



4. 



5. 



POSITION. 
THEN 



E S/M SWT TO MARK, ANY SPFEO, DATA TERMINAL SWITCH 
ION, STR, CONSOLE SHTl ON (UP», SWT 2 OFF. 
DUMP AREA OF DISPLAY PROGRAM A ONF IN BIT 
OONF BY SETTING UP CONSOLE SWITCHES 3 AND B 

RESTART. 
ITE BUFFER COMMAND. . .CONSOLE SWT 7 UP THEN 
0. 
T DIAGNOSTIC MODE FUNCTION. . .CONSOLE SWTS 5 AND 12, 

SWT 0. 
TOR CARD (PART NUM8FR 5P03O75) IN SOCKET F3 OR G3 ON 
C-Al. AND OBSERVE INDICATOR CARD LIGHTS. 

SPARE INDICATOR POSITIONS 



FIRST SEVEN PB COUNT OPERATIONS SHIFTS REGISTERS UNTIL CHARACTER 
COMPLETE OCCURS. THIS CAN BE OBSERVED AT LOCATIONS G3 AND F3. 
PB COUNT 1 POSITION BIT SHOULD BE OFF, 
ALL OTHER SHOULD BE ON. 

PB COUNT 2 POSITIONS BIT 0, I SHOULD BE OFF, 
ALL OTHERS SHOULD BE ON. 

PB COUNT 3 POSITIONS BIT 0, 1, 2 SHOULD BE OFF, 
ALL OTHERS SHOULD BE ON. 

PB COUNT 4 POSITIONS BIT 0, 1, 2, 3 SHOULD BE OFF, 
ALL OTHERS SHOULD BE ON. 

PB COUNT 5 POSITIONS BIT 0, 1, 2, 3, 4 SHOULD BE OFF, 
ALL OTHERS SHOULD BE ON. 

PB COUNT 6 POSITIONS BIT 0, 1, 2, 3, 4, 5 SHOULD BE OFF, 
ALL OTHERS SHOULD BE ON. 

PB COUNT 7 POSITIONS BIT 0,1,2,3,4,5,6 SHOULD BE OFF, 

ALL OTHERS SHOULD BE ON. 
EIGHTH DEPRESSION OF PB TRANSFERS DATA FROM BUFFER TO SERIALIZER 
AND SHIFTS THE REGISTERS ONE POSITIONS. 
PB COUNT P POSITIONS XMIT BIT 2,3,4,5,6,7 

AND DATA MARK BIT SHOULD BE OFF, 

XMIT BITS 0, 1 SHOULD BE ON. 
PB COUNT 8 POSITIONS NOT RCV BIT 0,1,2,3,4,5,6,7 SHOULD BE OFF 

NOT RCV TAG SHOULD BE ON. 

PB COUNT P POSITIONS XMIT BIT 1,2 SHOULD BE ON, 

ALL OTHERS SHOULD BE OFF. 
PB COUNT 9 POSITION NOT RCV BIT SHOULD BE ON, 

ALL OTHERS SHOULD BE OFF. 

PB COUNT 10 POSITIONS XMIT BIT 2,3 SHOULD BE ON, 

ALL OTHERS SHOULD BE OFF. 
PB COUNT 10 POSITIONS NOT RCV BIT 0,1, SHOULD BE ON, 

ALL OTHERS SHOULD BE OFF. 

PB COUNT 11 POSITIONS XMIT BIT 3,4 SHOULD BE ON, 

ALL OTHERS SHOULD BE OFF. 
PB COUNT 11 POSITIONS NOT RCV BIT 0,1, 2 SHOULD BE ON, 

ALL OTHERS SHOULD BE OFF. 

PB COUNT 12 POSITIONS XMIT BIT 4,5 SHOULD BE ON, 

ALL OTHERS SHOULD BE OFF. 
PB COUNT 12 POSITIONS NOT RCV BIT 0,1,2,3 SHOULD BE ON, 

ALL OTHERS SHOULD BE OFF. 

PB COUNT 13 POSITIONS XMIT BIT 5,6 SHOULD BE ON, 

ALL OTHERS SHOULD BF OFF 
PB COUNT 13 POSITIONS NOT RCV BIT 0,1,2,3,4 SHOULD BE ON, 

ALL OTHERS SHOULD BE OFF. 

PB COUNT 14 POSITIONS XMIT BIT 6,7 SHOULD BE ON, 

ALL OTHERS SHOULD BE OFF. 
PB COUNT 14 POSITIONS NOT RCV BIT 0,1,2,3,4,5 SHOULD BE ON, 

ALL OTHERS SHOULD BE OFF. 



DATE 



2"FER67 



15JUN67 
420317 



nncT67 



15SEP63 
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PROG ID 


034F-* 


DATE 


20FE867 


15JUN67 


010CT67 


15SEP68 


01JUN69 


01JUN70 


PAGE 


12 


EC NO. 


41<?656 


420317 


4203^4 


420416 


571013 


571097 



PROG 10 
PAGE 



03AF-* 
I2A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA DISPLAY PROGRAM 



PART NO. 224356^ 
PAGE 13 



5. COMMENTS 



PB COUNT 15 POSITIONS XMIT BIT 7,0/lfA MARK BIT SHOULD BE ON, 

ALL OTHERS SHOULD BE OFF 
PB COUNT 15 POSITIONS NOT RCV «!T 0,1,2,3.4.9*6 SmULO BE ON, 

ALL OTHERS SHOULD Bf OFF. 

P8 COUNT 16 ALL XMIT BIT POSITIONS SHOULD BE ON. 
PB COUNT 16 POSITIONS NOT RCV BIT 1.2.3,4,5.6,7 SHOULD BE ON, 
POSITION NOT RCV TAG SHOULD BE OFF. 



TO OBSERVE OPERATION IN SIN6LE STEP. DIAGNOSTIC NODE, 
THE FW.L0M1NG SI«3UL0 BE NOTED. 

CLOCK TIME OPERATimt 



9 (INITIAL CTCLfl 
11 I INITIAL CYCLEI 
16 CEACH CYCLEI 

(EACH CYCLEI 



RESET SERIALIZER 

TRANSFER BUFFER TO SERIALIZER 

SHIFT DESERIALIZER 

SHIFT SERIALIZER 



5.1 THE INTENT OF THIS PROGRAM IS TO PROVIDE FOR THE DETAILED ANALYSIS 
OF SCA FUNCTIONS AND TO DISPLAY THE RESULTS IN THE 1130 CONSOLE 
LIGHTS. THE SCA IS CONTROLED BY THE DISPLAY PROGRAM AND THE SCA 
CE SWITCHES. FLEXIABILITV IN THE CONTROL OF THE SCA IS ACCOMPLISHED 
BY THE ABILITY TO EXECUTE ANY OF THE SCA COMMANDS. THE SCA COMMANDS 
ARE SET OP IN THE 1130 CONSOLE SWITCHES SO AS TO REPRESENT THE 
VARIABLES IN SCA INPUT/OUTPUT CONTROL COMMAND (lOCCI. CONSOLE 
SWITCHES 5, 5 AND 7 REPRESENT THE FUNCTION OF THE lOCC. CONSOLE 
SWITCHES 8 THROUGH 15 REPRESENT THE MODIFIER CODE OF THE lOCC. 
THE KESOLTS DISPLAYED BY THE PROGRAM ARE TO BE OBSERVED BY WATCHING 
THE CONSOLE ACCUMULATOR LIGHTS, ACCUMULATOR EXTENSION LIGHTS, AND 
THE SCA INDICATOR LIGHTS. THE SCA DSW VALUES ARE LOCATED IN ACCUM- 
ULATOR BIT POSITIONS THROUGH «. THE SCA CE POSH BUTTON COUNT IS 
DISPLAYED IN ACCUMULATOR BIT POSITIONS 9 THROUGH 1*. SCA MEMORY 
TRIGGER IS REPRESENTED BY ACCUMULATOR BIT POSITION 15 WHEN WIRED 
IN. STATUS OF DIAGNOSTIC WORD 1 AND 2 IS DISPLAY IN ACCUMULATOR 
EXTENSION BIT POSITIONS THROUGH 15. 
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0160 








0160 





03AF 




0161 





C400 


02B0 


0163 





D400 


0009 


0165 





C400 


02B1 


0167 





0400 


OOOC 


0169 





6500 


ODIB 


016B 


C 


C400 


02E4 


0160 





D500 


02E4 



016F 
0170 
0171 
0173 
0175 
0177 



71FF 
70FC 

CCOO 029C 
DCOO 0000 
CCOO 029E 
DCOO OFFE 



0179 





1010 




017A 





0400 


0288 


01 7C 





0400 


02B9 


017E 





D400 


02AB 


0180 





OCOO 


028A 


0182 





C400 


0283 


0184 





1003 




0185 





4C10 


0186 


0187 





1005 





0188 0400 0288 

018A 7003 
0188 1010 
018C D400 0288 



ABS 

********** f*******1r***********1f*lLim^t****«:*** 

* 

* SWITCH CHANGE FOR LOADING NEW INSTRUCTIN 

* SWITCH I DOWN TO FREEZE INTERPT LVL I 

* SWITCH 2 UP TO READ AND DISPLAY BUFFER 

* SWITCH 3 UP TO LOAD COMMON DUMP AREA 
* 

* 
* 
* 
* 
* 

*********************************i^****if^^f:^^:i^ 

* 



ORG 

DC 
START LO 
STO 
LD 
STO 
LDX 

LD 
STO 

MDX 
MOX 
LDD 
STO 
LDD 
STD 



/160 

/03AF PID 
L KINTl LD INTRPT LVL 2 ADDR 
L 9 STORE INTRPT 2 ADOR 

L KINT4 LD INTRPT LVL 4 ADOR 
L 12 STORE INTRPT 4 ADDR 

LI /OFFF-CORE LD IR-1 WITH AMOUNT 
OF UNUSED CORE POSIT 
IONS 
L CORE LOAD ADDRESS OF CORE 
H CORE LOAD UNUSED STORAGE 
WITH NO OP 
1 -1 DECREMENT 

*-4 BRANCH BACK 4 
L BSC LOAD INSTR BSC L SWRD 
L STORE AS STARTNG ADD 

L LOOP LOAD LOOP ADOR 
L /OFFE STORE LOOPING ADOR 
ALSO AT END OF CORE 



* 
* 

************************************^^*lt:it:^^,^^ 

* 

* STARTING ADDRESS IS SWRD 

* 

*****************************************^:^^^i 

* 

SWRD SLA 16 CLEAR 

STO L PBCNT CLEAR PB COUNTER 

STO L PBSTO CLEAR PB INDICATOR 

STO L STUN CLEAR STUN WORK AREA 

XIO L RDSWS READ CONSOLE SWITCHES 

LD L SWS 

SLA 3 SHIFT LEFT 3 POSITIONS 

BSC L CLEAR,- BR IF SWT 3 IS OFF 

SLA 5 MOVE BUFFER PATTERN 

* TO LEFT SIDE OF WORD 
STO L SOSHR STO IN COMMON DUMP 

* AREA 

SKIP 
CLEAR 

CLEAR COMMON DUMP 
AREA 



018E OCOO 0?8A 



MOX CLEAR£3 
CLEAR SLA 16 

STO L SDSWR 

****************************************^*^:^i^ 

* 

* LOOPING ADDRESS IS REPT 
* 

^t**!):*:***:*^*^********************************* 

* 

REPT XIO L RDSWS READ CONSOLE SWS 



3AF00020 
3AF00030 
3AF00040 
3AF00050 
3AF00060 
3AF00070 
3 AF 000 80 
3AF00090 
3AF00100 
3AF00110 
3AF 00120 
3AF00130 
3AF00140 
3AF00150 
3AF00160 
3AF00170 
3AF00180 
3AF00190 
3AF00200 
3AF00210 
3AF00220 
3AF00230 
3AF00240 
3AF00250 
3AF00260 
3AF00270 
3AF00280 
3AF00290 
3AF00300 
3AF00310 
3AF00320 
3AF00330 
3AF00340 
3AF00350 
3AF00360 
3AF00370 
3AF00380 
3AF00390 
3AF00400 
3AF00410 
3AFa0420 
3AF00430 
3AF00440 
3AF00450 
3AF00460 
3AF00470 
3AF00480 
3AF 00490 
3AF00500 
3AF00510 
3AF00520 
3AF00530 
3AF00540 
3AF00550 
3AF00560 
3AF00570 
3AF00580 
3AF00590 
3AF00600 
3AF00610 
3AF00620 
3AF00630 
3AF00640 
3AF00650 
3AF00660 
3AF00670 
3AF00680 
3AF00690 



0190 





C400 


02 B3 




LO 




SWS 


0192 





F400 


02 B4 




EOR 




SWSTG 


0194 





4C10 


01 A2 




BSC 




ROIAG, - 


0196 





C400 


0283 




LD 




SWS 


0198 





0400 


02B4 




STO 




SWSTG 


019A 





E400 


02B7 




AND 




K07FF 


01 9C 





ECOO 


02 B6 




OR 




K5000 


019E 





0400 


0297 




STO 




lOCCfil 


OlAO 





OCOO 


0296 




XIO 




lOCC 


01A2 





OCOO 


0290 


ROIAG 


XIO 




RDAGl 


01 A4 





OCOO 


0292 




XIO 




RDAG2 


01A6 





C400 


02 AF 




LO 




DAG2S 


01A8 





1899 






SRA 




9 


01A9 





ECOO 


02AE 




OR 




DAGIS 


OlAB 





0400 


0299 




STO 




0AG12C1 


01 AD 





OCOO 


0292 




XIO 




R0AG2 


OlAF 





C400 


02 AF 




LD 




DAG2S 


GlBl 





E400 


02BB 


* 


AND 




KOI 00 


01B3 





1808 




* 


SRA 




8 


01B4 





4C18 


01C7 


* 

* IF 

4< 


BSC 


L 


RPBS.t- 










PUSH 


BUTTON WAS 


01B6 





C400 


02 B9 


LD 


L 


PBSTO 


0188 





4C04 


OICA 




BSC 


L 


KLDD.E 


016A 





8400 


02 BC 




A 


L 


KOOOl 


OIBC 





0400 


02B9 




STO 


L 


PBSTO 


OIBE 





1001 






SLA 




1 


OIBF 





8400 


02B8 




A 


L 


PBCNT 


OlCl 





E400 


02BA 


* 


AND 


L 


K007E 










* 

* PUSH BUTTON COUNT I 


01C3 





1)400 


02B8 




STO 




PBCNT 


01C5 





4C00 


OlFE 




BSC 




STOX 


01C7 





1010 




RPBS 


SLA 




16 


01C8 





D400 


02 B9 




STO 




PBSTO 


OICA 





CCOO 


0298 


KLDD 


LDD 




0AG12 


OICC 





C400 


02AF 




LD 




DAG2S 


DICE 





1807 






SRA 




7 


OICF 





E400 


02BC 


* 


AND 




KOOOl 


0101 





0400 


02AE 


STO 




OAGIS 


0103 





OCOO 


028A 




XIO 




RDSWS 


0105 





C400 


0283 




LD 




SWS 


0107 





1002 






SLA 




2 


0108 





4C10 


OlDF 




BSC 




KORl-2,- 


OlDA 





OCOO 


0294 




XIO 




R8UF 


OlDC 





C400 


02BD 




LD 




BFSTO 


OlDE 





7002 






MDX 




KORl 


OlDF 





OCOO 


0284 




XIO 




SOSW 


OlEl 





ECOO 


02AE 


KDRl 


OR 




DAGIS 


01E3 





ECOO 


02B8 




OR 




PBCNT 


01E5 





4C00 


02E4 




BSC 




CORE 



01E7 0001 
01E8 0400 02AD 
OlEA C400 02B3 
OlEC 1001 



LOAD SWITCH STATUS 
EOR WITH PREVIOUS 
BRANCH IF BIT SAME 
LOAD SWITCH STATUS 
STORE SWITCH STATUS 
ERASE AREA ASSIGNMT 
INSERT SCA AREA ASGN 
STORE IN lOCC INSTR 
EXECUTE SCA INSTR 
READ DIAG WORD 1 
READ DIAG WORD 2 

SHIFT RIGHT DIAG WRD 
OR DIAG WORD 1 
PUT IN SAVE AREA 
READ DIAG WORD 2 

MASK OUT ALL BITS 
EXCEPT PUSH BUTTON 
LATCH BIT 
SHIFT RIGHT BIT 7 
BRANCH IF NO PB ACTN 

PUSHED THEN... 

LOAD PB INDICATOR 
BR TO KLDD IF OFF 
ADD 1 FOR NEW PB PUSH 
STO IN PB INDICATOR 
ADD 1 TO BIT 14 
ADD 1 TO PB COUNT 
MASK OUT ALL BITS 
EXCEPT BIT 9- 14 

N ACC REG BITS 9-14 

STORE PUSH BUTTON CNT 

BRANCH TO STOX 

CLEAR 

CLEAR PB INDICATOR 

LOAD DIAG WORD IN EXT 

LOAD DIAG WORD 2 

SHIFT RIGHT 7 BITS 

CE BITS 

PUT IN DIAG WORD 1 

READ CONSOLE SWITCHES 

LOAD SWITCHES STATUS 

SHIFT LEFT 2 POSITNS 

BR IF SWITCH 2 IS OFF 

READ SCA BUFFER 

LOAD SCA BUFFER DATA 

SKIP TO KORl 

READ SCA DSW 

LOAD CE BITS 

ADD BITS 9-14 TO ACC 

BRANCH TO CORE 



********************************************:f 

* 

* INTERRUPT LEVEL ONE ENTRY 

********************************************* 

* 

INTl BSS 1 INTRPT 1 ENTRY ADDR 

STO L BSTGE SAVE ACC IN BSTGE 
LO L SWS LOAD SWITCHES STATUS 
SLA 1 SHIFT LEFT 1 POSITN 



3AF00700 
3AF00710 
3AF00720 
3AF00730 
3AF00740 
3AF00750 
3AF00760 
3AF00770 
3AF00780 
3AF00790 
3AF00800 
3AF00810 
3AF00820 
3AF0C830 
3AF00840 
3AF00850 
3AF00860 
3AF00S70 
3AF00880 
3AF00890 
3AF00900 
3AF00910 
3AF00920 
3AF00930 
3AF00940 
3AF00950 
3AF0G960 
3AF00970 
3AF00980 
3AF00990 
3AF01000 
3AF01010 
3AF01020 
3AF01030 
3AF01040 
3AF01050 
3AF01060 
3AF01070 
3AF0t080 
3AF01090 
3AF01100 
3AF01110 
3AF01120 
3AF01130 
3AF01140 
3AF01150 
3AF01160 
3AF01170 
3AF01180 
3AF01190 
3AF01200 
3AF01210 
3AF01220 
3AF01230 
3AF01240 
3AF01250 
3AF01260 
3AF01270 
3AF01280 
3AF01290 
3AF01300 
3AF01310 
3AF01320 
3AF01330 
3AF01340 
3AF01350 
3AF01360 
3AF01370 



DATE 


20FFB67 


15JUN67 


01JUL69 


01JUN70 


EC NO. 


419656 


420317 


571013 


571097 
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OlED 4C10 018E 



OlEF OCOO 0288 
OlFl C400 02AD 
01F3 4CC0 01E7 



BSC L REPT, 



WHEN SWT 1 



BRANCH TO REPT IF 
SWITCH 1 IS OFF 
IS OFF INTRPT 1 WILL REMAIN ON 



XIO 

LD 

BOSC 



SDSWR SENSE AND RESET OSM 

BSTGE RESTORE ACC 

INTl BR AMD CLEAR INTRPT 



01F5 


0001 




INT4 


BSS 


1 


01F6 


DCOO 


029A 




STD L 


ASTGE 


01F8 


OCOO 


028C 




XIO L 


SENTW 


OlFA 


CCOO 


029A 




LDD L 


ASTGE 


OlFC 


4CC0 


01F5 


♦ 
* 


BOSC I 


INT4 





OlFE 


OCOO 0286 


STOX 


XIO 




SPACE 




0200 


OCOO 028C 






XIO 




SENTW 




0202 


1004 






SLA 




4 




0203 


4C28 0200 






BSC 




*-5,ez 




0205 


C400 02B8 






LD 




PBCNT 




0207 


1801 






SRA 




1 




0208 


C 9400 02C3 






S 




KIO 




020A 


4C10 0229 






BSC 




STINO,- 




020C 


C400 02B8 






LD 




PBCNT 




020E 


1801 






SRA 




1 




020F 


D400 02AB 


♦ 




STO 


L 


STUN 








* 
BC 


TRANSLATE 


UNITS cour 




0211 


6680 02AB 


;nun 


LDX 


12 


STUN 




0213 


C600 02 AO 






LD 


L2 


ZERO 




0215 


D400 02AA 






STO 


L 


CHPRT 




0217 


OCOO 028E 


PRNTl 


XIO 


L 


PRNT 




0219 


OCOO 028C 






XIO 


L 


SENTW 




021B 


1004 






SLA 




4 




021C 


4C28 0219 






BSC 


L 


*-5,£Z 




021E 


C400 0282 






LD 


L 


TIND 




0220 


4C20 0224 






BSC 


L 


RSTND.Z 




0222 


4C00 OICA 


♦ 




BSC 


L 


KLOD 




0224 


1010 


* 
RSTNO 


SLA 




16 




0225 


0400 02B2 






STO 


L 


TIND 




0?27 


6400 0211 


* 




LDX 


L 


BGNUN 




0229 


C400 02C4 


* 

ST I NO 


LO 


L 


Kl 




022B 


D400 02B2 


* 
* 
* 




STO 


L 


TIND 








TEST PUSH 


BUTTON CO 




0220 


C400 02B8 




LD 


L 


PBCNT 




0??F 


1801 






SRA 




1 




0230 


9400 02BF 






S 


L 


K60 




0232 


4C28 023D 






BSC 


L 


PBCT5,eZ 


DATE 


20FFB67 15JUN67 




01JUL69 


01JUN70 


EC NO. 


419656 420317 




571013 


571097 



* 

* INTERRUPT LEVEL FOUR ENTRY 

* 

INTRPT 4 ENTRY AOOR 
SAVE ACC AND Q REG 
SENSE CDNSOL SWT, RESET 
RESTORE ACC AND Q REG 
BR AND CLEAR INTRPT 4 



* PRINT ROUTINE 

* 

EXECUTE TYPEWRITER WRT 
SENSE CONSOL SWT, RESET 
SHIFT BUSY BIT 
WAIT ON TW BUSY 
LO PUSH BUTTON COUNT 
LINE UP BITS 9 TO 14 
TEST FOR UNITS/TENS 
BR TO STIND IF NOT NEG 
LD PUSH BUTTON COUNT 
LINE UP BITS 9 TO 14 
SAVE PBCNT IN 
STORE UNITS. 



LD IR2 WITH PB COUNT 
LD ACC WITH PB COUNT 
STORE IN TYPE OUT AREA 
CONSOLE TYPE OUT 
SENSE CONSOL SWT, RESET 
SHIFT BUSY BIT 
WAIT ON TW BUSY 
LD TENS INDICATOR 
BR TO RSTNO IF TENS BIT 
BR TO KLDO 



CLEAR ACCUM 

CLEAR TENS INDICATOR 

BRANCH TO BGNUN 



LOAD VALUE OF ONE 
SET TENS INDICATOR 



LO PUSH BUTTON COUNT 
SHIFT VALUE RIGHT 1 
SUBTRACT VALUE OF 60 
BR TO PBCT5 IF NEG 



3AF01380 

3AF01390 

3AF01400 

3AF01410 

3AF01420 

3AF01430 

3AF01440 

3AF01450 

3AF01460 

3AF01470 

3AF01480 

3AF01490 

3AF01500 

3AF01510 

3AF01520 

3AF01530 

3AF01540 

3AF01550 

3AF01560 

3AF01570 

3AF01580 

3AF01590 

3AF01600 

3AF01610 

3AF01620 

3AF01630 

3AF01640 

3AF01650 

3AF01660 

3AF01670 

3AF01680 

3AF01690 

3AF01700 

3AF01710 

3AF01720 

3AF01T30 

3AF01740 

3AF01750 

3AF01760 

3AF01770 

3AF01780 

3AF01790 

3AF01800 

3AF01810 

3AF01820 

3AF01830 

3AF01840 

3AF01850 

3AF01860 

3AF01870 

3AF01880 

3AF01890 

3AF01900 

3AF01910 

3AF01920 

3AF01930 

3AF01940 

3AF01950 

3AF01960 

3AF01970 

3AF01980 

3AF01990 

3AF02000 

3AF02010 

3AF02020 

3AF02030 

3AF02040 

3AF02050 



PROG ID 
PAGE 



0234 D400 02 AB 

0236 6206 

0237 C600 O2A0 
0239 D400 02AA 
023B 4C00 0217 



023D 
023F 
0240 
0241 
0243 
0245 
0246 
0248 
024A 



02 4C 
024D 
024E 
024F 
0251 
0253 
0254 
0256 
0258 



025A 
025B 
02 5C 
0250 
025F 
0261 
0262 
0264 
0266 



0268 
0269 
026A 
026B 
026D 
026F 
0270 
0272 
0274 



0276 
0277 
0278 
0279 
027B 
0270 
027E 
0280 
0282 



C400 02B8 

1801 

907E 

4C28 

0400 

6205 

C600 O2A0 



024C 
02 AB 



0400 
4C00 



02AA 
0217 



C06B 
1801 
9071 

4C28 025A 
0400 02 AB 
6204 

C600 02AO 
0400 02AA 
4C00 0217 



C05D 
1801 
9064 

4C28 0268 
0400 02AB 
6203 

C600 02AO 
D400 02AA 
4C00 0217 



C04F 
1801 
9057 

4C28 0276 
D400 02AB 
6202 

C600 02A0 
D400 02AA 
4C00 0217 



C041 
1801 
904 A 

4C28 02E3 
D400 02AB 
6201 

C600 02A0 
0400 02AA 
4C00 0217 



STO 

LDX 
LD 
STO 
BSC 



L STUN STORE REMAINDER IN 
STORE UNITS 
2 6 LD IR2 WITH VALUE OF 6 

L2 ZERO LD ACC WITH PB COUNT 
L CHPRT STORE IN TYPE OUT AREA 
L PRNTl GO TYPE 



TEST PUSH BUTTON COUNT FOR 50 TO 59 COUNT 



* 

* 

PBCT5 LD 
SRA 
S 

BSC 
STO 
LDX 
LD 
STO 
BSC 



L PBCNT 

I 

K50 
L PBCT4,£Z 
L STUN 

2 5 
L2 ZERO 
L CHPRT 
L PRNTl 



LD PUSH BUTTON COUNT 
SHIFT RT VALUE OF 1 
SUBSTRACT VALUE OF 50 
BR TO PBCT4 IF NEG 
STORE REMAINDER 
LO IR2 WITH 5 
LO ACC WITH PB COUNT 
STORE IN TYPE OUT AREA 
BR TO PRNTl, TYPE IT 



* 
* 

* 

PBCT4 LD 
SRA 
S 

BSC 
STO 
LDX 
LD 
STO 
BSC 



TEST PUSH BUTTON COUNT FOR 40 TO 49 VALUE 



PBCNT LD PUSH BUTTON COUNT 

1 SHIFT 

K40 SUBTRACT 40 
L PBCT3,£Z BR TO PBCT3 IF NEG 

L STUN STORE REMAINDER 

2 4 LD IR2 WITH 4 

L2 ZERO LD ACC WITH PB COUNT 

L CHPRT STORE IN TYPE OUT AREA 

L PRNTl BR TO PRNTl, TYPEIT 



* 
» 

PBCT3 LD 
SRA 
S 

BSC 
STO 
LDX 
LO 
STO 
BSC 



TEST PUSH BUTTON COUNT FOR 30 TO 39 VALUE 



PBCNT LOAD PUSH BUTTON COUNT 

1 SHIFT RIGHT ONE 

K30 SUBTRACT 30 
L PBCT2,6Z BR TO PBCT2 IF NEG 

L STUN STORE REMAINDER 

2 3 LD IR2 WITH 3 

L2 ZERO LD ACC WITH PB COUNT 

L CHPRT STORE IN TYPE OUT AREA 

L PRNTl BR TO PRNTl, TYPE IT 



* 

* 

PBCT2 LD 
SRA 
S 

BSC 
STO 
LDX 
LO 
STO 
BSC 



TEST PUSH BUTTON COUNT FOR 20 TO 29 COUNT 



PBCNT LD PUSH BUTTON COUNT 

I SHIFT RIGHT ONE 

K20 SUBTRACT 20 
L PBCTl.EZ BR TO PBCTl IF NEG 

L STUN STORE REMAINDER 

2 2 LD IR2 WITH TWO 

L2 ZERO LD ACC WITH PB COUNT 

L CHPRT STORE IN TYPE OUT AREA 

L PRNTl BR TO PRNTl, TYPE IT 



TEST PUSH BUTTON COUNT FOR 10 TO 19 VALUE 



03AF-0 
2 



DATE 
EC NO. 



20FEB67 
419656 



15JUN67 
420317 



♦ 

PBCTl LD 
SRA 
S 

BSC 
STO 
LDX 
LD 
STO 
BSC 



01JUL69 
571013 



PBCNT 

1 

KID 
L WAIT,6Z 
L STUN 

2 1 
L2 ZERO 
L CHPRT 
L PRNTl 



01JUN70 
571097 



LD PUSH BUTTON COUNT 
SHIFT RIGHT ONE 
SUBTRACT TEN 
BR TO WAIT IF NEG 
STORE REMAINDER 
LOAD IR2 WITH ONE 
LD ACC WITH PB COUNT 
STORE IN TYPE OUT AREA 
BR TO PRNTl, TYPE IT 



3AF02060 

3AF02070 

3AF02080 

3AF02090 

3AF02100 

3AF02110 

3AF02120 

3AF02130 

3AF02140 

3AF02150 

3AF02160 

3AF02170 

3AF02180 

3AF02190 

3AF02200 

3AF02210 

3AF02220 

3AF02230 

3AF02240 

3AF02250 

3AF02260 

3AF02270 

3AF02280 

3AF02290 

3AF02300 

3AF02310 

3AF02320 

3AFO2330 

3AF02340 

3AF02350 

3AF02360 

3AF02370 

3AF02380 

3AF02390 

3AF02400 

3AF02410 

3AF02420 

3AF02430 

3AF02440 

3AF02450 

3AF02460 

3AF02470 

3AF02480 

3AF02490 

3AF02500 

3AF02510 

3AF02520 

3AF02530 

3AF02540 

3AF02550 

3AF02560 

3AF02570 

3AF02580 

3AF02590 

3AF02600 

3AF02610 

3AF02620 

3AF02630 

3AF02640 

3AF02650 

3AF02660 

3AF02670 

3AF02680 

3AF02690 

3AF02700 

3AF02710 

3AF02720 

3AF02730 
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* 
* 

* 

* lOCC FOR SCA AND 1130 CONSOLE PRINTER 

* 

lOCC SENSE DSW 
WITHOUT RESET DSW 

lOCC CONSOLE PRINTER 
SPACE 

lOCC SENSE DSW 
AND RESET DSW 

lOCC READ CONSOL SMTS 



lOCC SENSE CONSOLE 
SWITCHES AND RESET 

lOCC FOR CONSOLE 
PRINTER 

IQCC READ DIAGNOSTIC 
WORD 1 

lOCC READ DIAGNOSTIC 
WORD 2 

lOCC READ DATA FROM 
SCA BUFFER TO CORE 



0284 




0001 


SDSW 


BSS 1 


E 1 


0285 





5700 


* 
SPACE 


DC 


/5700 


0286 





02AC 


DC 


SPACl 


0287 





0900 


* 
SDSWR 


DC 


/0900 


0288 





0000 


DC 





0289 





5701 


* 
ROSWS 


DC 


/5701 


02 8A 





02B3 


DC 


SWS 


028B 





3A00 


* 
SENTW 


DC 


/3A00 


02 8C 





0000 


DC 





0280 





OFOl 


# 


DC 


/OFOl 


02 8E 





02AA 


PRNT 


DC 


CHPRT 


02 8F 





0900 


* 
RDAGl 


DC 


/0900 


0290 





02AE 


DC 


DAG IS 


0291 





5201 


* 
RDAG2 


DC 


/5201 


0292 





02AF 


DC 


DA62S 


0293 





5202 


* 
RBUF 


DC 


/5202 


0294 





02BD 


DC 


BFSTO 


0295 





5200 


* 


DC 


/5200 


0296 





0288 


* 
lOCC 


DC 


SDSWR 


0297 





0000 


* 


DC 








0298 




0002 




* 
DAG12 


BSS 




2 




029A 




0002 




ASTGE 


BSS 




2 




029C 





4C00 


0179 


BSC 


BSC 


L 


SWRD 




02 9E 





4C00 


018E 


LOOP 


BSC 


L 


REPT 




02A0 





C400 




ZERO 


DC 




/C400 




02A1 





FCOO 




ONE 


DC 




/FCOO 




02A2 





0800 




TWO 


DC 




/D800 




02A3 





DCOO 




THREE 


DC 




/DCOO 




02A4 





FCOO 




FOUR 


DC 




/FOOD 




02A5 





F400 




FIVE 


DC 




/F400 




02A6 





0000 




SIX 


DC 




/DOOO 




02A7 





D400 




SEVEN 


DC 




/0400 




02A8 





E400 




EIGHT 


DC 




/E400 




02A9 





EOOO 




NINE 


DC 




/EOOO 




02AA 





0000 




CHPRT 


DC 









02AB 





0000 




STUN 


DC 









02AC 





2100 




SPACl 


DC 




/2100 




02A0 





0000 




BSTGE 


OC 









02AE 





0000 




OAGIS 


DC 









02AF 





0000 




DAG2S 


DC 









02B0 





01E7 




KINTl 


DC 




INTl 


DATE 


20FEBfc7 15JUN67 


01JUL69 


01JUN70 


EC NO. 


419656 420317 


571013 


571097 



COMMON DUMP AREA FOR 
SCA lOCC 



* CONSTANTS AND SAVE AREA 



DIAG WORDS 1 AND 2 
ACC AND Q REG SAVE AREA 
STORED PROG INSTR 
STORED PROG INSTR 
CONSOLE PRINTER 
CONSOLE PRINTER 1 
CONSOLE PRINTER 2 
CONSOLE PRINTER 3 
CONSOLE PRINTER 4 
CONSOLE PRINTER 5 
CONSOLE PRINTER 6 
CONSOLE PRINTER 7 
CONSOLE PRINTER 8 
CONSOLE PRINTER 9 
TYPEWRITER OUTPUT AREA 
STORE UNITS AREA 
CONSOLE PRINTER SPACE 
ACC SAVE AREA 
DIAG WORD 1 
DIAG WORD 2 
INTERUPT LEVEL 1 



3AF02740 
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3AF02770 
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3AF02790 
3AF02800 
3AF02810 
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3AF02a30 
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3AF02850 
3AF02S60 
3AF02870 
3AF02880 
3AF02890 
3AF02900 
3AF02910 
3AF02920 
3AF02930 
3AF02940 
3AF02950 
3AF02960 
3AF02970 
3AF02980 
3AF02990 
3AF03000 
3AF03010 
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3AF03030 
3AF03040 
3AF03050 
3AF03060 
3AF03070 
3AF03080 
3AF03090 
3AF03100 
3AF03110 
3AF03120 
3AF03130 
3AF03140 
3AF03150 
3AF03160 
3AF03170 
3AF03180 
3AF03190 
3AF03200 
3AF03210 
3AF03220 
3AF03230 
3AF03240 
3AF03250 
3AF03260 
3AF03270 
3AF03280 
3AF03290 
3AF03300 
3AF03310 
3AF03320 
3AF03330 
3AF03340 
3AF03350 
3AF03360 
3AF03370 
3AF03380 
3AF03390 
3AF03400 
3AF03410 
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02B1 





01F5 


02B2 





0000 


02B3 





0000 


02B4 





0000 


0285 





0003 


02 B6 





5000 


02B7 





07FF 


02 B8 





0000 


02B9 





0000 


02BA 





007E 


02BB 





0100 


028C 





0001 


02BD 





0000 


02BE 





003C 


02BF 





0032 


02C0 





0028 


02C1 





OOIE 


02C2 





0014 


02C3 





OOOA 


02C4 





0001 



KINT4 


DC 


TIND 


OC 


SWS 


OC 


SWSTG 


DC 


K0003 


OC 


K5000 


DC 


K07FF 


DC 


PBCNT 


DC 


PBSTO 


OC 


K007E 


OC 


KOI 00 


DC 


KOOOl 


DC 


BFSTO 


DC 


K60 


DC 


K50 


DC 


K40 


OC 


K30 


DC 


K20 


DC 


KIO 


DC 


Kl 


DC 



INTRPT LVL 4 

TENS INDICATOR 

SWITCHES 

CONSOLE SWTS SAVE AREA 

CONSTANT 

CONSTANT 

MASK 

PUSH BUTTON COUNT 

PUSH BUTTON ON INDICTOR 



SCA BUFFER READ DATA 



INT4 







/0003 

/5000 

/07FF 

/OOOO 

/OOOO 

/007E 

/OlOO 

/OOOl 

/OOOO 

60 

50 

40 

30 

20 

10 

1 

* 

* 

* THIS AREA IS FREE FOR PROGRAM 
♦MODIFICATION, PATCH CARDS, ETC. 

* 

4> 



02C5 OOIE 



02E3 3001 



02E4 1000 
02E6 0161 

hJO STATEMENTS 



BSS 



30 



PATCH AREA 



* 

WAIT DC /3001 PROGRAM STOP 3, ERROR 

* PUSH BUTTON COUNT IS 

* NEG ... INVALID 

* 

«4:****4<***************4<4>4c****4E*******«**4e**** 

CORE NOP AVAILABLE CORE 

END START END OF PROG INSTRUCTNS 

FLAGGED IN THE ABOVE ASSEMBLY 



3AF03420 
3AF03430 
3 AF 03440 
3AF03450 
3AF03460 
3AF03470 
3AF03480 
3AF03490 
3AF03500 
3AF03510 
3AF03520 
3AF03530 
3AF03540 
3AF03550 
3AF03560 
3AF03570 
3AF03580 
3AF03590 
3AF03600 
3AF03610 
3AF03620 
3AF03630 
3AF03640 
3AF03650 
3AF03660 
3AF03670 
3AFfl3680 
3AF03690 
3AF03700 
3AF03710 
3AF03720 
3AF03730 
3AF03740 
3AF03750 
3AF03760 
3AF03770 
3AF037BO 
3AF03790 
3AF03800 
3AF03810 



03AF-0 
3 



DATE 
EC NO, 



20FEB67 
419656 



15JUN67 
420317 



01JUL69 
571013 



01JUN70 
571097 



PROG ID 
PAGE 



03AF-0 
3A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA DISPLAY PROGRAM 



PART NO. 2243562 
PAGE 4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA DISPLAY PROGRAM 



PART NO. 2243562 
PAGE AA 



ASTGE 


029A 


01F6 


OlFA 






BFSTO 


02BD 


OlDC 


0294 






BGNUN 


0211 


0227 








BSC 


029C 


0171 








BSTGE 


02AD 


01E8 


OlFl 






CHPRT 


02AA 


0215 


0239 


0248 


0256 0264 0272 0280 028E 


CLEAR 


018B 


0185 


018A 






CORE 


02E4 


0169 


016B 


016D 


01E5 


DAGIS 


02AE 


01A9 


OlDl 


OlEl 


0290 


DAG12 


0298 


OlAB 


OICA 






DAG2S 


02AF 


01A6 


OlAF 


OICC 


0292 


EIGHT 


02A8 










FIVE 


02A5 










FOUR 


02A4 










INTl 


01E7 


01F3 


02B0 






INT4 


01F5 


OlFC 


02B1 






lOCC 


0296 


019E 


OlAO 






KINTl 


02B0 


0161 








KINT4 


02B1 


0165 








KLDO 


OICA 


0168 


0222 






KORl 


OlEl 


01D8 


OlDE 






KOOOl 


02BC 


OIBA 


OICF 






K0003 


02B5 










K007E 


02BA 


OlCl 








KOlOO 


02BB 


OlBl 








K07FF 


02B7 


019A 








Kl 


02C4 


0229 








KIO 


02C3 


0208 


0278 






K20 


02C2 


026A 








K30 


02C1 


025C 








K40 


02C0 


024E 








K50 


02BF 


0240 








K5000 


02B6 


019C 








K60 


02BE 


0230 








LOOP 


029E 


0175 








NINE 


02A9 










ONE 


02A1 










PBCNT 


02B8 


017A 


OIBF 


01C3 


01E3 0205 020C 022D 023D 


PBCTl 


0276 


026B 








PBCT2 


0268 


025D 








PBCT3 


025A 


024F 








PBCT4 


024C 


0241 








PBCT5 


0230 


0232 








PBSTO 


02B9 


017C 


01B6 


OIBC 


01C8 


PRNT 


02eE 


0217 








PRNTl 


0217 


0238 


024A 


0258 


0266 0274 0282 


RBUF 


0294 


OlDA 








RDAGl 


0290 


01A2 








RDAG2 


0292 


01A4 


OlAD 






RDIAG 


01A2 


0194 








ROSWS 


028A 


0180 


018E 


0103 




KEPT 


018E 


OlEO 


029E 






RPBS 


01C7 


0184 








RSTND 


0224 


0220 








SDSW 


0284 


OlDF 








SDSHR 


0288 


0188 


01 8C 


CIEF 


0296 


SENTW 


028C 


01F8 


0200 


0219 




SEVEN 


02A7 










SIX 


02A6 










SPACE 


0286 


OlFE 








SPACl 


02AC 


0286 








START 


0161 


02E6 








STIND 


0229 


020A 








STOX 


OlFE 


01C5 








STUN 


02AB 


017E 


020F 


0211 


0234 0243 0251 025F 0260 


SWRD 


0179 


029C 








SWS 


02B3 


0182 


0190 


0196 


01D5 OlEA 028A 


SUSTG 


02B4 


0192 


0198 







THREE 


02A3 


TIND 


02B2 


TWO 


02A2 


WAIT 


02E3 


ZERO 


02A0 



021E 0225 022B 



0279 

0213 0237 0246 0254 0262 0270 027E 
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PARAGRAPH 



PURPOSE. 



4. 



REQUIREMENTS 



PAGE 

lA 

lA 



2.1 PROGRAM REQUIREMENTS 

2.2 EQUIPMENT REQUIREMENTS 



3. OPERATING PROCEDURE 



3.1 


PROGRAM LOADING 


3.2 


PROGRAM OPERATION 


3.2.1 


PROGRAM CONTROL - FUNCTION 


3-2.2 


ROUTINE SELECTION - FUNCTION 1 


3.2.3 


PROGRAM OPTIONS - FUNCTION 2 


3.2.4 


PROGRAM OPTIONS - FUNCTION 3 


3.3 


PROGRAM HALTS 


3.4 


PROGRAM TERMINATION 


3.5 


HALTING AND RESTARTING PROGRAM 


PRINTOUTS 


4.1 


STATUS MESSAGES 


4.2 


ERROR MESSAGES 


4.3 


TEXT PRINTOUT 



I. PURPOSE 

THE PURPOSE OF THE SCA TRANSMIT/RECEIVE BSC POINT-TO-POINT PROGRAM IS TO 
PROVIDE PROGRAM ABILITY TO OPERATE THE 1130 SCA ON-LINE WITH ANOTHER 
BSC TERMINAL IN A POINT-TO-POINT CONTENTION DATA LINK. THE MODE OF 
OPERATION IS BINARY SYNCHRONOUS. THE PROGRAM IS PRIMARILY A TEST OF 
SYSTEM INTEGRITY RATHER THAN A FAULT ISOLATING DIAGNOSTIC, HOWEVER, 
A DIAGNOSTIC CAPABILITY IS PROVIDED BY PROGRAM OPERATING OPTION. 

NOTE.. THERE IS ANOTHER P-T-P PROGRAM IPID 3161 AVAILABLE 
WHICH CONTAINS ALL OF THE STANDARD X TEST MESSAGE VALUES 
CONTAINED IN THIS TEST, PLUS ADDITIONAL X VALUES WHICH CAN ONLY 
BE ENTERED VIA PATCH CARDS FOR THIS PROGRAM ISEE SECTION 5.2. IJ. 
THE OTHER BSC PROGRAM PERFORMS CHECKOUT ON OTHER BSC DEVICES 
AND REQUIRES 8K OF STORAGE. 

2. PREREQUISITES 

**CAUTION** 

READ SECTIONS 3.1 AND 3.5 FOR SPECIAL OPERATING PROCEDURES BEFORE TAKING 

THE 1130 OFF-LINE FOR LOADING OF THE DIAGNOSTIC PROGRAM. 



2.1 



5. COMMENTS 10 

5.1 PROGRAM PHILOSOPHY 

5.1.1 REQUEST-FOR-TEST MESSAGE 

5.1.2 TEST MESSAGE 

5.1.3 LINE CONTROL 

5.2 ROUTINE DESCRIPTIONS 

6. APPENDIX 12 

6.1 BINARY SYNCHRONOUS COMMUNICATIONS CONTROL CHARACTERS 

6.2 BINARY SYSCHRONOUS COMMUNICATIONS CONTROL SEQUENCES 



2.2 



PROGRAM PREREQUISITES 



1. 



2. 



THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR. 
THE DIAGNOSTIC MONITOR USES 1.5 K STORAGE WORDS AND THIS PROGRAM 
USES THE REMAINING PORTION OF 4K. 

THE REMOTE TERMINAL MUST HAVE THE CAPABILITY OF EITHER 
TRANSMITTING OR RECEIVING AND RESPONDING TO REQUEST-FOR-TEST 
MESSAGES AS DESCRIBED IN THIS PROGRAM DESCRIPTION. 



EQUIPMENT PREREQUISITES 



1. 
2. 
3. 
4. 

5. 

6. 



SET STR/BSC SWITCH TO BSC POSITION. 

SET BAUD SELECTION SWITCH TO MATCH REMOTE TERMINAL 

SET DATA SET CONNECTOR PLUG SWITCH TO OPER 

CE SWITCH MUST BE OFF 

REFER TO LOGIC PAGE AD003 FOR CUSTOMER OPTION JUMPERS. 

OPTION FUNCTIONS MUST MATCH THE REMOTE TERMINAL. 

SCA MUST BE CONNECTED THROUGH THE PROPER MODEM EQUIPMENT TO 

ANOTHER BSC TERMINAL. DATA SETS USED MUST BE COMPATIBLE WITH 

BAUD RATE AND CUSTOMER OPTIONS SELECTED. 

NOTE... DIAL-UP CONNECT IONS... AUTOMATIC LINE DISCONNECT OCCURS 
WHEN 1130 RESET KEY IS PRESSED OR WHEN SCA PROGRAM RESET IS 
EXECUTED. THIS PROGRAM WILL EXECUTE A PROGRAM RESET ONLY IF / 
DISCONNECT SIGNAL IS RECEIVED FROM THE REMOTE TERMINAL OR IF 
THE PATCH CARD DESCRIBED IN 3.1 NOTE 3 IS USED. IF IT IS 
DESIRED THAT LINE DISCONNECT BE PREVENTED REMOVE THE JUMPER 
FROM 06D05 TO H2D10. 



DATE 
EC NO. 



01APR68 
420411 



15SEP68 
420416 



010CT69 
571066 



01JUN70 
571097 



PROG ID 


0317-* 


DATE 


01APR68 


15SEP68 


010CT69 


01JUN70 


PAGE 


I 


EC NO. 


420411 


420416 


571066 


571097 



PROG ID 
PAGE 



03 17-* 
lA 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA TRANSMIT/RECEIVE BSC POINT-TO-POINT 



PART NO. 2243973 
PAGE 2 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA TRANSMIT/RECEIVE BSC POINT-TO-POINT 



PART NO. 2243973 
PAGE 2A 



OPERATING PROCEDURE 

SEE DIAGNOSTIC MONITOR USE PROCEDURE FOR DETAILS OF PROGRAM LOADING AND 
OPERATING PROCEDURES. PROGRAM OVERLAP IS NOT RECOMMENDED DUE TO TIMING 
CONSIOERATIONS- 



3.2.1 PROGRAM CONTROL - FUNCTION 

1. SET SWITCHES 0-7 TO 01 

2. SET SWITCHES 8-15 AS DESIRED 



3.1 PROGRAM LOADING 

PROGRAM LOADING PROCEDURES ARE SUMMARIZED HERE. SEE DM USE 
PROCEDURE FOR ADDITIONAL DETAILS. OVERLAP IS NOT RECOMMENDED. 

1. NOTIFY THE OPERATOR AT THE REMOTE TERMINAL THAT THE 1130 MILL 
BE TAKEN OFF-LINE FOR LOADING OF THE DIAGNOSTIC PROGRAM. IT 
MAY BE NECCESSARY FOR THE REMOTE TERMINAL OPERATOR TO TAKE 
ACTION IN PREPARATION FOR THE TEST PROCEDURE. 

2. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 

3. SET BIT SWITCH 15.. .OFF - FOR LOAD AND GO. (NOTE 1) 

...ON - TO SPECIFY OPTIONS BEFORE RUNNING. 
tN0TE2l 

4. LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 

5. SELECT PROGRAM OPTIONS AS DESIRED. 

NOTE 1.. NORMAL LOAD AND GO OPERATION ASSUMES THAT THE PROGRAM WILL 
BE INITIATING THE TEST PROCEDURE AND TEST ROUTINES 1-6 WILL 
BE EXECUTED. IF THE PROGRAM HILL NORMALLY BE REQUIRED TO 
RECEIVE AND RESPOND TO REQUEST-FOR-TEST MESSAGES (TEST 
ROUTINE 8> IT IS RECOMMENDED THAT A PATCH CARD BE INSERTED 
IN THE PROGRAM DECK TO AUTOMATICALLY SELECT ROUTINE 8. THE 
PATCH CARD SHOULD CONTAIN IN COLUMNS I-IO, C05E0 0008, ALL 
OTHER COLUMNS SHOULD BE BLANK. THE PATCH CARD SHOULD BE 
INSERTED AHEAD OF THE LAST CARD IN THE PROGRAM DECK. ROUTINE 
8 MAY BE SUBSEQUENTLY DE-SELECTED BY USING FUNCTION 1. 

NOTE 2.. IF HALTED AFTER LOADING, SELECT PROGRAM OPTIONS THEN TURN 
OFF HALT SWITCH OR FOLLOW NORMAL RESTART PROCEDURE (3.5) 

NOTE 3.. 1130 TO S/360 SWITCHED ( DIAL-UP} LINES. THE S/360 PROGRAMS 
WILL DISCONNECT FROM THE COMMUNICATIONS LINE AT THE END OF 
EACH TEST. IT IS RECOMMENDED THAT THE FOLLOWING PATCH CARD 
BE PREPARED FOR 1130 TO S/360 TESTS OVER SWITCHED LINES. USE 
OF THIS CARD WILL CAUSE THE 1130 PROGRAM TO DISCONNECT AT THE 
END OF EACH TEST. THE PATCH CARD MUST BE PUNCHED AS FOLLOWS. 

COLUMNS 1-5 e06lC 
COLUMN 6 BLANK 
COLUMNS 7-9 0000 
ALL OTHER COLUMNS BLANK 

THIS CARD MUST BE INSERTED IN FRONT OF THE LAST BINARY CARD 
IN THE PROGRAM DECK. 



SWT 

8 

9 
10 
11 
12 
13 
14 
15 



FUNCTION 



RESTART (SEE SECTION 3.5J 

ROUTINE START MESSAGE 

(NOT USED I 

LOOP PROGRAM 

(NOT USED) 

BYPASS ERROR PRINTOUT 

HALT ON ERROR (USE NOT RECOMMENDED! 

HALT (SEE SECTION 3.5) 



PAPER TAPE IPL SYSTEMS. MANUALLY LOAD ALL ZEROS INTO 
CORE LOCATION /061C AFTER PROGRAM HAS BEEN LOADED. 

3.2 PROGRAM OPERATION 

PROGRAM OPERATING PROCEDURES ARE SUMMARIZED HERE. SEE DM USE 
PROCEDURE FOR ADDITIONAL DETAILS. OVERLAP IS NOT RECOMMENDED. 



CORE 



3. PRESS INT REQ KEY ON CONSOLE 



3.2.2 ROUTINE SELECTION - FUNCTION 1 

ROUTINE SELECTION WILL BE INOPERATIVE IF THE RFT RECEIVER OPTION 
(FUNCTION 2 SWITCH 15) IS SELECTED. 

ROUTINES 1-6 WILL BE EXECUTED IN SEQUENCE IF NO ROUTINE (OR 00) IS 
SELECTED. ROUTINES 7 AND 8 WILL BE EXECUTED ONLY IF SELECTED. 
ONLY ROUTINE 8 WILL LOOP CONTINUOUSLY IF SELECTED. ALL OTHERS WILL 
TERMINATE AT THE COMPLETION OF THE ROUTINE. 

TO LOOP A ROUTINE FIRST SELECT THE ROUTINE THEN SELECT THE LOOP 
PROGRAM OPTION (FUNCTION SWT 11). 

TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TO 41 

B. SET ROUTINE NUMBER IN SWITCHES 8-15 



RTN 



DESCRIPTION 



1. 
2. 
3. 
4. 
5. 
6. 
7. 
8. 



•TRANSMIT REQUEST-FOR-TEST WITH X=00 

TRANSMIT TEST MESSAGE 02 Y TIMES 
.TRANSMIT REQUEST-FOR-TEST WITH X=00 

TRANSMIT TEST MESSAGE 16 Y TIMES 
.TRANSMIT REQUEST-FOR-TEST WITH X=00 

TRANSMIT TEST MESSAGE 19 Y TIMES 
.TRANSMIT REQUEST-FOR-TEST WITH X=02 

RECEIVE TEST MESSAGES 
.TRANSMIT REQUEST-FOR-TEST WITH X=16 

RECEIVE TEST MESSAGES 
.TRANSMIT REQUEST FOR TEST WITH X=19 

RECEIVE TEST MESSAGES 
.TRANSMIT REQUEST FOR TEST WITH X=12(SEE SECTION 5.2) 

TRANSMIT OR RECIEVE TEST MESSAGES AS DEFINED BY X VALUE 
.RECEIVE AND RESPOND TO REQUEST-FOR-TEST MESSAGES 



C. PRESS INT REQ KEY ON CONSOLE 
TO DESELECT ROUTINE AND RETURN TO NORMAL OPERATION 

A. SET SWITCHES 0-7 TO 41 

B. SET SWITCHES 8-15 OFF 

C. PRESS INT REQ KEY 

0. DESELECT LOOP OPTION IF SELECTED. 
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3.2.3 PROGRAM OPTIONS - FUNCTION 2 



1. 
2. 



SET SWITCHES 0-7 TO 81 

SET SWITCHES U-15 AS DESIRED 



SWT 



FUNCTION 



SWT 15. .ON. .RECEIVE AND RESPOND TO REQUEST-FOR-TEST MESSAGES. 
(EXECUTE ROUTINE 8 ONLY) 
..OFF-TRANSMIT REQUEST-FOR-TEST MESSAGE THEN TRANSMIT OR 

RECEIVE Y TEST MESSAGES. (ALLOW EXECUTION OF RTNS 1-7) 

SWT 14. -ON-. ALLOW PRINTING OF DIAGNOSTIC ERROR MESSAGES. 

(ERROR MESSAGES E170B THRU E1725I SEE NOTE SECTION 4.2 
..OFF. DO NOT PRINT DIAGNOSTIC ERROR MESSAGES. 

SWT 13.. ON.. PRINT ENTIRE TEXT OF ANY MESSAGE OR CONTROL SEQUENCE 
RECEIVED WHICH CONTAINED AN ERROR. (SEE SECTION 4.3) 



SWT 12. -ON. 



.PRINT ENTIRE TEXT TRANSMITTED AND RECEIVED. 
(SEE SECTION 4.3) 



SWT 11..0N..8K OF CORE STORAGE AVAILABLE 

..OFF. ONLY 4K OF CORE STORAGE AVAILABLE 



3.2.4 PROGRAM OPTION - FUNCTION 3 

WHEN TRANSMITTING REQUEST-FOR-TEST MESSAGES (EXECUTING RTNS 1-7) 
THIS OPTION ALLOWS SELECTION OF THE NUMBER OF TEST MESSAGES 
THAT ARE TO BE TRANSMITTED OR RECEIVED. THE VALUE ENTERED IN 
SWITCHES 8-15 IS USED AS A COUNT OF TEST MESSAGES AND IS ALSO 
CONVERTED TO TWO EBCDIC DECIMAL DIGITS AND ENTERED IN THE Y FIELD 
OF THE RFT MESSAGE. THIS VALUE MUST BE BETWEEN DECIMAL 01 AND 99. 

TO SELECT THE Y VALUE 

1. SET SWITCHES 1-7 TO CI 

2. SET SWITCHES 8-15 AS DESIRED (HEX 01 TO 63) 

3. PRESS INT REQ KEY ON CONSOLE 

TO RETURN TO NORMAL OPERATION 

1. SET SWITCHES 0-7 TO CI 

2. SET SWITCHES 8-15 TO 01 

3. PRESS INT REQ KEY 



3.3 PROGRAM HALTS 
3.3.1 NORMAL HALTS 



NOTE. .-THE AMOUNT OF TEXT THAT CAN BE SAVED FOR PRINTING 
WHEN OPTION SWT 12 OR 13 IS ON IS LIMITED BY THE AVAILABLE 
CORE STORAGE. IN A 4K SYSTEM ONLY THE FIRST FEW TEST 
MESSAGES CAN BE SAVED AND PRINTED OUT. IN SYSTEMS LARGER 
THAN 4K SELECTION OF OPTION SWT 11 WILL ALLOW OVER 25 
TEST MESSAGES TO BE SAVED FOR PRINTING. 

SWT 10. .ON. .SEND ID HEADER WITH INITIAL ENQ OR INITIAL ACK. 
..OFF. 00 NOT SEND ID HEADER. 

NOTE. ..IF IDENTIFICATION HEADER CODE IS REQUESTED, THE 
FOLLOWING 15 CHARACTER CODE WILL BE USED... 1130BSC APTPDI AG . 
THIS CODE HAY BE CHANGED BY PUNCHING THE DESIRED EBCDIC 
CODE IN HEXADECIMAL BYTES IN A PATCH CARD. THE USER 
SHOULD INSURE THAT 15 ID CHARACTERS ARE ENTERED. THE PATCH 
CARD MUST BE PUNCHED AS FOLLOWS... 

COLUMNS 1-5 C061E 

COLUMN 6 BLANK 

COLUMNS 7-45 XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXOO 

ALL OTHER COLUMNS BLANK 

WHERE XX IS THE EBCDIC EQUIVALENT FOR ANY ALPHA-NUMERIC 
CHARACTER. THE FOLLOWING IS AN EXAMPLE OF A PATCH CARD 
ID OF B0CARAT0N10CT69 ... 

e061E C2D6 C3C1 09C1 E306 D5F1 D6C3 E3F6 F900 

THE ID PATCH CARD, IF USED, MUST BE INSERTED IN FRONT OF THE 
LAST BINARY CARD IN THE PROGRAM DECK. 

PAPER TAPE IPL SYSTEMS. MANUALLY LOAD THE EBCDIC 
EQUIVALENT ALPHA NUMERIC CHARACTERS INTO CORE LOCATIONS 
/061E THROUGH /0625. 



.HALT NO. 
(B REG). 

3001 - 

3002 . 



DESCRIPTION 

PROGRAM STOP OR ADDRESS STOP 
HALT ON ERROR 



RESTART 
ACTION 

PRESS PROGRAM START 

PRESS PROGRAM START 



3. PRESS INT REQ KEY ON CONSOLE. 
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3.3.2 ERROR HALTS 



.HALT NO. 
.(B REGl, 


DESCRIPTION 


RESTART 
ACTION 


. 30F1 . 


CHECK SUM ERROR ON FIRST 
CARD OF LOADER 


RELOAD PROGRAM 


. 30F2 . 


READER DSH ERROR WHEN 
LOADING LOADER 


RELOAD PROGRAM 


. 30F3 . 


CARD 2 OF LOADER DID 
NOT LOAD 


RELOAD PROGRAM 


- 30F4 . 


CAN NOT CLEAR CORE - DUE 
TO ERROR IN ADDRESSING 
UPPER CORE 




. 30F5 


READER CHECK WHEN LOADING 
MONITOR OR TEST PROGRAM 


. NPRO THEN PLACE CARDS 

. RUN OUT IN FRONT OF 

. REMAINING DECK AND PRESS. 

. READER START. 

. PRESS PROGRAM START 


I 30F6 


'. MONITOR DID NOT LOAD 


! RELOAD PROGRAM 


. 30F7 


! CHECK SUM WHEN LOADING 
MONITOR 


! RELOAD PROGRAM 


. 30F8 


READER NOT READY 


. MAKE READER READY 
. PRESS PROGRAM START 


. 30F9 


'. INVALID INTERRUPT MHICH 
WILL NOT RESET 


. PRESS RESET AND 
. PROGRAM START 


'. 30FA 


I CONSOLE PRINTER HANG UP - 
BUSY MILL NOT GO OFF 


'. FIX THE CONSOLE PRINTER . 



3.4 PROGRAM TERMINATION 

IF LOOP OPERATION HAS NOT BEEN SPECIFIED, THE PROGRAM WILL END... 

1. AT THE END OF ROUTINE 6 IF NO ROUTINE HAS BEEN SELECTED AND THE 
RFT RECEIVER OPTION JFUNCTION 2 SHT 15) IS NOT SELECTED. 

2. AT THE END OF THE SELECTED ROUTINE IF ANY ROUTINE OTHER THAN 
ROUTINE 8 IS SELECTED. 

3. IF ROUTINE 8 IS SELECTED BY EITHER FUNCTION 1 OR FUNCTION 2 SWT 
15 THE PROGRAM WILL LOOP CONTINUOUSLY. 

NOTE. ...AFTER NORMAL PROGRAM END THE SCA IS LEFT IN RECEIVE MODE. 
INTERRUPTS WILL CONTINUE TO OCCUR BUT WILL BE IGNORED 
BY THE PROGRAM. I SEE 3.51 



3.5 HALTING AND RESTARTING PROGRAM 

AFTER NORMAL PROGRAM END OR AFTER SELECTION OF PROGRAM HALT 
IFUNCTION SWT 15) THE SCA IS LEFT IN RECEIVE MODE. INTERRUPTS 
WILL CONTINUE TO OCCUR BUT HILL BE IGNORED BY THE PROGRAM. THIS 
PROCEDURE PREVENTS LINE DISCONNECT WHEN THE PROGRAM IS STOPPED. 
FOR THIS REASON IT IS RECOMMENDED THAT USE OF THE PROGRAM STOP, 
IMMEDIATE STOP. AND RESET KEYS BE AVOIDED WHEN OPERATING THIS 
PROGRAM. THE PROGRAM STOP KEY WILL NORMALLY STOP THE PROGRAM 
ONLY UNTIL THE NEXT INTERRUPT OCCURS. IN DIAL-UP CONNECTIONS USE OF 
THE RESET KEY MAY CAUSE LINE DISCONNECT. 

IT IS ALSO RECOMMENDED THAT WHENEVER POSSIBLE THE PROGRAM BE 
ALLOWED TO RUN TO NORMAL COMPLETION. IF IT IS NECCESSARY TO USE 
THE PROGRAM HALT OPTION OR OTHERWISE HALT THE PROGRAM THIS SHOULD 
BE DONE DURING THE END OF TEST PRINTOUT. IF THE TEST MUST BE 
TERMINATED DURING EXECUTION OF A TEST SEQUENCE, THEN ALLOW SUFFICIENT 
TIME FOR THE REMOTE TERMINAL TO FINISH THE TEST CYCLE BEFORE 
RESTARTING THE PROGRAM—OR RESTART BOTH TERMINALS- 

TO HALT PROGRAM I SEE 3.2.11 

1. TURN OFF SWITCHES 0-6 

2. TURN ON SWITCHES 7 AND 15 

3. PRESS INT REQ KEY 



TO RESTART PROGRAM J SEE 3.2.11 

1. TURN OFF SWITCHES 0-6 

2. TURN ON SWITCHES 7 AND 8 

3. SET DESIRED CONTROL IN SWITCHES 9-14 

4. PRESS INT REQ KEY ON CONSOLE 

IF THIS DOES NOT RESTART PROGRAM THEN, 

5. PRESS IMMEDIATE STOP 

6. PRESS RESET 

7. PRESS INT REQ KEY 
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4. PRINTOUTS 

ALL PRINTOUTS ARE IN THE STANDARD FORMAT EXCEPT THE TEXT PRINTOUT. ISEE 4.3) 

MESSAGE 
MESSAGE {MESSAGE OMITTED FOR DIAGNOSTIC PRINTOUTS) 



A1701 DORR AAAA MAKE DATA SET READY 



APPNN OORR AAAA 

OR 
EPPNN OORR AAAA 



4.1 



AOOOO 



AOOOl 



WHERE 



A 

E 
PP 



NN 

RR 

AAAA 

MESSAGE 



IDENTIFIES STATUS MESSAGES 

IDENTIFIES ERROR MESSAGES 

IS THE PIO OF THE PROGRAM CAUSING THE MESSAGE 

THIS WILL BE EITHER 00 FOR MESSAGES ORIGINATED BY 
MONITOR OR 17 FOR MESSAGES ORIGINATED BY THIS PROGRAM 

IS THE MESSAGE IDENTIFICATION NUMBER 

IS THE ROUTINE NUMBER 

IS THE STARTING ADDRESS OF THE ROUTINE 

IS ANY VARIABLE INFORMATION 



BEFORE EACH ROUTINE IS STARTED THE PROGRAM CHECKS FOR A READY 
CONDITION IN THE DSW, AND PRINTS THIS MESSAGE IF READY IS NOT ON 
IN A PERMANENT LINE CONNECTION THIS IS AN ERROR CONDITION. 
IN A DIAL-UP CONNECTION THIS MESSAGE IS A REQUEST THAT A 
CONNECTION BE ESTABLISHED WITH THE REMOTE TERMINAL. CONNECTION 
MAY BE ESTABLISHED BY ANY OF THE FOLLOWING MEANS.. 



I. 



2. 



3. 



STATUS MESSAGES (LOG MESSAGES) 



NUM PID AORS RELF LD 
XXXX XXXX XXXX XXXX 



THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR). THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE AOORESS INTO WHICH THE PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 



SWS PIO 
XXXX XXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WHERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM THE WORD HALT WILL FOLLOW THE 
MESSAGE. 



MANUALLY ESTABLISH CONNECTION AT BOTH TERMINALS 
OR 

IF REMOTE TERMINAL CAN ANSWER AUTOMATICALLY THEN DIAL 
THE REMOTE TERMINAL, WAIT FOR THE END OF THE TONE RECEIVED 
FROM THE OTHER TERMINAL, PRESS THE DATA BUTTON ON THE 
DATA SET. 

OR 
PRESS THE AUTO-ANSWER BUTTON ON THE DATA SET. THE PROGRAM 
HILL THEN CONTINUE TO PRINT THIS MESSAGE UNTIL AN INCOMING 
CALL IS RECEIVED. WHEN A CALL IS RECEIVED THE PROGRAM WILL 
ANSWER AND CONDUCT THE TEST. 

THIS MESSAGE WILL BE REPEATED AT ABOUT 20 SEC INTERVALS UNTIL 
READY IS SENSED IN THE DSW. 

NOTE.... INITIAL LINE CONNECTION 

DIALING MUST ALWAYS BE DONE AT THE SYSTEM WHICH IS TO TRANSMIT 

THE RFT MESSAGE* 

WHEN EXECUTING RTNS 1-7 DIAL FROM THE 1130 END. 

WHEN EXECUTING RTN 8 DIAL FROM THE REMOTE TERMINAL END. 

THIS MESSAGE IS PRINTED AT ANY TIME THAT LINE DISCONNECT OCCURS. 

THE PROGRAM WILL RESET THE SCA AND IF THE SYSTEM IS CONFIGURED 

FOR AUTOMATIC DISCONNECT, DISCONNECT FROM THE COMMUNICATIONS LINE 



A1702 OORR AAAA 



MON ENQ 

THIS MESSAGE MEANS THAT TEST ROUTINE 8 IS MONITORING THE LINE 
FOR THE ENQ CHARACTER WHICH PRECEEDS THE FIRST MESSAGE. THIS 
»!H??,! "^'-'- ^^ REPEATED AT INTERVALS AND ALL OTHER CHARACTERS 
RECEIVED WILL BE IGNORED UNTIL THE ENQ CHARACTER IS RECEIVED. 
WHEN ENQ IS RECEIVED AN ACKNOWLEDGEMENT (OLE ACKO) WILL BE 
TRANSMITTED AND THE RFT MESSAGE RECEIVED. 



A1700 OORR AAAA 



A1703 OORR AAAA 



NO ANS ENQ 



ROUTINE START MESSAGE - IF SWITCH 9, FUNCTION 0, IS TURNED ON. 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 



THIS MESSAGE IS PRINTED BY ROUTINES 1-7 AFTER 7 ATTEMPTS TO 
ESTABLISH INITIAL COMMUNICATION WITH REMOTE TERMINAL HAVE FAILED. 
THE PROGRAM HAS TRANSMITTED ENQ 7 TIMES, BUT EITHER NO RESPONSE 
OR A RESPONSE OTHER THAN THE POSITIVE ACKNOWLEDGEMENT IDLE ACKO) 
WAS RECEIVED. THIS MESSAGE USUALLY INDICATES THAT THE REMOTE 
TERMINAL IS NOT YET READY TO RECEIVE. IF IT IS ESTABLISHED 
THAT THE REMOTE TERMINAL IS READY TO RECEIVE THEN THIS IS AN 
ERROR CONDITION. AFTER PRINTING THE TEST ROUTINE WILL BE 
RESTARTED. 



A1704 OORR AAAA 



DISCONNECT 



THIS MESSAGE IS PRINTED AFTER THE 1130 HAS RECEIVED A 

DISCONNECT CHARACTER SEQUENCE (OLE EOT) FROM THE REMOTE 

STATION (SWITCHED NET). 

(REFER TO SECTION 3.1 FOR A DEFINITION OF DISCONNECT 

OPERATIONS) 
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A1705 OORR AAAA 



X Y TMOUT NAK INV RESP 
OOOXX OOOXX OOOXX OOOXX OOOXX 



E0004 



THIS IS THE NORMAL END OF 
TEST MESSAGE TRANSMITTER 
IF X IS NOT 00). THE PRI 
THE RFT MESSAGE, THE NUMB 
WHILE RECEIVING RESPONSES 
NEGATIVE RESPONSES (NAK) 
INVALID RESPONSES (ANY RE 
TEST MESSAGES. AN ERROR 
IN THE LAST THREE FIELDS 



TEST MESSAGE WHICH IS PRINTED BY THE 
(RTNS 1-3, RTN 7 IF X=00, AND RTN 8 
NTOUT PROVIDES THE X AND Y VALUES FROM 
ER OF RECEIVE TIMEOUTS WHICH OCCUREO 

TO TEST MESSAGES, THE NUMBER OF 
TO TEST MESSAGES, AND THE NUMBER OF 
SPONSE OTHER THAN ACKO, ACKl, NAK, MACK ) TO 
FREE TEST IS INDICATED BY THE COUNTS 
BEING ZERO. 



CKSUM 

A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 

1. A CARD IS MISSING OR IS OUT OF SEQUENCE- 

2. THERE IS AN EXTRA CARD IN THE DECK. 

3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 

5. DUE TO A CPU MALFUNCTION THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 

WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM.' 



A1706 OORR AAAA 



X Y THOUT W ERR W/0 ERR 
OOOXX OOOXX OOOXX OOOXX OOOXX 

THIS IS THE NORMAL END OF TEST MESSAGE WHICH IS PRINTED BY THE 
TEST MESSAGE RECEIVER fRTNS 4-6, RTN 7 IF X NOT 00, AND RTN 8 
IF X=00). THE PRINTOUT PROVIDES THE X AND V VALUES FROM THE 
RFT MESSAGE, THE NUMBER OF RECEIVE TIMEOUTS WHICH OCCURED WHILE 
RECEIVING TEST MESSAGES, THE NUMBER OF TEST MESSAGES RECEIVED 
WITH EITHER BCC OR FORMAT ERRORS, THE NUMBER OF TEST MESSAGES 
RECEIVED WITHOUT ERROR. AN ERROR FREE TEST IS INDICATED BY THE 
NUMBER OF ERROR FREE MESSAGES BEING EQUAL TO THE Y VALUE. 



E0005 



OOON XXXX 

THIS ERROR WILL OCCUR IF AN INTERRUPT OCCURS, BUT THE ILSH WAS 
NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE ILSW. 
THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET BY 
A BOSC. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



E1700 OORR AAAA 



A1707 OORR AAAA 



RVI RCVD, EOT SENT 

THIS MESSAGE IS PRINTED WHEN THE SLAVE STATION REPLIES WITH AN 
RVI INSTEAD OF AN ACKNOWLEDGEMENT. RVI IS A REQUEST FOR 
TERMINATION OF THE CURRENT TRANSMISSION AS SOON AS POSSIBLE. 
TRANSMISSION IS TERMINATED WITH AN EOT AT THE END OF THE CURRENT 
TRANSMISSION BLOCK. 



25 MACKS R 

THIS MESSAGE IS PRINTED BY TEST ROUTINES 1-7 WHEN 25 CONSECUTIVE 
WAIT BEFORE ACKNOWLEDGE (MACK) RESPONSES HAVE BEEN RECEIVED FROM 
THE REMOTE TERMINAL. THE PROGRAM WILL TERMINATE AND PRINT THE 
END OF TEST MESSAGE. 



EI701 OORR AAAA 



A1708 OORR AAAA 



4.2 



EOOOl 



E0003 



TTD RCVD 

THIS MESSAGE IS PRINTED WHEN THE RESPONDER (RTN 8) HAS RECEIVED 
A TTD SEQUENCE ISTX/ENQ) DURING MESSAGE TRANSFER. 
TTD INDICATES A DELAY OF MORE THAN 2 SECONDS BEFORE THE NEXT 
XMISSION BLOCK IS SENT OR A CONTROLLED FORWARD ABORT OF THE 
CURRENT TRANSMISSION. RTN 8 WILL RESPOND TO THE TTD WITH A 
NAK CHARACTER. 



ERROR MESSAGES 



SWS INVLD 
XXXX 

THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



OVR CORE 

THE PROGRAM, WHICH THE LOADER HAS ATTEMPTING TO LOAD, 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 



DATA SET NRDY 

THE DATA SET BECAME NOT READY WHILE THE PROGRAM WAS ATTEMPTING 
TO TRANSMIT OR RECEIVE A MESSAGE OR CONTROL SEQUENCE. IF 
INITIAL COMMUNICATION WITH THE REMOTE TERMINAL HAD NOT YET 
BEEN ESTABLISHED THE PROGRAM MILL RESTART THE TEST ROUTINE. 
IF THE EXCHANGE OF MESSAGES WITH THE REMOTE TERMINAL HAS IN 
PROGRESS AT THE TIME THE ERROR OCCUREO, THE PROGRAM WILL 
ATTEMPT TO PROCEED MITH THE TEST. 



El 702 OORR AAAA 



7 TRIES T 

THIS MESSAGE IS PRINTED BY TEST ROUTINES 1-7 AFTER 7 ATTEMPTS 
TO TRANSMIT THE REQUEST-FOR-TEST MESSAGE HAVE FAILED. THE 
PROGRAM WILL TERMINATE THE CURRENT TEST ROUTINE AND EITHER END 
THE PROGRAM OR GO ON TO THE NEXT ROUTINE. THE NORMAL END OF 
TEST MESSAGE WILL NOT BE PRINTED SINCE NO TEST MESSAGES HAVE 
BEEN TRANSMITTED OR RECEIVED. 



El 703 OORR AAAA 



7 TRIES R 

THIS MESSAGE IS PRINTED BY TEST ROUTINE 8 AFTER 7 ATTEMPTS TO 
RECEIVE THE REQUEST-FOR-TEST SEQUENCE HAVE FAILED. THE PROGRAM 
WILL TERMINATE THE CURRENT TEST AND WILL RESTART ROUTINE 8. 
THE NORMAL END OF TEST MESSAGE WILL NOT BE PRINTED SINCE NO 
TEST MESSAGES HAVE BEEN TRANSMITTED OR RECEIVED. 
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E1704 DORR AAAA 



INV X 

THIS MESSAGE IS PRINTED BY TEST ROUTINE 7 IF AN INVALID X VALUE 

IS ENTERED BY A PROGRAM PATCH CARD. 

CORRECT THE PATCH CARD AND RELOAD THE PROGRAM. 



E1705 OORR AAAA 



INV Y 



****NOTE.. DIAGNOSTIC ERROR MESSAGES-. THE FOLLOWING ERROR MESSAGES ARE PRINTED 
ONLY IF FUNCTION 2 SWITCH 14 IS SELECTED. EACH OF THESE MESSAGES 
INDICATES A SOFT (RECOVERABLE) ERROR CONDITION. INCLUDED IN THE 
DESCRIPTION OF EACH OF THESE PRINTOUTS IS THE ACTION THAT HILL BE 
TAKEN BY THE PROGRAM TO ATTEMPT RECOVERY FROM THE ERROR. THESE 
PRINTOUTS ARE INTENDED TO BE USED AS A GUIDE IN LOCATING THE EXACT 
POINT OF FAILURE IN THE TEXT PRINTOUT- 



THIS MESSAGE IS PRINTED BY ROUTINES 1-7 IF AN INVALID Y VALUE IS 
ENTERED VIA FUNCTION 3. ENTER A CORRECT VALUE (HEX 01 TO 53! 
AND RESTART THE PROGRAM. 



E170B OORR AAAA 



E1706 OORR AAAA 



INV RFT RCVO 

THIS MESSAGE IS PRINTED BY TEST ROUTINE 8 IF A REQUEST FOR 
TEST MESSAGE IS RECEIVED WHICH THE PROGRAM IS NOT CAPABLE 
OF RESPONDING TO. THE RFT MESSAGE CONTAINED ONE OF THE 
FOLLOWING ERRORS. 

1. THE RFT MESSAGE DID NOT BEGIN WITH SOH % 

2. THE X FIELD WAS GREATER THAN DECIMAL 99 

3. THE Y FIELD WAS GREATER THAN DECIMAL 99 

4. THE X VALUE WAS NOT ONE OF THOSE RECOGNIZED BY ROUTINE 8 

THE PROGRAM WILL TRANSMIT NAK AND ATTEMPT TO RECEIVE THE 
RFT MESSAGE FOR UP TO 7 TRYS. 



TEST ROUTINE 8 HAD RECEIVED AND ACKNOWLEDGED THE INITIAL ENQ 
AND WAS EXPECTING THE RFT MESSAGE WHEN A SECOND ENQ WAS RECEIVED. 
THIS INDICATES THAT THE REMOTE TERMINAL DID NOT CORRECTLY 
RECEIVE THE ACKNOWLEDGEMENT (DLE ACKO). THE PROGRAM WILL 
RE-TRANSMIT THE ACKNOWLEDGEMENT. 



E170C OORR AAAA 



A RECEIVE TIMEOUT OCCURED WHILE RECEIVING THE RFT MESSAGE. 
THIS INDICATES THAT EITHER CHARACTER PHASE WAS NEVER ESTABLISHED 
AND NOTHING WAS RECEIVED OR THE END OF TEXT CHARACTER 
(ETX OR ETB» WAS NOT RECEIVED CORRECTLY. THE PROGRAM WILL 
MONITOR THE LINE FOR ENQ AND WHEN ENQ IS RECEIVED RE-TRANSMIT 
THE LAST ACKNOWLEDGEMENT (ACK OR NAKI . 



E170D OORR AAAA 



El 707 OORR AAAA 



EOT RCVD 

THE END OF TRANSMISSION (EOT) CHARACTER WAS RECEIVED IN RESPONSE 
TO OR IN PLACE OF A MESSAGE PRIOR TO THE NORMAL END OF TEST. 
THE PROGRAM WILL TERMINATE THE CURRENT TEST ROUTINE AND IF 
ANY TEST MESSAGES HAVE BEEN TRANSMITTED OR RECEIVED PRINT THE 
END OF TEST MESSAGE. 



CHARACTER PHASE WAS ESTABLISHED WHEN ATTEMPTING TO RECEIVE 
THE RFT MESSAGE, BUT THE MESSAGE DID NOT BEGIN WITH A VALID 
START OF TEXT SEQUENCE ISOH, STX, OR DLE STX). THIS IS AN 
INDICATION OF FALSE SYNCHRONIZATION. THE PROGRAM WILL ABORT 
SYNCHRONIZATION AFTER RECEIVING TWO CHARACTERS AND WILL THEN 
MONITOR FOR ENQ. WHEN ENQ IS RECEIVED THE LAST ACKNOWLEDGEMENT 
WILL BE RE-TRANSMITTEO. 



E170E OORR AAAA 



El 708 OORR AAAA 



DISCONNECT 

THE DISCONNECT SEQUENCE (OLE EOT) WAS RECEIVED IN RESPONSE TO OR 
IN PLACE OF A MESSAGE PRIOR TO THE NORMAL END OF TEST. THE 
PROGRAM WILL TERMINATE THE CURRENT TEST ROUTINE, RESET THE SCA, 
AND PRINT THE END OF TEST MESSAGE IF ANY TEST MESSAGES HAVE 
BEEN RECEIVED. 



THE PROGRAM WAS MONITORING THE LINE FOR ENQ FOLLOWING A PREVIOUS 
ERROR, BUT ENQ WAS NOT RECEIVED. THE PROGRAM WILL RETURN TO 
MONITORING FOR ENQ. 



E170F OORR AAAA 



E1709 OORR AAAA 



NO INTRP 

AN EXPECTED INTERRUPT FAILED TO OCCUR- THE PROGRAM WILL 
TERMINATE THE CURRENT TEST ROUTINE AND PRINT THE END OF TEST 
MESSAGE IF ANY TEST MESSAGES HAVE BEEN TRANSMITTED OR RECEIVED. 



E170A OORR AAAA 



CONTENTION 

THIS MESSAGE IS PRINTED BY TEST ROUTINES 1-7 IF ENQ IS RECEIVED 
IN RESPONSE TO ENQ WHEN ATTEMPTING TO ESTABLISH INITIAL 
COMMUNICATION WITH THE REMOTE TERMINAL. THIS INDICATES THAT 
BOTH TERMINALS ARE ATTEMPTING TO TRANSMIT. CORRECT BY ONE 
TERMINAL GOING TO RECEIVE RFT MESSAGES. WHEN THIS ERROR OCCURS 
THE PROGRAM WILL RESTART THE TEST ROUTINE. 



THE RFT MESSAGE WAS RECEIVED WITH EITHER A BLOCK CHECK ERROR 
OR A FORMAT ERROR. A FORMAT ERROR OCCURS UNDER THE FOLLOWING 
CONDITIONS. 

1. SOH WAS RECEIVED IN HEADING OR NORMAL TEXT 

2. STX WAS RECEIVED IN NORMAL TEXT 

3. ENQ OR EOT WAS RECEIVED IN HEADING OR NORMAL TEXT 

4. OLE WAS RECEIVED IN TRANSPARENT TEXT AND WAS IMMEDIATELY 
FOLLOWED BY OTHER THAN DLE, SYN, ETX, ETB, OR ITB. 

THE PROGRAM WILL TRANSMIT NAK AND ATTEMPT TO RECEIVE THE 
RFT AGAIN. 



E1710 OORR AAAA 



WHILE ATTEMPTING TO RECEIVE THE RFT MESSAGE A MESSAGE WAS 
RECEIVED WHICH WAS NOT AN RFT MESSAGE (MESSAGE DID NOT BEGIN 
WITH SOH %). THE PROGRAM WILL TRANSMIT NAK AND AGAIN TRY 
TO RECEIVE THE RFT MESSAGE. 
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E1711 OORR AAAA 



E171B OORR AAAA 



THE RFT MESSAGE RECEIVED CONTAINED AN X FIELD WHICH HAS NOT 
COMPOSED OF TWO DECIMAt DIGITS. THE PROGRAM WILL TRANSMIT NAK 
AND AGAIN ATTEMPT TO RECEIVE THE RFT- 



NAK WAS RECEIVED IN RESPONSE TO THE RFT MESSAGE. THIS INDICATES 
THAT THE RFT WAS RECEIVED BY THE REMOTE TERMINAL WITH A BCC 
ERROR. THE PROGRAM WILL RE-TRANSMIT THE RFT MESSAGE. 



E1712 OORR AAAA 



E171C OORR AAAA 



THE RFT MESSAGE RECEIVED CONTAINED A Y FIELD WHICH WAS NOT 
COMPOSED OF TWO DECIMAL DIGITS. THE PROGRAM WILL TRANSMIT NAK 
AND AGAIN ATTEMPT TO RECEIVE THE RFT MESSAGE. 



EITHER NO RESPONSE OR A WACK RESPONSE WAS RECEIVED IN RESPONSE 
TO THE ENQ WHICH PRECEEDS THE TEST MESSAGES. THE PROGRAM WILL 
RE-TRANSMIT THE ENQ. 



E1710 OORR AAAA 



E1713 OORR AAAA 



THE RFT MESSAGE RECEIVED CONTAINED A X VALUE WHICH THE PROGRAM 
IS NOT CAPABLE OF RESPONDING TO. THE PROGRAM WILL TRANSMIT 
NAK AND ATTEMPT TO RECEIVE THE RFT AGAIN. 



NAK HAS RECEIVED IN RESPONSE TO A TEST MESSAGE. THIS ERROR HILL 
BE LOGGED IN THE END OF TEST MESSAGE AND THE NEXT TEST MESSAGE 
WILL BE TRANSMITTED. 



E171E OORR AAAA 



E1714 OORR AAAA 



AFTER SUCCESSFULLY RECEIVING AND ACKNOWLEDGING THE RFT MESSAGE 
THE PROGRAM WAS EXPECTING THE EOT CHARACTER. BUT THE ENQ 
CHARACTER WAS RECEIVED. THIS INDICATES THAT THE REMOTE TERMINAL 
DID NOT RECEIVE THE LAST ACKNOWLEDGEMENT. THE PROGRAM WILL 
RE-TRANSMIT THE LAST ACKNOWLEDGEMENT. 



A RECEIVE TIMEOUT OCCURED AFTER TRANSMITTING A TEST MESSAGE. 
THIS ERROR HILL BE LOGGED IN THE END OF TEST MESSAGE AND THE 
NEXT TEST MESSAGE WILL BE TRANSMITTED. 



E1720 OORR AAAA 



E1715 OORR AAAA 



AN INVALID RESPONSE INOT ACK.NAK OR HACKJ RECEIVED IN RESPONSE TO 
A TEST MESSAGE. THIS ERROR HILL BE LOGGED IN THE END OF TEST 
MESSAGE ANO THE NEXT TEST MESSAGE TRANSMITTED. 



EOT HAS NOT RECEIVED FOLLOWING THE RFT MESSAGE. THE PROGRAM 
WILL AGAIN ATTEMPT TO RECEIVE THE EOT CHARACTER. 



E1721 OORR AAAA 



E1716 OORR AAAA 



NO ENQ WAS RECEIVED PRECEEOING THE TEST MESSAGES. 
HILL REQUEST A RE-TRANSMISSION OF THE ENQ. 



THE PROGRAM 



REMOTE TERMINAL HAS BEEN RESPONDING FOR APPROXIMATELY 50 SECONDS 
WITH WAIT BEFORE ACKNOWLEDGE IHACK) COMMANDS. THE PROGRAM HILL 
TERMINATE. 



E1722 OORR AAAA 



EI718 OORR AAAA 



A RECEIVE TIMEOUT OCCURED WHILE RECEIVING A TEST MESSAGE, 
THIS ERROR HILL BE LOGGED IN THE END OF TEST MESSAGE. 



AN INVALID SEQUENCE HAS RECEIVED IN RESPONSE TO AN RFT MESSAGE 
I RESPONSE OTHER THAN ACK.NAK.OR HACK). THE PROCRAH WILL TRANSMIT 
ENQ TO REQUEST THAT ACKNOWLEDGEMENT BE REPEATED. 



E1723 OORR AAAA 



E1719 OORR AAAA 



THE TEST MESSAGE RECEIVED DID NOT START WITH A VALID START 

OF TEXT CHARACTER ISOH, STX, OR OLE STX>. THE PROGRAM WILL LOG 

THIS ERROR IN THE END OF TEST MESSAGE. 



A RECEIVE TIMEOUT OCCURED AFTER TRANSMITTING THE RFT MESSAGE. 
THE PROGRAM WILL TRANSMIT ENQ TO REQUEST THAT THE ACKNOWLEDGEMENT 
BE REPEATED. 



E1724 OORR AAAA 



E171A OORR AAAA 



THE TEST MESSAGE WAS RECEIVED WITH A BCC OR FORMAT ERROR. THE 
PROGRAM WILL TRANSMIT NAK AND LOG THE ERROR IN THE END OF TEST 
MESSAGE. (SEE E170F FOR DEFINITION OF FORMAT ERROR). 



THE WRONG ALTERNATE POSITIVE ACKNOWLEDGEMENT WAS RECEIVED IN 
RESPONSE TO THE RFT MESSAGE. THE PROGRAM WILL RE-TRANSMIT THE 
RFT MESSAGE IF A TIMEOUT OCCURED PREVIOUSLY, IF NO TIMEOUT 
OCCURED ENQ WILL BE TRANSMITTED. 



E1725 OORR AAAA 



NO EOT WAS RECEIVED FOLLOWING THE TEST MESSAGES. 
WILL IGNORE THIS ERROR. 



THE PROGRAM 
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4.3 TEXT PRINTOUT 

IF FUNCTION 2 SWITCH 12 IS TURNED ON ALL TEXT AND CONTROL CHARACTERS 
WHICH ARE TRANSMITTED OR RECEIVED BY THE PROGRAM WILL BE PRINTED AT 
THE COMPLETION OF THE TEST. 



5. COMMENTS 



IF FUNCTION 2 SWITCH 12 IS OFF BUT SWITCH 13 IS ON, ONLY THOSE 
MESSAGES OR CONTROL SEQUENCES WHICH WHERE RECEIVED WITH AN ERROR 
INDICATION WILL BE PRINTED OUT. 

ALL EBCDIC CHARACTERS WILL BE PRINTED IN HEXADECIMAL FORM. 
IN ADDITION TO THE HEX PRINTOUT, 5 ALPHA MESSAGES MAY ALSO BE 
PRINTED. 

1. XMIT....THIS IS PRINTED AT THE START OF DATA TRANSMITTED. 

2. RECV....THIS IS PRINTED AT THE START OF DATA RECEIVED. 

3. TIMEOUT. THIS PRINTED AT THE END OF DATA RECEIVED AND INDICATES 

THAT A RECEIVE TIMEOUT OCCURED. 



'*' ERR THIS IS PRINTED AT THE END OF DATA RECEIVED AND 

INDICATES THAT THE DATA RECEIVED WAS NOT AS EXPECTED. 

5. CORE. ...THIS INDICATES THAT STORAGE OF DATA TRANSMITTED AND 

RECEIVED EXCEEDED AVAILABLE CORE STORAGE AND NO FURTHER 
DATA COULD BE STORED. 

THE SCA HARDWARE AUTOMATICALLY REMOVES ALL SYNCHRONOUS IDLE 
CHARACTERS WHICH ARE RECEIVED PRECEEDING EACH MESSAGE. FOR THIS 
REASON RECEIVE PRINTOUTS WILL SHOW NO LEADING SYN CHARACTERS. 

THE SCA HAROWARD AUTOMATICALLY INSERTS TWO SYN CHARACTERS PRECEEDING 
EACH TRANSMISSION AND THE PROGRAM INSERTS FOUR. FOR THIS REASON 
TRANSMIT PRINTOUTS WILL SHOW FOUR LEADING SYN CHARACTERS. 

THE FOLLOWING IS A LIST OF POINTS TO CHECK IN THE TEXT PRINT WHICH 
MAY BE USEFUL IN DETERMINING THE CAUSE OF AN ERROR. 

1. SOH 10100} MUST NOT APPEAR IN HEADING OR NORMAL TEXT IFORMAT ERRI 

2. STX (0200 J MUST NOT APPEAR IN NORMAL TEXT (FORMAT ERROR) 

3. HEADING OR NORMAL TEXT MUST END WITH ETX (0300) OR ETB (2500) 
FOLLOWED BY THE TWO BLOCK CHECK CHARACTERS. 
SOH (0100) INDICATES THE START OF HEADING TEXT. 
STX (0200) INDICATES THE START OF NORMAL TEXT (THIS MAY 
APPEAR IMMEDIATELY FOLLOWING HEADING TEXT). 

OLE STX (1000 0200) INDICATES THE START OF TRANSPARENT TEXT 
(THIS MAY APPEAR IMMEDIATELY FOLLOWING HEADING TEXT). 
OLE (1000) MUST NOT APPEAR IN TRANSPARENT TEXT FOLLOWED BY 
ANY CHARACTER OTHER THAN SYN (3200), OLE (1000), ETB (2600), 
ETX (0300), OR ITB (IFOO). 

TRANSPARENT TEXT MUST END WITH OLE ETB 11000 2600) OR OLE ETX 
(1000 0300) FOLLOWED BY THE TWO BLOCK CHECK CHARACTERES. 

9. SYN INSERTION—THE SYNCHRONOUS IDLE SEQUENCE MUST BE TRANSMITTED 
AT INTERVALS BY A TERMINAL TRANSMITTING LONG MESSAGES TO ENSURE 
THAT THE TERMINALS MAINTAIN CHARACTER SYNCHRONIZATION- THE 
SYNCHRONOUS IDLE SEQUENCE IS SYN SYN (3200 3200) FOR HEADING AND 
NORMAL TEXT AND OLE SYN (1000 3200) FOR TRANSPARENT TEXT. THE 
RATE OF INSERTION SHOULD BE NOMINALLY EVERY ONE SECOND FOR 
NORMAL TEXT AND EVERY 85 CHARACTERS FOR TRANSPARENT TEXT. 

THIS RATE WILL VARY WITH THE SETTING OF THE TRANSMIT TIMER FOR 
NORMAL TEXT AND THE PROGRAM TIMER FOR TRANSPARENT TEXT. 
THE 1130 TRANSMIT TIMER IS NORMALLY SET FOR 1.25 SECONDS AND 
THE PROGRAM TIMER FOR .35 SECONDS- 

10. OLE (1000) MUST BE INSERTED FOLLOWING EACH OLE CHARACTER 
WHICH IS TRANSMITTED AS DATA IN TRANSPARENT TEXT. 



5.1 PROGRAM PHILOSOPHY 

EACH TEST PERFORMED BY THE 1130 TRANSMIT/RECEIVE BSC PROGRAM CAN 
BE DIVIDED INTO TWO SEPARATE TEST PHASES. IN THE FIRST PHASE ONE OF 
THE TERMINALS TRANSMITS A REQUEST-FOR-TEST (RFT) MESSAGE TO REQUEST 
THAT A TEST PROCEDURE BE PERFORMED. THE RFT MESSAGE CONTAINS VARIOUS 
PARAMETERS WHICH DEFINE THE ACTION TO BE PERFORMED AND TEXT TO BE 
USED DURING THE TEST.- DURING THIS PHASE NORMAL BSC ERROR RECOVERY 
IS PERFORMED ON THE RFT MESSAGE. THE SECOND PHASE IS THE ACTUAL 
PERFORMANCE OF THE TEST AS DEFINED BY THE RFT MESSAGE. IF THE X 
FIELD IN THE RFT MESSAGE WAS 00 THEN THE RFT TRANSMITTOR (THE 
REQUESTING TERMINAL) WILL TRANSMIT Y TEST MESSAGES. IF X WAS OTHER 
THAN 00 THEN THE RFT RECEIVER WILL TRANSMIT Y TEST MESSAGES, AND 
THE TEXT CONTAINED IN THE TEST MESSAGE WILL BE DETERMINED BY THE 
X VALUE. NO ERROR RECOVERY WILL BE PERFORMED ON TEST MESSAGES. 

5,1.1 REQUEST-FOR-TEST MESSAGES 

THE REQUEST FOR TEST MESSAGE HAS THE FORMAT.. 



4. 

5. 

6. 
7- 



8. 



S 

% 
H 



X Y 



ADS DEB 

N D L T TEXT L T C 

REX E X C 



WHERE.. 



NOTE.. THE TEXT IS INCLUDED ONLY IF 
X=0l, AND THE OLE CHARACTERS 
ARE INCLUDED ONLY IF TRANSPARENT 
TEXT IS USED. 



SOH« IDENTIFIES THE MESSAGE AS AN RFT MESSAGE 

X IS A FIELD OF TW NUMERIC CHARACTERS (00-99) WHICH DEFINES THE 
ACTION TO BE PERFORMED DURING THE TEST AND/OR SPECIFIES THE 
TEST MESSAGE TO BE USED DURING THE TEST. 

IF X=00 THEN THE RFT TRANSMITTER WILL TRANSMIT THE TEST MESSAGES. 

IF X=01 THEN THE RFT RECEIVER MILL TRANSMIT TEST MESSAGES 
CONTAINING THE TEXT RECEIVED IN THE RFT MESSAGE. 

IF X=02-99 THE RFT RECEIVER WILL TRANSMIT THE TEST MESSAGE SPECIFIED 
BY THE X VALUE. 

Y IS A FIELD OF TWO NUMERIC CHARACTERS (00-99) WHICH SPECIFIES THE 
NUMBER OF TEST MESSAGES TO BE TRANSMITTED. 

THE N AND ADR FIELDS ARE USED FOR COMPONENT SELECTION IN A P-T-P 
CONFIGURATION. IF THE N FIELD IS NOT ZERO, THE COMPONENT SELECT 
CHARACTERS IN THE ADR FIELD WILL BE INSERTED IN PLACE OF THE SYN/SYN 
FOLLOWING THE STX FOR NON-TRANSPARENT MESSAGES (04,14,15,16) 



DATE 
EC NO. 



01APR68 
420411 



15SEP68 
420416 



0iaCT69 
571066 



01JUN70 
571097 



PROG ID 


0317-* 


DATE 


01APR68 


15SEP68 


010CT69 


01JUN70 


PAGE 


9 


EC NO. 


420411 


420416 


571066 


571097 



PROG ID 
PAGE 



03 17-* 
9A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE H30 SYSTEM 
SCA TRANSMIT/RECEIVE BSC POINT-TO-POINT 



PART NO. 2243973 
PAGE 10 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA TRANSMIT/RECEIVE BSC POINT-TO-POINT 



PART NO. 2243973 
PAGE lOA 



5.1.2 TEST MESSAGES 

THE FOLLOWING TEST MESSAGES ARE USED BY THIS PROGRAM 
02-EBCDIC TRANSPARENT TEXT 

S TEXT DEB 
L T 256 CHARACTERS L T C 
E X THROUGH 255 E X C 

04-EBCDIC NORMAL TEXT IMUST BE SELECTED BY PATCH CARD) 



5.1.3 LINE CONTROL 



THE FOLLOHING LINE CONTROL CHARTS SHOW THE NORMAL SEQUENCE OF CONTROL 
AND TEXT CHARACTERS TRANSMITTED BY EACH TERMINAL UNDER VARIOUS 
TEST CONDITIONS. THE EXAMPLES ALL ASSUME A Y VALUE OF ONE. THE OLE 
CHARACTERS ARE OMITTED FOR NON-TRANSPARENT TEXT. THE ACKO AND ACKl 
SHOWN IN THE CHARTS REPRESENT THE COMPLETE POSITIVE ACKNOWLEDGEMENT 
SEQUENCES- ACK 0/1 OR NAK RESPONSES TO TEXT MAY BE PRECEED BY UP 
TO SEVEN LEADING GRAPHIC CHARACTERS. THESE CHARACTERS WILL BE 
PRINTED IN THE TEXT PRINTOUT BUT MILL OTHERWISE BE IGNORED BY THE 
PROGRAM. 



I MUST BE SELECTED BY PATCH CARD) 



S SS TEXT SAME AS 02 EXCEPT E B 
T YY CONTROL CHARACTERS ARE T C 
X NN OMITTED 245 CHARACTERS X C 

12-EBCDIC NORMAL TEXT 

S E TEXT E B 
T S / 36 CHARACTERS T C 
X C A-Z AND 0-9 X C 

13-EBCOIC NORMAL TEXT 

S E TEXT E B 
T S 4 36 CHARACTERS T C 
X C A-Z AND 0-9 X C 

14-EBCOIC NORMAL TEXT IMUST BE SELECTED BY PATCH CARD) 

S SS TEXT E B 
T YY 36 CHARACTERS T C 
X NN A-Z AND 0-9 X C 

15-EBCDIC NORMAL TEXT <MUST BE SELECTED BY PATCH CARD) 

S SS TEXT E B 

T YY 74 CHARACTERS HEX 00 T C 
X NN 6 CHARACTERS SYN X C 

16-EBCDIC NORMAL TEXT 

S SS TEXT E B 

T YY 40 CHARACTERS HEX AA T C 
X NN 40 CHARACTERS HEX 55 X C 



FOR X=00 






RFT 


E 


S 


XMITTER 


N 


0% 


IRTNS 1-7) 


Q 


H 


RFT 




A 


RECEIVER 




CO 


(RTN 8) 




K 


FOR X=01 






RFT 


E 


S 


XMITTER 


N 


0% 


IRTNS 1-7) 


Q 


H 


RFT 




A 


RECEIVER 




CO 


(RTN 8) 




K 



X Y N 



D S D E 

L T TEXT L T 
EX EX 



E 
O 

T 



A 

CI 

K 



ADS E 

X Y N L T TEXT L T 

REX EX 



A 

CO 

L 



E A 
CO 
T K 






A 

CI 

K 


A E 
CI N 
K Q 


D S 
L T 
E X 


TEXT 


E E 
L T 
EX T 



FOR X= 02-99 



RFT 
XMITTER 
IRTNS 1-7) 


E S A S E 
N OXXYNDTT 
Q H R X X 


E A 
CO 
T K 






A 
CI 

K 


RFT 
RECEIVER 
(RTN 8) 


A A 
CO CI 


E 
N 
Q 


D S 
L T 
E X 


TEXT 


E E 
L T 
EX T 



19-EBCOIC TRANSPARENT TEXT 

D S TEXT DEB 

L T 280 CHARACTERS HEX 00 L T C 

E X 10 CHARACTERS SYN E X C 



5.2 ROUTINE DESCRIPTIONS 

RTN I. .ROUTINE I TRANSMITS AN RFT MESSAGE WITH X=00 AND THEN TRANSMITS TEST 
MESSAGE 02 Y TIMES. 

RTN 2-. ROUTINE 2 TRANSMITS AN RFT MESSAGE WITH X=00 AND THEN TRANSMITS TEST 
MESSAGE 16 V TIMES. 

RTN 3.. ROUTINE 3 TRANSMITS AN RFT MESSAGE WITH X=00 AND THEN TRANSMITS TEST 
MESSAGE 19 Y TIMES. 

RTN 4.. ROUTINE 4 TRANSMITS AN RFT WITH X=02 THEN RECEIVES TEST MESSAGE 02 

Y TIMES. 

RTN 5. .ROUTINE 5 TRANSMITS AN RFT WITH X=16 THEN RECEIVES TEST MESSAGE 16 

Y TIMES. 

RTN 6.. ROUTINE 6 TRANSMITS AN RFT WITH X=19 THEN RECEIVES TEST MESSAGE 19 

Y TIMES. 
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RTN 7. .ROUTINE 7 WILL BE EXECUTED ONLY IF SELECTED BY FUNCTION 1. THIS 

ROUTINE NORMALLY HILL TRANSMIT AN RFT MESSAGE WITH X=12 AND RECEIVE 
TEST MESSAGE 12 Y TIMES. THIS ROUTINE HAS ASSOCIATED WITH IT A 52 
WORD TABLE IN CORE STORAGE WHICH MAY BE ALTERED TO PROVIDE RFT 
MESSAGES AMD TEST MESSAGES WHICH ARE NOT PROVIDED BY ROUTINES 1-6. 
THIS TABLE IS ALTERED BY PROGRAM PATCH CARD (SEE DM DESCRIPTION). 
THE FIRST WORD OF THE TABLE CONTAINS THE X VALUE TO BE USED IN THE 
RFT MESSAGE TRANSMITTED BY ROUTINE 7. THIS VALUE IS ENTERED IN 
HEXADECIMAL FORM (FOR X=13 ENTER GOOD). THE SECOND WORD OF THE TABLE 
CONTAINS (IN HEX! THE COUNT OF ALL CHARACTERS INCLUDING CONTROL 
CHARACTERS IN THE TEXT PORTION OF THE TABLE. THE LAST 50 WORDS IN 
THE TABLE CONTAIN THE TEXT WHICH WILL BE USED IN THE TEST MESSAGES 
IF X=00 IS ENTERED, OR IN THE RFT MESSAGE IF X=01 IS ENTERED. IF 
ANY CONTROL CHARACTERS ARE TO BE USED IN THE TEXT OR IF LONG 
REPEATATIVE PATTERNS ARE USED THE TEXT MUST BE TRANSPARENT AND BEGIN 
WITH OLE STX AMD END WITH OLE ETX- IF NORMAL TEXT IS USED IT MUST 
BEGIN WITH STX AND END WITH ETX. THE PROGRAM WILL SUPPLY ALL OTHER 
NECESSARY CONTROL CHARACTERS. THE STARTING ADDRESS OF THE TABLE 
IS 05E8. SEE SECTION 5.2.1 FOR SAMPLE PATCH CARDS. 

♦♦♦WARNING*** ALTERATION OF TABLE WILL ALSO AFFECT OPERATION OF ROUTINE 8. 
SEE RTN 8 DESCRIPTION. 

RTN 8. .ROUTINE 8 IS THE RFT RECEIVER ROUTINE. THIS ROUTINE WILL, WHEN 

SELECTED, CONTINUOUSLY MONITOR THE COMMUNICATIONS LINE UNTIL AN RFT 
MESSAGE IS RECEIVED. IF THE X VALUE IN THE RFT RECEIVED WAS 00 THIS 
ROUTINE WILL THEN ACCEPT Y TEST MESSAGES FROM THE REMOTE TERMINAL. 
IF THE X VALUE WAS 01 THIS ROUTINE WILL TRANSMIT Y TEST MESSAGES 
CONTAINING THE TEXT RECEIVED IN THE RFT MESSAGE. IF THE X VALUE 
WAS 02, 12, 16, OR 19 THIS ROUTINE WILL TRANSMIT THE TEST MESSAGE 
SPECIFIED y TIMES. THIS ROUTINE HAS ASSOCIATED WITH IT A 52 WORD 
TABLE IN CORE STORAGE WHICH MAY BE ALTERED BY PROGRAM PATCH CARD TO 
ALLOW SERVICING OF RFT MESSAGES NOT NORMALLY ACCEPTED BY THE PROGRAM. 
THIS IS THE SAME TABLE WHICH IS USED BY ROUTINE 7 (SEE RTN 7 FOR 
TABLE DESCRIPTION). IF AN RFT MESSAGE IS RECEIVED WHICH CONTAINS 
AN X VALUE WHICH IS EQUAL TO THE X VALUE ENTERED IN THE FIRST WORD 
OF THE TABLE THEN THIS ROUTINE WILL TRANSMIT Y TEST MESSAGES 
CONTAINING THE TEXT ENTERED IN THE TABLE. WITH NO PATCH CARDS 
INSERTED THE TABLE CONTAINS AN X VALUE OF 12 AND TEST MESSAGE 12. 
SEE SECTION 5.2.1 FOR SAMPLE PATCH CARDS- 

***WARNING*** ALTERATION OF TABLE WILL ALSO AFFECT OPERATION OF ROUTINE 7. 
SEE ROUTINE 7 DESCRIPTION. 



5.2.1 SAMPLE PATCH CARDS 

THE FOLLOWING PATCH CARDS MAY BE USED TO ALTER OPERATION OF ROUTINES 
7 AND 8. PUNCH ALL CARDS STARTING IN COLUMN 1. THE C INDICATES A 
12 PUNCH IN COLUMN I. PATCH CARDS MUST BE PLACED AHEAD OF LAST 
CARD IN PROGRAM DECK. 



I2*^?HffnSIL\;2 r*:f?.t!" *5! S"-!!"?;! AND RECEIVE TEST MESSAGE 4. 



X=04. IF THIS PATCH 



♦♦♦CAUTION*^* RTN 8 CANNOT BE HADE TO ACCEPT AN RFT WITH a=u, i^ imis PAT^^ 
SJfoNi PA%'^hTaRD.!!^'-'- '''"'"''' ^'"^°'^^°"^ '''' "^^^"^^^ IF x:04^ is' receive". 
E05E8 0004 

In rt?,^l ol^ ^ ^° TRANSMIT AN RFT WITH X=14 AND RECEIVE TEST MESSAGE 14, AND 
IsE TWO pStChMSds""" *" "" """ '='^ *^" ^''*^''^^' TEST MEsIaJe li!' *'"' 

rnspf It^l 2?cf °dll l^^^ ^^" ^^5 ^"-^ <^8C9 0102 O'D^^ D5D6 0708 D9E2 E3E4 
605F6 E5E6 E7E8 E9F0 F1F2 F3F4 F5F6 F7F8 F903 

Tn r?Mc! oir* ^ ^° TRANSMIT AN RFT WITH X=15 AND RECEIVE TEST MESSAGE 15. AND 

rn«f n?.?,l ««^t °^^^ ^^°° °°°° °°°° °°°0 0000 0000 0000 0000 0000 0000 0000 
loTcl nnnn nnnn nnnn n^S« '"'°° °°°° °°°° °°00 0000 0000 0000 0000 0000 0000 
£06?2 S??2 Izol °°°° °°°° °°°° °°°° °°°° °°°° °°°° °°°° 0032 3232 

TO CAUSE RTN 7 TO TRANSMIT AN RFT WITH X=00 THEN TRANSMIT Y TEST nP^^trP^ 
CONTAINING A SCOPING PATTERN OF 80 HEX AA CHARACTERS- MESSAGES 

RTN 8 WILL NORMALLY ACCEPT ANY RFT WITH X=00 AND WILL ACCEPT ANY TEST HF^«;ArF<: 

iz'sr^i rs iiikr^t. TAv,v>,'z.r ™"^ "-" "«" °« «- i"i:nir.' 

USE FOUR PATCH CARDS.. 

mil AAAA aaIa mi 4*it "A'!:'!: tT **** **** **** ""'"' **** *«** **** ^aaa 

r«!^f t^t? t * **** **** **** **** *A** **AA AAAA AAAA AAAA AAAA AAAA AAAA 

lit^z j;;; ?;;; *''** **** **** **** **** **** **** **** **** **** a!;; ;;Ia 

TO CAUSE RTN 7 TO TRANSMIT AN RFT WITH X=01 AND RECEIVE TEST MESSAGES 
CONTAINING A SCOPING PATTERN OF 80 HEX AA CHARACTERS. "ESSAGES 
RTN 8 WILL NORMALLY ACCEPT ANY RFT WITH X=01 AND WILL TRAN<;mit TF<:t MEcc/ircc 
CONTAINING THE TEXT RECEIVED IN TH RFT. THE ONLY AFFECT SftIeIIpaIchCARD^: 
ON RTN 8 WILL BE TO CAUSE RTN 8 TO REJECT AN RFT WITH xli?! ^ 

USE FOUR PATCH CARDS.. 

rn^lf ?*?i »»»t l°.°J *••* **** **** AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA 
roAftt AA "AAA tttt **'^* **** **** **** AAAA AAAA AAAA AAAA AAAA AAAA AAAA 
lotTz AAA f;j5 **^* AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA 



TO CAUSE RTN 7 TO TRANSMIT AN RFT WITH X=13 AND RECEIVE TEST MESSAGE 13, AND 
TO CAUSE RTN 8 TO ACCEPT AN RFT WITH X=13 AND TRANSMIT TEST MESSAGE 13 
USE ONE PATCH CARD.. 

605E8 OOOD 0028 0227 F4C1 
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APPENDIX 

6.1 BINARY SYNCHRONOUS COMMUNICATIONS CONTROL CHARACTERS 



6.2 BINARY SYNCHRONOUS COMMUNICATIONS CONTROL SEQUENCES 



HEX 




MEANING 



. SYNCHRONOUS IDLE 

. DATA LINK ESCAPE 

. ENQUIRY 

'. START OF HEADING 

I START OF TEXT 

. END OF BLOCK 

. END OF TEXT 

'. INTERMEDIATE BLOCK CHARACTER 

I END OF TRANSMISSION 

I NEGATIVE ACKNOWLEDGEMENT 

I POSITIVE ACKNOWLEDGEMENT, EVEN RECORD {CONTROL 
. CHARACTER ONLY IF IN CONTROL SEQUENCE—SEE 6.2» 

'. POSITIVE ACKNOWLEDGEMENT, ODD RECORD (CONTROL 
. CHARACTER ONLY IF IN CONTROL SEQUENCE—SEE 6.21 



7C 



REVERSE INTERRUPT {CONTROL CHARACTER ONLY IF 
IN CONTROL SEQUENCE— SEE 6.21 



6B . WAIT BEFORE TRANSMIT-POSITI VE ACK (CONTROL 

. CHARACTER ONLY IF IN CONTROL SEQUENCE — SEE 6.2} 



BSC 
SEQUENCE 



FUNCTION 



SYN SYN . SYNCHRONOUS IDLE NORMAL 
OLE SYN '. SYNCHRONOUS IDLE TRANSPARENT TEXT 
ENQ . ENQUIRY 
SOH . START OF HEADING 
STX '. START OF NORMAL TEXT 
DLE STX '. START OF TRANSPARENT TEXT 
ETB BCC '. END OF HEADING OR NORMAL TEXT BLOCK 
ITB BCC I END OF HEADING OR NORMAL TEXT INTERMEDIATE BLOCK 
ETX BCC '. END OF HEADING OR NORMAL TEXT 
OLE ETB BCc! END OF TRANSPARENT TEXT BLOCK 
DLE ITB BCcI END OF TRANSPARENT TEXT INTERMEDIATE BLOCK 
DLE ETX BCc! END OF TRANSPARENT TEXT 

DLE ACKO '. POSITIVE ACKNOWLEDGEMENT EVEN RECORD 
OLE ACKl I POSITIVE ACKNOWLEDGEMENT ODD RECORD 
DLE RVI . REVERSE INTERRUPT 
STX ENQ . TEMPORARY TEXT DELAY (TTD» 
NAK I NEGATIVE ACKNOWLEDGEMENT 
EOT . END OF TRANSMISSION 
DLE EOT . DISCONNECT SIGNAL 
OLE WACK ', POSITIVE ACKNOWLEDGEMENT BUSY RESPONSE 
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0150 

0151 

0162 

0163 
0154 



0165 

0166 

0167 

0168 



017A 
01 8A 
01 9A 
OlAA 
OIBA 
OIBB 
01 BC 
OIBO 



05DC 



***** PROGRAM ID 0317 

* EQUATE TABLE 

* THIS TABLE EQUATES TEST PROGRAM LABELS 

* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* ADDRESSES. 

* 

* MONITOR ENTRY ADDRESSES 

* 



/0160 BEGIN ROUTINE 

BEGINEl SUPERVISOR ROUTINE 

STARTSl ERROR LOG ROUTINE 

ERRORei STATUS LOG ROUTINE 

LOGEl END ROUTINE 



MONITOR CONTROL WORD ADDRESSES 



ROUTINE START SW 
LOCK ON ERROR CONTROL 
I/O BUSY SM ADORS 
RELOCATION FACTOR AODRS 



BEGIN ECU 
START EQU 
ERROR EQU 
LOG EQU 
END EQU 
* 

« — .^ 

* 
* 

RTNSW EQU END£1 

ERLCK EQU END£2 

LOGBY EQU END£3 

RLCF EQU ENDe4 

* 

* INTERRUPT TRANSFER VECTOR ADDRESSES 

* : 

ILO EQU /017A INTERRUPT LEVEL ZERO 

ILl ECU IL0C16 INTERRUPT LEVEL ONE 

IL2 EQU IL1C16 INTERRUPT LEVEL TWO 

IL3 EQU IL2C16 INTERRUPT LEVEL" THREE 

IL4 EQU IL3ei6 INTERRUPT LEVEL FOUR 

RQTY EQU IL4£1 CONSOLE PRINTER REQUEST 

RQKB EQU RQTYCl USE KEYBOARD REQUEST 

SVKB EQU RQKBSl KB SERVICE REQUEST 
* 

ORG *£/05DC 

* THE MONITOR USES CORE LOCATIONS 0-050C. 

* FOR CONTENTS OF THESE ADDRESSES REFER 

* TO THE DIAGNOSTIC MONITOR LISTING. 

* PROGRAM CONTROL TABLE 

* 

PROGRAM ID 
ROUTINE ID 
ROUTINE ADDRESS 
PROGRAM CONTROL 
ROUTINE SELECTION 
OPERATING OPTIONS 
Y VALUE FOR RFT 
LOOP ADDRESS 
RESTART ADDRESS 
MONITOR ENTRY ONE 
MONITOR ENTRY TWO 

TERMINATOR 

* 

* TEST MESSAGE TEXT 

* THIS TABLE DEFINES THE X VALUE TO BE 

* USED IN THE RFT MESSAGE WHICH IS 

* TRANSMITTED BY TEST ROUTINE 7. 



05DC 0317 


PiO 


DC 


/0317 


05DD 0000 


RID 


DC 


*-* 


05DE 0000 


RAD 


DC 


*-* 


05 DF 0000 


SWO 


DC 


*-* 


05E0 0000 


SWl 


DC 


♦-* 


05E1 0000 


SH2 


DC 


*-* 


05E2 0001 


SW3 


DC 


/OOOl 


05E3 1 062A 




DC 


STRT 


05E4 I 062A 




DC 


STRT 


05E5 0000 


MLSCF 


DC 


*-* 


05E6 0000 




DC 


*-* 


05E7 FFFF 




DC 


/FFFF 



DATE 
EC NO. 



01APR68 
420411 



I5SEP68 
420416 



010CT69 
571066 



01JUN70 
571097 



31700020 

31700030 

31700040 

31700050 

31700060 

31700070 

31700080 

31700090 

31700100 

31700110 

31700120 

31700130 

31700140 

31700150 

31700160 

31700170 

31700180 

31700190 

31700200 

31700210 

31700220 

31700230 

31700240 

31700250 

31700260 

31700270 

31700280 

31700290 

31700300 

31700310 

31700320 

31700330 

31700340 

31700350 

31700360 

31700370 

31700380 

31700390 

31700400 

31700410 

31700420 

31700430 

31700440 

31700450 

31700460 

31700470 

31700480 

31700490 

31700500 

31700510 

31700520 

31700530 

31700540 

31700550 

31700560 

31700570 

31700580 

31700590 

31700600 

31700610 

31700620 

31700630 

31700640 

31700650 

31700660 

31700670 

31700680 

31700690 



PROG ID 
PAGE 



05E8 

05E9 

05EA 

05EB 

05EC 

05ED 

05EE 

05EF 

05F0 

05F1 

05F2 

05F3 

05F4 

05F5 

05F6 

05F7 

05F8 

05F9 

05FA 

05FB 

05FC 

05FD 

05FE 

061C 

061D 

061E 

0626 



oooc 

0028 

0227 

61C1 

C2C3 

C4C5 

C6C7 

C8C9 

D1D2 

0304 

D5D6 

D7D8 

09E2 

E3E4 

E5E6 

E7E8 

E9F0 

F1F2 

F3F4 

F5F6 

F7F8 

F903 

00 IE 

FFFF 

0010 

0008 

7000 



0627 4480 0160 

0629 1 05DC 

062A 1 6700 OCOl 
062C 6F00 0189 
062E 6300 
062F 6BAD 

0630 1 6F00 0E15 



* IF 


THIS RFT MSG 


IS RECEIVED BY TEST 


* ROUTINE 8, THE 


TEST MESSAGE CONTAINED 


* IN 

* 


THIS TABLE WILL BE 


TRANSMITTED. 


XSPEC DC 




/OOOC 


X=12 


DC 




40 


CHARACTER COUNT 


DC 




/0227 


STX ESC 


DC 




/61C1 


/ 


A 


DC 




/C2C3 


B 


C 


DC 




/C4C5 





E 


DC 




/C6C7 


F 


G 


DC 




/C8C9 


H 


I 


DC 




/DID2 


J 


K 


DC 




/D3D4 


. L 


M 


DC 




/D5D5 


N 





DC 




/D7D8 


P 


Q 


DC 




/D9E2 


R 


S 


DC 




/E3E4 


T 


u 


DC 




/E5E6 


V 


w 


DC 




/E7Ee 


X 


Y 


DC 




/E9F0 


z 





DC 




/F1F2 


1 


2 


DC 




/F3F4 


3 


4 


DC 




/F5F6 


5 


6 


DC 




/F7F8 


7 


8 


OC 




/F903 


9 


ETX 


BSS 




30 






DIAL DC 




/FFFF 


DIAL-UP SWITCH 


lORSP DC 




16 


CHARACTER COUNT FOR 


EBC 




.1130BSCAPTP0IAG. 


OC 




/7000 






♦ ****************#»***#»##;^,^^^^^^^^^^^^,^^^^ 


* 




INITIALIZE AND 


START 




BGIN BSI 


I 


BEGIN 






DC 

4c 




PIO 


PCT 


ADDRESS 


STRT LOX 


L3 


INT 






STX 


L3 


ILl-1 






LDX 


3 





SET 


TO START AT 


STX 


3 


RID 


ROUTINE ONE 


STX 


L3 


RTBSY 


RESET INT RTN BUSY II 



* ROUTINE SEQUENCE CONTROL 

* THIS ROUTINE CHECKS PROGRAM OPTIONS 

* AND CONTROLS THE SEQUENCE IN WHICH 

* TEST ROUTINES ARE EXECUTED. 



INITIALIZE SELECT CHAR 



317-0 
I 





0532 

0534 
0636 
0638 
0639 
063B 


1 
1 
1 

1 



C400 
D400 
C400 
lOOA 
D400 
1001 


0E39 
0E82 
05E1 

0E28 


CNTRL 


LD 

STO 

LD 

SLA 

STO 

SLA 


L 

L 
L 

L 


SYSYN 

SELCT 

SW2 

10 

lOFLG : 

1 1 




063C 
063E 




1 


6700 
4C28 


IFFE 
0542 




LOX 
BSC 


L3 

L 


/IFFE 
**2,*Z ( 




0640 





6700 


OFFE 




LDX 


L3 


/FFE 




0642 
0644 
0645 


1 



I 


6F00 
1004 
ECOO 


OEIF 
05E0 




STX 

SLA 
OR 


L3 
L 


TOP « 
4 ( 
SWl 


DATE 
EC NO. 


01APR68 15SEP68 
420411 420416 


010CT69 
571066 


01JUN70 
571097 



SAVE 10 INDICATOR 
CK OPTION SWITCH 

BR IF OVER 4K 



SET HIGH CORE LIMIT 
CK OPTION SWITCH 



31700700 

31700710 

31700720 

31700730 

31700740 

31700750 

31700760 

31700770 

31700780 

31700790 

31700800 

31700810 

31700820 

31700830 

31700840 

31700850 

31700860 

31700870 

31700880 

31700890 

31700900 

31700910 

31700920 

31700930 

31700940 

31700950 

31700960 

31700970 

31700980 

31700990 

31701000 

31701010 

31701020 

31701030 

31701040 

31701050 

31701060 

31701070 

31701080 

31701090 

31701100 

31701110 

31701120 

31701130 

31701140 

31701150 

31701160 

31701170 

31701180 

31701190 

31701200 

31701210 

31701220 

31701230 

31701240 

31701250 

31701260 

31701270 

31701280 

31701290 

31701300 

31701310 

31701320 

31701330 

31701340 

31701350 

31701360 

31701370 



PRGG ID 
PAGE 



0317-0 
lA 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
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0647 1 D400 0E2A 

0649 1 4C10 064E 

0646 6308 
064C 6B90 
064D 7015 

064E 1 C400 05E0 

0650 1 4C08 065C 

0652 1 D400 05DD 

0654 9024 

0655 1 4C08 0663 

0657 1810 

0658 1 D400 05EO 
065A 1 0400 05DD 

065C 1 7401 05DO 

065E 1 C400 05DD 

0660 9019 

0661 44B0 0164 

0663 1 6780 0500 
0665 1 C7O0 0670 
0667 1 0400 050E 
0669 0400 0165 
066B 1 6700 068D 
066D 1 6F00 05E5 
066F 4480 0161 



0671 




06BC 


0672 




06C3 


0673 




06CA 


0674 




06D4 


0675 




06D6 


0676 




0608 


0677 




06E2 


0678 




06EC 


0679 





0008 


067A 





0006 



067B 
067C 
067E 
067F 
0680 
0681 
0682 
0683 
0684 
0685 
0686 
0688 
06 89 
068B 



0000 

C480 067B 

1888 

C0A5 

1808 

18D8 

00A2 

E3E7 

F3EF 

0097 

4400 0911 

8610 
1 7404 0678 
1 4C80 067B 



« 
CNOO 

* 
CNIO 



* 
CN20 



* 
CN30 



STO 
BSC 

LDX 
STX 

MOX 

LO 

BSC 

STO 

s 

BSC 

SRA 
STO 
STO 

HDX 
CD 
S 
BSI 

LOX 

LD 

STO 

STO 

LDX 

STX 

BSI 



L OPTIN 
L CNOO,- 

3 8 

3 RID 
CN30 



SWl 

CN20,E 



L RID 

RIDCK 
L CN30,6 

16 
L SWl 
L RID 

L RID,€1 
L RIO 

RTNOM 
I EN0,-2 

13 RIO 
L3 RTTBL-1 
L RAO 
L RTNSH 
L3 CLEAR 
L3 MLSCF 
I START 



SAVE RTN NO AND OPTION 
BR IF RFT XMITTER 



SELECT RTN 8 

BR IF NO RTN SELECTED 
SAVE NEW RTN NUMBER 
BR IF VALID RTN 



IF INVALID RTN 
GO TO RTN ONE 

ADVANCE TO NEXT RTN 
CHECK FOR END OF 
NORMAL SEQUENCE 
END PROGRAM 



FETCH RTN ADDRS 

STORE RTN AODR 

SET RTN START SWITCH 

SET MONITOR RETURN 
GO TO MONITOR 



* 



ROUTINE ADDRESS TABLE 



RTTBL DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



NRTN 



I 



LRTN 

* 

RIDCK DC 

RTNOM DC 

* 

* 
* 
************ 

* 

XMTIO DC 
LD 
SRT 

LO 

SRA 

RTE 

STO 

AND 

EOR 

STO 

BSI 

DC 

MDX 

BSC 



RTNl 
RTN2 
RTN3 
RTN4 
RTN5 
RTN6 
RTN7 
RTN8 



XMIT RFT X 00 


TM 02 


XMIT RFT X 00 


TM 16 


XMIT RFT X 00 


TM 19 


XMIT RFT X 02 




XMIT RFT X 16 




XMIT RFT X 19 





XMIT RFT SPECIAL 
RFT RECEIVER RTN 



LRTN-RTTBL£1 
NRTN-RTTBL£1 

********************************* 
COMBINE ENQ OR ACKO WITH ID 
HEADER AND REQUEST XHRCV 

********************************* 



*-* 

XMTID 

8 

lORSPSB 

8 

24 

IDRSPE8 

HOOOl-T 

HOOU-T 

IDRSP 

XMRCV 



ENQ OR ACKO CMD 

LAST ID HEADER CHAR 

COMBINE CMD WITH ID CHAR 
AND SAVE 



* 



OR CHAR CNT ENQ =16 
AND SAVE ACK =17 

XMIT ENQ OR ACKO 
IDRSPS/8000 AND RECEIVE ACK OR RFT 
XMTIDt4 INCREMENT TO RETURN EXIT 
XMTID RETURN 

*****t************************** 
CLEAR END OF TEST PRINT TABLE 



31701380 
31701390 
31701400 
31701410 
31701420 
31701430 
31701440 
31701450 
31701460 
31701470 
31701480 
31701490 
31701500 
31701510 
31701520 
31701530 
31701540 
31701550 
31701560 
31701570 
31701580 
31701590 
31701600 
31701610 
31701620 
31701630 
31701640 
31701650 
31701660 
31701670 
31701680 
31701690 
31701700 
31701T10 
31701720 
31701730 
31701740 
31701750 
31701760 
31701770 
31701780 
31701790 
31701800 
31701810 
31701820 
31701830 
31701840 
31701850 
31701860 
31701870 
31701880 
31701890 
31701900 
31701910 
31701920 
31701930 
31701940 
31701950 
31701960 
31701970 
31701980 
31701990 
31702000 
31702010 
31702020 
31702030 
31702040 
31702050 











******************************************** 


31702060 










* 










31702070 


0680 


1 


6700 


0E80 


CLEAR 


LOX 


L3 


T 


XR3)»C0NSTANT TABLE ADDRS 


31702080 


068F 


1 


4400 


07D7 




BSI 


L 


INITL 


INITIALIZE ACKO/ACKl 


31702090 


0691 





6314 






LOX 


3 


20 


CLEAR END OF 


31702100 


0692 





1010 






SLA 




16 


TEST 


31702110 


0693 


1 


D700 


0E86 




STO 


L3 


TABLE-1 


MESSAGE 


31702120 


0695 





73FF 






MDX 


3 


-1 


TABLE 


31702130 


0696 





70FC 






MDX 




*-4 




31702140 


0697 


1 


D400 


0F4O 




STO 


L 


ENTBL 




31702150 


0699 


1 


0400 


0F41 




STO 


L 


ENTBL+1 




31702160 


069B 


1 


6700 


0E80 




LDX 


L3 


T 


XR3=C0NSTANT TABLE ADDRS 


31702170 


069D 





03A7 






STO 


3 


ERRNO-T 


RESET ERROR IND 


31702180 


069E 





D3A3 






STO 


3 


TMXMI-T 


RESET TEST MSG XMlt IND 


31702190 


069F 





03A2 






STO 


3 


TMRCI-T 


RESET TEST MSG RCV IND 


31702200 


06AO 





C3AC 






LD 


3 


ENADR-T 




31702210 


06A1 





03A1 






STO 


3 


ENPNT-T 




31702220 


06A2 





03A0 






STO 


3 


CNTPT-T 




31702230 


06A3 





D3AD 




* 


STO 


3 


ENPT2-T 




31702240 
31702250 










******************************************** 


31702260 










* 






WAIT FOR 


DATA SET READY 


31702270 










******************************************** 


31702280 










* 










31702290 


06A4 





C3FB 




GTRDY 


LD 


3 


H7000-T 




31702300 


06A5 





D399 






STO 


3 


WTCNT-T 


SET DELAY COUNTER 


31702310 


06A6 





OBBC 






XID 


3 


ENDOP-T 


END SCA OPERATION 


31702320 


06A7 





0BC6 






XIO 


3 


STRED-T 


START READ 


31702330 


06A8 





OBDO 






XIQ 


3 


SENSE-T 


SENSE SCA OSW 


31702340 


06A9 





1808 






SRA 




8 


GO TO SELECTED ROUTINE 


31702350 


06AA 


1 


4C84 


050E 


* 


BSC 


I 


RAD.E 


IF DATA SET READY 


31702360 
31702370 


06AC 


1 


74FF 


0E19 




MDX 


L 


WTCNT,-1 


DECRE COUNT BY ONE 


31702380 


06AE 





7004 






MDX 




♦♦4 


BR IF COUNT NOT ZERO 


31702390 


06AF 





6201 






LDX 


2 


1 


XR2=HSG NUMBER 


31702400 


06B0 


1 


4400 


0983 




BSI 


L 


TYPIT 


GO PRINT MSG 


31702410 


06B2 





70F1 




* 


MDX 




GTRDY 


GO CK READY AGAIN 


31702420 
31702430 


06B3 


1 


6700 


06B9 




LDX 


L3 


CKRDY 




31702440 


06B5 


1 


6F00 


05E5 




STX 


L3 


MLSCF 


SET MONITOR RETURN 


31702450 


06B7 





4480 


0161 


* 


BSI 


I 


START 


GO TO MONITOR 


31702460 
31702470 


06B9 


1 


6700 


0E80 


CKRDY 


LDX 


L3 


T 


XR3#C0NSTANT TBL ADOR 


31702480 


06BB 





70EA 




* 


HDX 




GTRDYS2 




31702490 

31702500 










******************************************** 


31702510 










* 






TEST ROUTINE 1 


31702520 










******************************************** 


31702530 










* 










31702540 


06BC 





1010 




RTNl 


SLA 




16 


X VALUE 00 


31702550 


06BD 


1 


4400 


0A60 




BSI 


L 


GNRFT 


GO GENERATE RFT MSG 


31702560 


06BF 


1 


4400 


07FC 




BSI 


L 


XMRFT 


GO XMIT RFT MSG 


31702570 


06C1 





C3E5 






LD 


3 


H0002-T 


TEST MSG NO. 02 


31702580 


06C2 





7000 




* 


MDX 




RTN3*6 




31702590 
31702500 










******************************************** 


31702610 










* 






TEST ROUTINE 2 


31702620 










******************************************** 


31702630 










* 










31702640 


06C3 





1010 




RTN2 


SLA 




16 


X VALUE 00 


31702650 


06C4 


1 


4400 


0A60 




BSI 


L 


GNRFT 


GO GENERATE RFT MSG 


31702660 


06C6 


1 


4400 


07FC 




BSI 


L 


XMRFT 


GO XMIT RFT MSG 


31702670 


06C8 





C3CE 






LD 


3 


016-T 


TEST MSG NO. 16 


31702680 


06C9 





7006 




* 


MOX 




RTN3+6 




31702690 
31702700 










******************************************** 


31702710 










* 






TEST ROUTINE 3 


31702720 










******************************************** 


31702730 



DATE 
EC NO. 



0IAPR6B 
420411 



15SFP68 
420416 



01QCT69 
571066 



01JUN70 
571097 



PROG ID 


0317-0 


DATE 


01APR68 


15SEP68 


010CT69 


01JUN70 


PAGE 


2 


EC NO. 


420411 


420416 


571066 


571097 



PROG ID 
PAGE 



0317-0 
2A 
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06CA 1010 
06CB 1 4400 0A60 
06CD 1 4400 07FC 
06CF C3D0 

06D0 1 4400 0AB3 
06D2 1 4C00 0856 



06D4 C3E5 
0605 7003 



16 

L GNRFT 

L XMRFT 

3 D19-T 

L GNTM 
L XMTMl 



X VALUE 00 
GO GENERATE RFT HSG 
GO XMIT RFT MSG 
TEST MSG NO. 19 

GO GENERATE TEST MSG 
GO XMIT TEST MSGS 



0505 C3CE 

0607 7001 



06D8 C3D0 



0609 1 4400 0A60 
060B 1 4400 07FC 



06 OD 
060F 



4400 0911 
0E62 



06E0 1 4C00 0892 



06E2 1 C400 05E8 
06E4 1 4C20 06D9 

06E6 1 4400 0A60 
06E8 1 4400 07FC 
06EA 1010 
06EB 70E4 



RTN3 SLA 

BSI 

BSI 

LD 
* 

BSI 

BSC 
* 

* TEST ROUTINE 4 

* 

RTN4 LD 3 H0002-T X VALUE 02 
HDX RTN6*l 

* TEST ROUTINE 5 

* 

RTN5 LO 3 D16-T X VALUE 16 
HDX RTN6+1 

* 

* TEST ROUTINE 6 

* 

RTN6 LD 3 D19-T 

♦ 

BSI L GNRFT 

BSI L XMRFT 

BSI L XMRCV 

DC EOTCT 

BSC L RCVTM 
* 

* TEST ROUTINE 7 

* 



X VALUE 19 

GO GENERATE RFT HSG 
GO XMIT RFT MSG 
TRANSMIT EOT 

GO RECEIVE TEST MSGS 



XSPEC 
RTN6+l,2 

GNRFT 
XMRFT 
16 
RTN3+6 



GET X VALUE 
BR IF X NOT 00 

GO GENERATE RFT MSG 
GO XMIT RFT MSG 



RTN7 LD 
BSC 

BSI 
BSI 
SLA 

MOX 

* TEST ROUTINE 8 

* 

RECEIVE 



BR IF NOT ENQ RECEIVED 

SET RETRY=7 

SET WACK CTR = 25 



06EC 


1 


4400 


0911 


RTN8 


BSI 


L 


XMRCV 


06EE 





8000 






DC 




/8000 


06EF 





C310 






LO 


3 


RAREA61 


06F0 





F3E8 






EOR 


3 


ENQ-T 


06FI 


1 


4C20 


06F8 


* 


BSC 


L 


*+5,Z 


06F3 





C3CA 




LD 


3 


H0007-T 


06F4 





D398 






STO 


3 


RETRV-T 


06F5 





C3F0 






LD 


3 


D25-T 


06F6 





D3A9 






STO 


3 


REWAK-T 


06F7 





7006 




* 


MOX 




XMACK 


06F8 





6100 




LDX 


1 





06F9 





6202 






LOX 


2 


2 


06FA 


1 


4400 


079F 




BSI 


L 


CKRTR 


06FC 


1 


4C00 


0691 




BSC 


U 


CLEAR64 



XR2=HSG NUMBER 

GO CHECK RETRY COUNT 



31702740 

31702750 

31702760 

31702770 

31702780 

31702790 

31702800 

31702810 

31702820 

31702830 

31702840 

31702850 

31702860 

31702870 

31702880 

31702890 

31702900 

31702910 

31702920 

31702930 

31702940 

31702950 

31702960 

31702970 

31702980 

31702990 

31703000 

31703010 

31703020 

31703030 

31703040 

31703050 

31703060 

31703070 

31703080 

31703090 

31703100 

31703110 

31703120 

31703130 

31703140 

31703150 

31703160 

31703170 

31703180 

31703190 

31703200 

31703210 

31703220 

31703230 

31703240 

31703250 

31703260 

31703270 

31703280 

31703290 

31703300 

31703310 

31703320 

31703330 

31703340 

31703350 

31703360 

31703370 

31703380 

31703390 

31703400 

31703410 



06FE C3A8 
06FF 1 4428 067B 

0701 1010 

0702 1 4400 0911 

0704 1 8E65 

0705 C391 

0706 F3F6 

0707 1 4C18 0725 

0709 I 7400 0E06 
070B 701B 

070C C31D 
0700 F3E8 
070E 1 4C18 0721 

0710 1 4400 07EC 

0712 610D 

0713 6203 

0714 1 4400 079F 
0716 1 4400 0911 

0718 8000 

0719 C31D 
071A F3E8 
071B 1 4C18 06FE 

071D 1 4400 07EC 

071F 610E 

0720 70F3 

0721 610B 

0722 6203 

0723 407B 

0724 70D9 

0725 610C 

0726 70ED 

0727 1810 

0728 D3A8 

0729 C387 
072A 1 4C18 072E 

072C 610F 
072D 7063 

072E C31D 
072F F3DF 

0730 I 4C18 0734 

0732 6110 

0733 7063 

0734 C31E 

073 5 1 4400 07CD 

0737 D30C 

0738 93D2 

0739 1 4C08 073D 

073B 6111 
073C 705A 

073D C30C 
073E 1 9400 0E3C 
740 1 4C18 0748 



XMACK LD 
BSI 
SLA 

* 

BSI 
DC 
LD 
EOR 
BSC 
* 

MDX 
MDX 

* 

LO 

EOR 

BSC 



3 IDFLG-T 
L XMTID.ZS 
/lO 



ID REQUIRED FLAG 

GO XMIT ID IF REQUESTED 

ACK CMD IF NEEDED 



LOX 
LOX 
BSI 
RCENQ BSI 
DC 
LD 
EOR 
BSC 



LDX 

HDX 

* 

ENQRC LDX 
LDX 
BSI 
HDX 

* 

TMOT LOX 
MDX 

TEXTR SRA 
STO 
LD 
BSC 

LDX 

MDX 

* 

LD 

EOR 

BSC 

LDX 

MOX 

* 

LD 

BSI 

STO 

S 

BSC 

LOX 
HDX 

LO 
S 

BSC 



L XMRCV TRANS ACK WITHOUT ID 
LSTAKE/BOOO AND RECEIVE RFT 

3 BUFFR-T 

3 HFFFF-T 
L TMOT.E- 



L MOSWT 
TEXTR 

3 RAREA61-T 
3 ENQ-T 
L ENQRC, 6- 



BSI L EOTCK 



1 /D 

2 3 

L CKRTR 

L XMRCV 

/8000 

3 RAREA61-T 
3 ENQ-T 

L XMACK, 6- 



BSI L EOTCK 



1 /E 

RCENQ-2 

1 /B 

2 3 

CKRTR 
XMACK 

1 /C 

RCENQ-2 

16 

3 IDFLG-T 
3 ERR-T 

L *+2,+- 

1 /F 

XMNAK 

3 RAREA£1-T 
3 SOHPC-T 
L *+2,+- 

1 /lO 

BDRFT 



BR IF RECV TIMEOUT 

SKIP IF NO TEXT RCVD 
BR IF TEXT RECEIVED 



BR IF ENQ RECEIVED 
GO CK FOR EOT RCVO 



XR2=HESSAGE NUMBER 
GO TO CK RETRY 
RECEIVE 



BR IF ENQ RECEIVED 
GO CK FOR EOT RECVD 



XR2=MESSAGE NUMBER 
GO TO CK RETRY 



RESET ID REQ FLAG 
BR IF NO TEXT ERRORS 



BR IF RFT MESSAGE 



3 RAREA£2-T GET X FROM RFT MSG 
CONVERT TO BINARY 
PUT IN PRINT TABLE 



BR IF X NOT OVER 99 



L DTB 

3 TA8LE+5-T 

3 D99-T 
L *+2,+ 

I /ll 

BDRFT 



3 TABLE+5-T GET X 
L 014 
L CKESC,+- BR IF X IS 14 



31703420 

31703430 

31703440 

31703450 

31703460 

31703470 

31703480 

31703490 

31703500 

31703510 

31703520 

31703530 

31703540 

31703550 

31703560 

31703570 

31703580 

31703590 

31703600 

31703610 

31703620 

31703630 

31703640 

31703650 

31703660 

31703670 

31703680 

31703690 

31703700 

31703710 

31703720 

31703730 

31703740 

31703750 

31703760 

31703770 

31703780 

31703790 

31703800 

31703810 

31703820 

31703830 

31703840 

31703850 

31703860 

31703870 

31703880 

31703890 

31703900 

31703910 

31703920 

31703930 

31703940 

31703950 

31703960 

31703970 

31703980 

31703990 

31704000 

31704010 

31704020 

31704030 

31704040 

31704050 

31704060 

31704070 

31704080 

31704090 
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0742 93E7 




S 


3 HOOOl-T 




31704100 






0743 1 4C18 0748 




BSC 


L CKESC, ♦- 


BR IF X IS 15 


31704110 






0745 93E7 




S 


3 HOOOl-T 




31704120 






0746 1 4C20 076C 




BSC 


L NTSPC.Z 


BR IF X NOT 16 


31704130 






0748 C3B9 


CKESC 


LD 


3 SYSYN-T 




31704140 






0749 0302 




STO 


3 SELCT-T 


INITIALIZE SELECT LOC. 


31704150 






074A CB20 




LOO 


3 RAREA+4-T 


GET N CHARACTER 


31704160 






0748 1084 




SLT 


4 


TRUNCATE ZONE 


31704170 






74C 188C 




SRT 


12 


POSITION N CHAR 


31704180 






074D 1 4C18 0758 




BSC 


L NOESC, +- 


BR IF N IS ZERO 


31704190 






074F 93E7 




S 


3 HOOOl-T 


CHECK FOR TWO SEL CHAR 


31704200 






0750 1 4C20 0756 




BSC 


L ESC2.Z 


BR IF TWO SEL CHAR 


31704210 






0752 1088 




SLT 


8 


BRING IN ONE SEL CHAR 


31704220 






0753 1008 




SLA 


8 


POSITION SEL CHAR 


31704230 






0754 EBOO 




OR 


3 KSYN-T 


ADO SYN CHAR 


31704240 






0755 7001 




MOX 


ESC2+1 


GO SET SEL CHAR 


31704250 






756 1090 


ESC2 


SLT 


16 


BRING IN 2 SEL CHAR 


31704260 






0757 D302 




STO 


3 SELCT-T 


PUT IN SELECT LOC. 


31704270 






758 C30C 


NOESC 


LD 


3 TABLE*5-T 


GET X 


31704280 






0759 1 F400 05E8 




EOR 


L XSPEC 




31704290 






075B 1 4C20 076C 




BSC 


L NTSPCZ 


BR IF NOT XSPEC 


31704300 






0750 C302 




LD 


3 SELCT-T 


GET SELECT CHAR 


31704310 






075E 1890 




SRT 


16 


SELECT CHAR TO Q 


31704320 






075F 1 C400 05EA 




LD 


L XSPEC+2 


GET STX 


31704330 






0761 1808 




SRA 


8 


POSITION STX 


31704340 






0762 1088 




SLT 


8 


ADD ESC OR SYN 


31704350 






0763 1 D400 05EA 




STO 


L XSPEC+2 


PUT IN MESSAGE 


31704360 






0765 1888 




SRT 


8 


POSITION SELECT CHAR 


31704370 






0766 1 C400 05E6 




LO 


L XSPEC*3 


GET MSG 1ST CHAR 


31704380 






0768 1008 




SLA 


8 


POSITION CHARACTER 


31704390 






0769 18C8 




RTE 


8 


ADD SELECT OR SYN CHAR 


31704400 






076A 1 D400 05EB 




STO 


L XSPEC+3 


PUT IN MESSAGE 


31704410 






076C C31F 


NTS PC 


LD 


3 RAREA+3-T 


GET Y VALUE FROM RFT 


31704420 






0760 405F 




BSI 


DTB 


CONVERT TO BINARY 


31704430 






076E 0300 




STO 


3 TABLE+6-T 


PUT IN PRINT TABLE 


31704440 






076F 9302 




S 


3 099-T 




31704450 






0770 1 4C08 0774 


* 


BSC 


L **^2,* 


BR IF Y NOT OVER 99 


31704460 
31704470 






0772 6112 




LOX 


I /12 




31704480 






0773 7023 


* 


MDX 


BDRFT 




31704490 
31704500 






0774 C30C 




LD 


3 TABLE+5-T 


GET X VALUE 


31704510 






0775 1 4C18 0799 


* 


BSC 


L EXIT8,*- 


BR IF X=00 


31704520 
31704530 






0777 1 4400 0AB3 




BSI 


L GNTM 


GO GENERATE TEST MSG 


31704540 






0779 4067 




BSI 


ALTNT 


ALTERNATE ACKS 


31704550 






077A 1 4400 0911 


XHAK2 BSI 


L XMRCV 


XMIT ACKNOWLEDGEMENT 


31704560 






077C 1 8E65 




DC 


LSTAKG/8000 AND RECEIVE MSG 


31704570 






077D C31D 




LD 


3 RAREASl-T 




31704580 






077E F3E3 




EOR 


3 EQT-T 




31704590 






077F 1 4C18 0849 


*c 


BSC 


L XMTH,+- 


BR IF EOT RECEIVED 


31704600 
31704610 






0781 406A 


* 


BSI 


EOTCK 


GO CK FOR DISCONNECT 


31704620 
31704630 






0782 C31D 




LD 


3 RAREAfil-T 




31704640 






0783 F3E8 




EOR 


3 ENQ-T 




31704650 






0784 1 4C20 078A 


* 


BSC 


L **4,Z 


BR IF NOT ENQ RECEIVED 


31704660 
31704670 






0786 6114 




LDX 


1 /14 




31704680 






0787 6203 




LDX 


2 3 


XR2=MESSAGE NUMBER 


31704690 






0788 4016 




BSI 


CKRTR 


GO TO CK RETRY 


31704700 






0789 70F0 


^ 


MOX 


XMAK2 




31704710 
31704720 






078A 6115 




LDX 


1 /15 




31704730 






078B 6203 




LDX 


2 3 


XR2=MESSAGE NUMBER 


31704740 






078C 4012 




BSI 


CKRTR 


GO TO CK RETRY 


31704750 






078D 1 4400 0911 




BSI 


L XMRCV 


RECEIVE 


31704760 






078F 8000 




DC 


/8O00 




31704770 




DATE 


01APR68 15SFP68 


010CT69 


01JUN70 




PROG ID 


0317-0 
4 


EC NO. 


420411 420416 


571066 


571097 




PAGE 



0790 70EC 



MOX 



XMAK2&3 



0791 





6203 




0792 





400C 




079 3 





C3E4 




794 





D3E6 




0795 


1 


4C00 


06FE 


0797 





6206 




0798 





70F9 




0799 





C300 




079 A 





D3A6 




079B 





COOO 




079C 





D3A2 




0790 


1 


4C00 


08BE 



079F 0000 
07A0 1 6D00 0E27 
07A2 1 6E00 0E2B 
07A4 1 C400 05E1 
07A6 lOOF 
07A7 1 ECOO 05E0 
07A9 F3AA 
07AA 1 4C20 062A 

07AC 1 7400 0E05 
07AE 700A 
07AF C3B2 
07BO 1 4400 0BC8 
07B2 C398 
07B3 93E7 
07B4 1 4C08 07BE 

07B6 0398 
07B7 1 4C80 079F 

07B9 C3A9 

07BA 93E7 

07BB D3A9 

07BC 1 4CB0 079F 

07BE C3A7 
07BF 1 4C18 07C9 

07C1 1 4400 09E0 

07C3 1 6680 0E2B 

07C5 1 4400 09F3 

07C7 1 4C00 0909 

07C9 1 4400 0983 
07CB 1 4C00 0680 



XR2=HESSAGE NUMBER 
GO TO CK RETRY 
SET UP TO 
XMIT NAK 



XHNAK LOX 2 3 

BSI CKRTR 

LO 3 NAK-T 

STO 3 LSTAK£1-T 

BSC L XMACK 
* 

BDRFT LOX 2 6 

MOX XMNAK+1 
* 

EXIT8 LD 3 TABLE+6-T 

STO 3 YCNT-T 

LD * 

STO 3 TMRCl-T 

BSC L RTMSG 
* 

* CHECK RETRY COUNTER 
******************************************** 

* 



XR2=MESSAGE NUMBER 



GET Y VALUE 
SET Y COUNTER 

SET TEST MSG RECV IND 
GO TO RECEIVE TEST MSGS 



07C0 
07CE 
07CF 
07D0 
07D1 
0702 



0000 
E3F9 
039A 
1808 
A3F1 
1090 



CKRTR DC 
STX 
STX 
LD 
SLA 
OR 
EOR 
BSC 

* 

MDX 

MOX 

LD 

BSI 

LD 

S 

BSC 

STO 
BSC 

* 

WACKR LO 
S 

STO 
BSC 

* 

ERREX LO 
BSC 

* 

BSI 
LDX 
BSI 
BSC 

BSI 
BSC 



*-♦ 
LI ERRNO 
L2 TYPE 
L SW2 

15 
L SWl 

3 OPTIN-T 
L STRTtZ 



MSWAK 

WACKR 

MSG4-T 

STALP 

RETRY-T 

HOOOl-T 

ERREX, G 



I 



I 



RETRY-T 
CKRTR 

3 REWAK-T 
3 HOOOl-T 
3 REWAK-T 
CKRTR, Z- 

ERRNO-T 
**8,*- 



L DIAGP 
12 TYPE 
L ERPRT 
L ENTS2 



TYPIT 
CLEAR 



STORE ERROR NUMBER 
SAVE MESSAGE NUMBER 



BR IF OPTION CHANGE 

WAS LAST ACK A WACK 

YES, SEE IF # 25 

GET MSG ADDRS 

GO STORE IN PRINT TBL 

OECRE RETRY BY ONE 
BR IF RETRY ZERO 



RETURN 



REDUCE WACK CTR BY I 
EXIT IF WACK COUNT NOT 



BR IF NO ERROR 

GO PRINT DIAG MSG 
XR2=HESSAGE NUMBER 
GO PRINT ERROR MSG 
END ROUTINE 

GO PRINT MESSAGE 
RESTART ROUTINE 



* CONVERT 2 EBCDIC DECIMAL DIGITS 

♦ TO BINARY 
******************************************** 



0TB 



DATE 
EC NO. 



01APR68 
420411 



15SEP68 
420416 



DC 

AND 

STO 

SRA 

M 

SLT 



010CT69 
571066 



*-* 

HOFOF-T 

TEMP-T 

B 

HOOOA-T 

16 



REMOVE BITS 0-3 8-11 

RIGHT JUSTIFY HI DIGIT 
MULT BY DEC 10 



01JUN70 
571097 



31704780 

31704790 

31704800 

31704810 

31704820 

31704830 

31704840 

31704850 

31704860 

31704870 

31704880 

31704890 

31704900 

31704910 

31704920 

31704930 

31704940 

31704950 

31704960 

31704970 

31704980 

31704990 

31705000 

31705010 

31705020 

31705030 

31705040 

31705050 

31705060 

31705070 

31705080 

31705090 

31705100 

31705110 

31705120 

31705130 

31705140 

31705150 

31705160 

31705170 

31705180 

31705190 

31705200 

31705210 

31705220 

31705230 

31705240 

31705250 

31705260 

31705270 

31705280 

31705290 

31705300 

31705310 

31705320 

31705330 

31705340 

31705350 

31705360 

31705370 

31705380 

31705390 

31705400 

31705410 

31705420 

31705430 

31705440 

31705450 
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07D3 839A 


A 


3 TEMP-T 


ADD LO DIGIT 


07D4 E3F7 


AND 


3 HOOFF-T 


SAVE BITS 8-15 


0705 1 4C80 07CD 


8SC 


I DTB 


RETURN 



07D7 





0000 


07D8 





C3CA 


07D9 





D398 


07DA 





C3F0 


07DB 





D3A9 


07DC 





CBD4 


0700 





DBD6 


7DE 





D3E6 



070F I 4C80 07D7 



* INITIALIZE POSITIVE ACKNOHtEDGEMENT 

* TO ACKO AND SET RETRY TO 7. 

* 

INITL DC 

LD 

STO 

LO 

STO 

LDO 

STD 

STO 

BSC I 
♦ 

* ALTERNATE POSITIVE ACKMOMLEOGEHENT 

* AND SET RETRY TO 7. 

* 



*-* 




3 H0007-T 




3 RETRY-T 


SET RETRY TO 7 


3 D25-T 




3 REWAK-T 


RESET MACK TO 25 


3 ACKS-T 


INITIALIZE 


3 POSAK-T 


POSITIVE 


3 LSTAKSl-T 


ACKNOWLEDGEMENTS 


INITL 


RETURN 



07E1 0000 


ALTNT DC 


*-* 




07E2 CB06 


LDD 


3 POSAK-T 


ALTERNATE 


07E3 1800 


RTE 


16 


POSITIVE 


07E4 DBD6 


STD 


3 POSAK-T 


ACKNOWLEDGEMENTS 


07E5 D3E6 


STO 


3 LSTAK+l-T 




07E6 C3CA 


LD 


3 H0007-T 




07E7 D398 


STO 


3 RETRY-T 


SET RETRY TO 7 


07E8 C3F0 


LO 


3 D25-T 




07E9 03A9 


STO 


3 REWAK-T 


RESET WACK TO 25 


07EA 1 4C80 07E1 


BSC 


I ALTNT 


RETURN 



* CHECK FOR EOT OR OLE EOT RECEIVED 

* 



07EC 
07ED 
07EE 
07EF 






I 


0000 
C31D 
F3E3 
4C18 


C7F7 


EOTCK 

* 


DC 
LD 
EOR 
BSC 


3 

3 
L 


*-* 

RAREAEl-T 
EOT-T 
EOTRC,£- 


BR IF EOT 


07F1 
07F2 
07F3 





1 


C31D 
F3EA 
4C18 


07F9 


LO 

EOR 

BSC 


3 
3 
L 


RAREA61-T 

DLEOT-T 

OISCN.E- 


BR IF DIS 


07F5 


1 


4C80 


07EC 


EOTRC 


8SC 


I 


EOTCK 


RETURN 


07F7 
07F8 






6207 
70CC 




LDX 
HOX 


2 


7 
ERREXE7 




07F9 
07FA 
07FB 







0BD2 
6208 
70C9 




DISCN 


XIO 
LDX 
MDX 


3 
2 


RESET-T 

8 

ERREX67 


RESET SCA 



♦ TRANSMIT RFT MESSAGE 

* 



07FC 0000 
07FD 1010 
07FE D3A5 

07FF C3A8 
0800 1 4428 0678 
0802 1020 



XMRFT DC 
SLA 

STO 
* 

LO 

BSl 

SLA 



»-* 

16 

TOIND-T 

lOFLG-T 
XMTID.ZC 

/2D 



RESET TIMEOUT IND 

ID HEADER REQUIRED FLAG 
GO XHIT ID IF REQUESTED 
ENO CHD IF NEEDED 



31705460 

31705470 

31705480 

31705490 

31705500 

31705510 

31705520 

31705530 

31705540 

31705550 

31705560 

31705570 

31705580 

31705590 

31705600 

31705610 

31705620 

31705630 

31705640 

31705650 

31705660 

31705670 

31705680 

31705690 

31705700 

31705710 

31705720 

31705730 

31705740 

31705750 

31705760 

31705770 

31705780 

31705790 

31705800 

31705810 

31705820 

31705830 

31705840 

31705850 

31705860 

31705870 

31705880 

31705890 

31705900 

31705910 

31705920 

31705930 

31705940 

31705950 

31705960 

31705970 

31705980 

31705990 

31706000 

31706010 

31706020 

31706030 

31706040 

31706050 

31706060 

31706070 

31706080 

31706090 

31706100 

31706110 

31706120 

31706130 



0803 I 4400 0911 

0805 1 8E67 

0806 C31D 

0807 F3E8 

0808 1 4C20 0811 

080A 6100 
080B 620A 
080C 4092 
0800 1 4400 09F3 
080F 1 4CO0 0680 

0811 C31D 

0812 F3D6 

0813 1 4C18 0818 

0815 6100 

0816 6203 

0817 1 4400 079F 
0819 1 4C00 0691 



L XMRCV XMIT ENQ AND 

ENQCT&/8000 RECEIVE RESPONSE 

3 RAREAEl-T 

3 ENQ-T 
L *S7,Z BR IF NOT ENQ RECVD 



1 

2 /A 
CKRTR 

L ERPRT 
L CLEAR 



XR2=MESSAGE NUMBER 
GO TO CK RETRY 
GO TO PRINT MESSAGE 
RESTART ROUTINE 



081B 
081C 
081D 
081F 
0820 
0821 
0822 



D3A8 

40C4 

4400 0911 

8E9F 

40CB 

C391 

F3F6 



0823 1 4C18 0839 

0825 C310 

0826 F3D6 

082 7 1 4C98 07FC 

0829 C31D 
082A F3D7 
082B 1 4C18 083D 

082D C31D 
082E F3E4 
082F 1 4C18 0844 

0831 6118 

0832 6202 

0833 1 4400 079F 
0835 1 4400 0911 

083 7 1 8E67 

0838 70E7 

0839 6119 
083A 1 6D00 0E25 
083C 70F5 

083D 611A 
083E C3A5 
083F 1 4C18 0832 

0841 1010 

0842 D3A5 

0843 7001 

0844 611B 

0845 6202 

0846 1 4400 079F 
0848 70D4 



3 RAREACl-T 
3 POSAK-T 
L CTINU-l,e- BR IF CORRECT ACK RCVD 

1 

2 3 
L CKRTR 
L CLEARE4 RESTART ROUTINE 

3 IDFLG-T RESET ID FLAG 
ALTNT ALTERNATE ACKS 

L XMRCV XMIT RFT MSG AND 

RFTTME/8000 RECEIVED RESPONSE 

EOTCK 

3 BUFFR-T 

3 HFFFF-T 

L ERRTO.E- 



GO CK FOR EOT RECVD 
BR IF TIMEOUT 



XMENO BSI 
DC 
LD 
EOR 
BSC 

* 

LDX 
LDX 
BSI 
BSI 
BSC 

LD 

EOR 

BSC 

LDX 
LDX 
BSI 
BSC 

STO 
CTINU BSI 
BSt 
DC 
BSI 
LD 
EOR 
BSC 

LD 

EOR 

BSC 

LD 

EOR 

BSC 

LO 

EOR 
BSC 

* 

LDX 
XENQ2 LOX 
BSI 
BSI 
DC 
MDX 

ERRTO LDX 
STX 
HDX 

WRACK LDX 
LD 
BSC 

* 

SLA 
STO 

MDX 

* 

NAKRC LDX 
LDX 
BSI 

MDX 

* 



3 RAREAEl-T 
3 POSAK-T 
I XMRFT, £- 

3 RAREAEl-T 
3 POSAKEl-T 
L WRACK, £- 

3 RAREAEl-T 
3 NAK-T 
L NAKRC, £- 

1 /18 

2 2 

L CKRTR 
L XMRCV 



BR IF CORRECT ACK RCVD 



BR IF WRONG ALTERNATE ACK 



BR IF NAK RECEIVED 



GO TO CHECK RETRY 
XMIT ENQ AND 

ENQCTE/8000 RECEIVE RESPONSE 

CTINUE4 



I /19 
LI TOIND 
XENQ2 

I /lA 
3 TOINO-T 
L XEN02,E- 

16 
3 TOINO-T 
* + l 

1 /IB 

2 2 

L CKRTR 
CTINU+1 



SET TIMEOUT IND 

BR IF TIMEOUT IND ZERO 
RESET TIMEOUT IND 

GO CK RETRY 



31706140 

31706150 

31706160 

31706170 

31706180 

31706190 

31706200 

31706210 

31706220 

31706230 

3X706240 

31706250 

31706260 

31706270 

31706280 

31706290 

31706300 

31706310 

31706320 

31706330 

31706340 

31706350 

31706360 

31706370 

31706380 

31706390 

31706400 

31706410 

31706420 

31705430 

31706440 

31705450 

31706460 

31706470 

31706480 

31706490 

31706500 

31706510 

31706520 

31706530 

31706540 

31706550 

31706560 

31706570 

31706580 

31706590 

31706600 

31706610 

31706620 

31706630 

31706640 

31706650 

31706660 

31706670 

31706680 

31706690 

31705700 

31706710 

31706720 

31706730 

31706740 

31706750 

31706760 

31706770 

31705780 

31706790 

31706800 

31706810 
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*. TRANSMIT TEST MESSAGES 

* 



0849 





408D 




XMTM 


BSI 




INITL 


INITIALIZE ACKO/ACKl 


84 A 


I 


4400 


0911 




8SI 


L 


XHRCV 


XMIT ENO AND 


084C 


1 


8E67 






DC 




ENQCTE/8Q00 RECEIVE RESPONSE 


0840 





C31D 






LO 


3 


RAREA61-T 




084E 





F3D6 






EOR 


3 


POSAK-T 




084F 


1 


4C18 


0856 


* 


BSC 


L 


XMTMl, &- 


BR IF CORRECT ACK 


0851 





611C 




LDX 


I 


/IC 




0852 





6203 






tDX 


2 


3 




0853 


1 


4400 


079F 




BSI 


L 


CKRTR 


CK RETRY CTR 


0855 





70F4 




* 
XMTMl 


MDX 




XMTHEl 


XMIT ENQ AGAIN 


0856 





COOO 




LD 




* 




0857 





D3A3 






STO 


3 


TMXMI-T 


SET TEST HSG XMIT IND 


0858 





C30D 






LO 


3 


TABLE+6-T 


GET Y VALUE 


0859 





D3A6 






STO 


3 


VCNT-T 


SET Y COUNT 


085A 





4086 






BSI 




ALTNT 


ALTERNATE ACKS 


085B 





C3A6 




TSMSG 


LD 


3 


YCNT-T 




085C 


1 


4C08 


0901 


* 


BSC 


L 


ENTST,* 


BR IF Y=00 


085E 





93E7 




S 


3 


HOOOl-T 


OECRE Y COUNT BY ONE 


085F 





D3A6 






STO 


3 


YCNT-T 




0860 





C39E 






LD 


3 


THPNT-T 




0861 





EBFA 






OR 


3 


H8000-T 




0862 





D002 






STO 




*t2 




0863 


1 


4400 


0911 




BSI 


L 


XMRCV 


XMIT TEST MSG AND 


0865 





0000 






DC 




*-* 


RECEIVE RESPONSE 


0866 


1 


4400 


07EC 


♦ 


BSI 


L 


EOTCK 


GO CK FOR EOT RECVD 


0868 





C391 




LD 


3 


BUFFR-T 




0869 





F3F6 






EOR 


3 


HFFFF-T 




086 A 


1 


4C20 


0870 


* 


BSC 


L 


*64,Z 


BR IF NO TIMEOUT 


0e6C 


1 


7401 


0E8E 


MDX 


L 


TABLEC7,61 


ADD ONE TO TMOUT COUN 


086 E 





611E 






LDX 


1 


/IE 




086F 





701C 




* 


MDX 




CKY 




0870 





C31D 




LD 


3 


RAREA61-T 




0871 





F3E4 






EOR 


3 


NAK-T 




0872 


1 


4C20 


0878 


♦ 


BSC 


L 


*64,Z 


BR IF NOT NAK RCVD 


0874 


1 


7401 


0E8F 


MDX 


L 


TABLEEB.Sl 


ADO ONE TO NAK COUNT 


0876 





611D 






LDX 


1 


/ID 




0877 





7014 




4< 


MDX 




CKY 




0878 





C31D 




LO 


3 


RAREA61-T 




0879 





F3D7 






EOR 


3 


POSAKEl-T 




087A 


1 


4C18 


085A 


* 


BSC 


L 


TSMSG-1,+- 


BR IF ACK 


087C 





C31D 




LD 


3 


RAREAEl-T 




087D 





F306 






EOR 


3 


POSAK-T 




087E 


1 


4C18 


C85A 


* 


BSC 


L 


TSMS6-1,+- 


BR IF CORRECT ACK 


0880 





C31D 




LD 


3 


RAREA61-T 




0881 





F304 






EOR 


3 


RVI-T 




0882 


1 


4C20 


0889 




BSC 


L 


ADBAD.Z 


BR IF NOT RVI 


0884 





1010 






SLA 




16 




0885 





D3A6 






STO 


3 


YCNT-T 


CLEAR Y CTR 


0886 





COOO 






LD 




* 




0887 





D303 






STO 


3 


RVISW-T 


SET RVI SWITCH 


0888 





700 1 




# 


MDX 




TSMSG-1 




0889 


1 


7401 


0E90 


AOBAD 


MDX 


L 


TABLE69,ei 




088B 





6120 




* 


LDX 


1 


/20 





DATE 
EC NO. 



01APR68 
420411 



15SEP68 
420416 



0inCT69 
571066 



01JUN70 
571097 



31706820 


088C 


1 


6D00 


0E27 


CKY 


STX 


LI 


ERRNO 




STORE ERROR NUMBER 


31707500 




31706830 


088E 





C3B2 






LD 


3 


MSG4-T 






31707510 




31706840 


088F 


I 


4400 


0BC8 




BSI 


L 


STALP 






31707520 




31706850 


0891 





70C8 






MDX 




TSMSG-1 






31707530 




31706860 










♦ 












31707540 




31706870 










tf*:****^**1r***:t!*ti*i>it:****t'*^**=^*****:**********:* 


31707550 




31706880 










♦ 






RECEIVE 


TEST MESSAGES 


31707560 




31706890 










^^m********************:*:********:***^^******** 


31707570 




31706900 










* 












31707580 




31706910 


0892 





C30D 




RCVTM 


LD 


3 


TABLE+6- 


-T 


GET Y VALUE 


31707590 




31706920 


0893 





D3A6 






STO 


3 


YCNT-T 




STORE IN Y COUNTER 


31707600 




31706930 


0894 





COOO 






LD 




* 






31707610 




31706940 


0895 





03A2 






STO 


3 


TMRCI-T 




SET TEST MSG RECV IND 


31707620 




31706950 


0896 




4400 


0707 




BSI 


L 


INITL 




INITIALIZE ACKO/ACKl 


31707630 




31706960 


0898 




4400 


0911 




BSI 


L 


XMRCV 




RECEIVE 


31707640 




31706970 


089A 





8000 






DC 




/8000 






31707650 




31706980 


089B 




C31D 




RCVTl 


LD 


3 


RAREAEl- 


-T 




31707660 




31706990 


089C 




F3E8 






EOR 


3 


ENQ-T 






31707670 




31707000 


0890 




4C18 


08C0 




BSC 


L 


RTMSG£2, 


,&- 


BR IF ENQ RCVD 


31707680 




31707010 










* 












31707690 




31707020 


089F 




4400 


07EC 




BSI 


L 


EOTCK 




GO CK FOR EOT RCVD 


31707700 




31707030 


OBAl 




6121 






LOX 


I 


/21 






31707710 




31707040 


08A2 





6202 






LDX 


2 


2 






31707720 




31707050 


08A3 




4400 


079F 




BSI 


L 


CKRTR 




CHECK RETRY CTR 


31707730 




31707060 


08A5 




C3E4 






LD 


3 


NAK-T 






31707740 




31707070 


08A6 




D3E6 






STO 


3 


LSTAK61- 


-T 




31707750 




31707080 


08A7 




4400 


0911 




BSI 


L 


XMRCV 






31707760 




31707090 


08A9 




8E65 






DC 




LSTAKC/8000 


31707770 




31707100 


08AA 




CBD6 






LOO 


3 


POSAK-T 






31707780 




31707110 


08AB 




18D0 






RTE 




16 






31707790 




31707120 


08AC 




DBD6 






STD 


3 


POSAK-T 




ROTATE ACKS 


31707800 




31707130 


08A0 




D3E6 






STO 


3 


LSTAKEl- 


-T 




31707810 




31707140 


08AE 




70EC 






MDX 




RCVTl 




GO CHECK FOR ENQ 


31707820 




31707150 


08AF 




6D00 


0E27 


RTM 


STX 


LI 


ERRNO 




STORE ERROR NUMBER 


31707830 




31707160 


08B1 




4400 


07E1 




BSI 


L 


ALTNT 




ALTERNATE ACKS 


31707840 




31707170 


088 3 




C3B2 






LO 


3 


MSG4-T 






31707850 




31707180 


08B4 




4400 


0BC8 




BSI 


L 


STALP 






31707860 




31707190 


08B6 




C3A6 






LD 


3 


YCNT-T 






31707870 




31707200 


08B7 




4C08 


08EB 




BSC 


L 


ENOl.t 




BR IF Y COUNT ZERO 


31707880 




31707210 










* 












31707890 




31707220 


08B9 





93E7 






S 


3 


HOOOl-T 




DECRE Y COUNT BY ONE 


31707900 




31707230 


08BA 





03A6 






STO 


3 


YCNT-T 






31707910 




31707240 


08BB 





4055 






BSI 




XMRCV 




RECEIVE 


31707920 




31707250 


08BC 





8000 






DC 




/8000 






31707930 




31707260 


08BD 





7009 






MDX 




**9 






31707940 




31707270 










* 












31707950 




31707280 


08BE 


1 


4400 


07E1 


RTMSG 


BSI 


L 


ALTNT 




ALTERNATE ACKS 


31707960 




31707290 


08C0 





C3A6 






LD 


3 


YCNT-T 






31707970 




31707300 


08C1 


1 


4C08 


08EE 




BSC 


L 


EN02.E 




BR IF Y COUNT ZERO 


31707980 




31707310 










* 












31707990 




31707320 


08C3 





93E7 






S 


3 


HOOOl-T 




OECRE Y COUNT BY ONE 


31708000 




31707330 


08C4 





D3A6 






STO 


3 


YCNT-T 






31708010 




31707340 


08C5 





404B 






BSI 




XMRCV 




XMIT CURRENT ACK AND 


31708020 




31707350 


08C6 


1 


8E65 






DC 




LSTAKE/aOOO RECEIVE TEST MSG 


31708030 




31707360 


08C7 





C391 






LD 


3 


BUFFR-T 






31708040 




31707370 


08C8 





F3F6 






EOR 


3 


HFFFF-T 






31708050 




31707380 


08C9 


1 


4C20 


08CF 




BSC 


L 


*E4,Z 




BR IF NO TIMEOUT 


31708060 




31707390 










* 












317080.70 




31707400 


08CB 


1 


7401 


0E8E 




MDX 


L 


TABLEE7, 


El 




31708080 




31707410 


08CD 





6122 






LOX 


I 


/22 






31708090 




31707420 


08CE 





70E0 






MDX 




RTM 






31708100 




31707430 










* 












31708110 




31707440 


08CF 


1 


7400 


0E06 




MDX 


L 


MDSWT 






31708120 




31707450 


08D1 





7006 






MDX 




*S6 




BR IF TEXT WAS RCVD 


31708130 




31707460 


08D2 


1 


4400 


07EC 




BSI 


L 


EOTCK 




GO CK FOR EOT RCVD 


31708140 




31707470 


08D4 





6123 






LDX 


1 


/23 






31708150 




31707480 


08D5 


1 


7401 


0E8F 




MDX 


L 


TABLEEe, 


£1 




31708160 




31707490 


0807 





70D7 






MDX 




RTM 






31708170 
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0808 C387 

0809 1 4C18 08E8 

08DB 1 4400 07E1 



08DD 
08DE 
08DF 
08E1 
08E2 
08E4 
OSES 
08E7 



C3E4 
D3E6 

7401 0E8F 
C3B2 

4400 0BC8 
6124 

6000 0E27 
7008 



08E8 1 7401 0E90 
08EA 7003 

08EB 4025 
08EC 8000 
08ED 7002 

08EE 4022 
08EF I 8E65 
08F0 C31D 
08FI F3E3 
08F2 I 4C18 0B39 



08F4 





C31D 




08F5 





F3EA 




08F6 


1 


4C18 


090C 


08F8 





6125 




08F9 


1 


6000 


0E27 


08FB 





C3B2 




08FC 


1 


4400 


0BC8 


08FE 


1 


4400 


09E0 


0900 





7008 





0901 1 7400 061C 

0903 7003 

0904 400C 

0905 1 0E69 

0906 7005 

0907 4009 

0908 1 0E62 

0909 I 7400 06 IC 
090B 7003 

090C 0802 
0900 6204 
090E 4074 
090F 1 4C00 0B39 



0911 0000 

0912 1 C4B0 0911 
0914 1 7401 0911 



LD 
BSC 
* 

BSI 

LD 

STO 

MUX 

LD 

BSI 

LDX 

STX 

MDX 

GDMSG MDX 
MDX 
♦ 
ENOl 



L 

3 

3 
L 

3 
L 

1 
LI 



* 
END2 



BSI 

DC 
MDX 

BSI 

DC 

LD 

EOR 

BSC 

LD 

EOR 

BSC 

LDX 

STX 

LO 

BSI 

BSI 

MDX 



ERR-T 
GDMSG, £- 

ALTNT 

NAK-T 

LSTAK+1-T 

TA8LE£8,£1 

MSG4-T 

STALP 

/24 

ERRNO 

RTMSGe2 

TABLEE9,E1 
RTMSG 

XMRCV 
/8000 
*fi2 



BR IF NO ERRORS IN TEXT 



SET UP TO 
XMIT NAK 



RECEIVE EOT 



XMRCV XMIT CURRENT ACK AND 

LSTAK6/8000 RECEIVE EOT 

RAREAEl-T 

EOT-T 

ENPRT,*- 



BR IF EOT RECEIVED 



RAREA+1-T 
OLEOT-T 



OLE EOT RECEIVED 



L ENTS2+3.*- ♦YES, BRANCH 

1 /25 
LI ERRNO 



L 
L 



MSG4-T 
STALP 
01 AGP 
ENTS2 



* END OF TEST 

SKIP IF DIAL-UP 



TRANSMIT OLE EOT 



ENTST 


MDX 


L 


DIAL 


^ 


MDX 




*e3 




BSI 




XMRCV 




DC 




DEOTC 




MDX 




**5 


* 










BSI 




XMRCV 




DC 




EOTCT 


♦ 








ENTS2 


MDX 


L 


DIAL 




MDX 




♦+3 


* 










XIO 


3 


RESET-T 




LDX 


2 


4 




BSI 




TYPIT 




BSC 


L 


ENPRT 



TRANSMIT EOT 



SKIP IF DIAL-UP 



RESET SCA 
XR2=MESSAGE NUMBER 

PRINT END MESSAGE 



************ili**********i*:^***^:^:f ************* 

* PROCESS TRANSMIT/RECEIVE CALL 

* AND WAIT FOR COMPLETION OF OPERATION 

****************************^:*^,^^^^it:^^^^^::^i^i^ 

* 

XMRCV DC *-* 

LD I XMRCV GET XMIT/RECV REQUEST 

MDX L XMRCV, +1 



31708180 

31708190 

31708200 

31708210 

31708220 

31708230 

31708240 

31708250 

31708260 

31708270 

31708280 

31708290 

31708300 

31708310 

31708320 

31708330 

31708340 

31708350 

31708360 

31708370 

31708380 

31708390 

31708400 

31708410 

31708420 

31708430 

31708440 

31708450 

31708460 

31708470 

31708480 

31708490 

31708500 

31708510 

31708520 

31708530 

31708540 

31708550 

31708560 

31708570 

31708580 

31708590 

31708600 

31708610 

31708620 

31708630 

31708640 

31708650 

31708660 

31708670 

31708680 

31708690 

31708700 

31708710 

31708720 

31708730 

31708740 

31708750 

31708760 

31708770 

31708780 

31708790 

31708800 

31708810 

31708820 

31708830 

31708840 

31708850 



0916 D39B 

0917 E3FC 

0918 D393 

0919 1 4400 0943 
091B 1 4400 09E0 

091D C3FC 
091E D399 



091F 
0920 
0922 
0923 
0925 
0927 
0929 

092B 
0920 
092 E 
092 F 

0931 
0932 

0934 
0936 
0937 
0938 
093A 

093C 
093D 
093E 
0940 
0942 



C385 

4C20 093C 
C38F 

4CA0 0911 
6700 092B 
6F00 05E5 
4480 0161 



1 6700 0E80 
OBDO 

1007 

1 4C28 0934 

6201 

1 4400 09F3 

1 74FF 0E19 
70E8 

6209 

1 4400 09F3 
1 4C00 0909 

6116 

6200 

1 4400 079F 
1 C400 084C 
7003 



0943 





0000 




0944 





4029 




0945 





630D 




0946 





1010 




0947 


1 


D700 


0E04 


0949 





73FF 




094A 





70FC 





094B 1 6700 0E80 
094D 0310 
094E OBBA 
094F C393 
0950 1 4C20 0960 



0952 
0953 
0955 
0957 
0958 
095A 
0958 
095C 
0950 
095E 



C3B1 

4400 0BC8 
6600 0E9C 
7201 

6E00 0E14 
COOO 
0395 
OBBC 
0BC6 
4C80 0943 



* 
WAIT 



STO 
AND 
STO 
BSI 
BSI 

LD 
STO 

LD 

BSC 

LO 

BSC 

LDX 

STX 

BSI 



RETRN LDX 
XIQ 
SLA 
BSC 



LDX 
BSI 

NDX 
MDX 
LDX 
BSI 
BSC 

LDX 

LOX 

BSI 

LO 

NOX 



L 

3 
I 

L3 
L3 
I 

L3 

3 



* 
MAKER 



REQ-T 

H7FFF-T 

FCODE-T 

GO 

DIAGP 

H7FFF-T 
WTCNT-T 

MSWAK-T 

WAKER,Z 

MSEND-T 

XMRCV, Z 

RETRN 

MLSCF 

START 

T 

SENSE-T 
7 
*+3,Z+ 

1 
ERPRT 

WTCNT,-1 

WAITC2 

9 

ERPRT 

ENTS2 

/16 



CKRTR 
XMTM+3 
XMRCV+5 



REMOVE BIT 

SET FUNCTION FOR XMIT/REC 

START XMIT OR RECV 



SET INT WAIT COUNT 



BRANCH IF WACK RECEIVED 
CK FOR END XMIT/RECV 
BR IF MSG END 

SET MONITOR RETURN 
GO TO MONITOR 



RESTORE XR3 
SENSE SCA DSW 



PRINT ERROR MSG 

DECRE WAIT CNT BY ONE 
BR IF COUNT NOT ZERO 



PRINT ERROR 
END ROUTINE 



MSG 



CHECK WACK RETRY CTR 
ENQ RESPONSE REQUEST 
SET UP TO SEND ENQ 



******************************************** 
* START TRANSMIT/RECEIVE OPERATION 

****************************^:^t,t,^^^0^^f,^^^,^^ 

* 



GO 



0960 D3A4 

0961 83E7 



* 
XMIT 



DC 

BSI 

LDX 

SLA 

STO 

MDX 

MDX 

LDX 

STO 

XIO 

LD 

BSC 

LD 

BSI 

LDX 

MDX 

STX 

LD 

STO 

XIO 

XIO 

BSC 

STO 
A 



L3 

3 



L3 
3 
3 
3 

L 

3 
L 
L2 

2 
L2 

3 
3 
3 



♦-♦ 

CKOPN 

13 

16 

TT-1 

-1 

*-4 



RAREA+1-T 
SYNR6-T 
FCOOE-T 
XMIT.Z 

MSG3-T 

STALP 

RAREA 

tl 

POINT 

* 

RTBSY-T 

ENOOP-T 

STRED-T 

GO 

lOAR-T 
HOOOl-T 



RESET 
THIRTEEN 

INDICATORS 



XR3#C0NSTANT TABLE ADDRS 

SYN TO SYNC REG 

CK FUNCTION 

BR IF XMIT FUNCTION 



POINT TO RECEIVE AREA 

SET RTN BUSY IND 
END SCA OPERATION 
START READ 
RETURN TO CALLING RTN 



31708860 

31708870 

31708880 

31708890 

31708900 

31708910 

31708920 

31708930 

31708940 

31708950 

31708960 

31708970 

31708980 

31708990 

31709000 

31709010 

31709020 

31709030 

31709040 

31709050 

31709060 

31709070 

31709080 

31709090 

31709100 

31709110 

317Q9120 

31709130 

31709140 

31709150 

31709160 

31709170 

31709180 

31709190 

31709200 

31709210 

31709220 

31709230 

31709240 

31709250 

31709260 

31709270 

31709280 

31709290 

31709300 

31709310 

31709320 

31709330 

31709340 

31709350 

31709360 

31709370 

31709380 

31709390 

31709400 

31709410 

31709420 

31709430 

31709440 

31709450 

31709460 

31709470 

31709480 

31709490 

31709500 

31709510 

31709520 

31709530 



DATE 
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01APR6B 
420A11 



15SEP68 
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010CT69 
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O1JUN70 
571097 
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096 2 





D394 




0963 





C3C6 




0964 





D392 




0965 





C3B0 




0966 


1 


4400 


0BC8 


0968 





COOO 




0969 





0395 




096A 





OBBC 




096B 





OBBE 




096C 


1 


4C80 


0943 



STO 


3 POINT-T 


POINT TO XHIT AREA 


LO 


3 H0004-T 




STO 


3 SYNC-T 


SET XMIT SYNS IND 


LD 


3 MSG2-T 




BSI 


L STALP 




tD 


* 




STO 


3 RTBSY-T 


SET RTN BUSY IND 


XIO 


3 ENDOP-T 


END SCA OPERATION 


XIO 


3 STSYN-T 


START WRITE 


BSC 


I GO 


RETURN TO CALLING RTN 



096E 0000 
096F 1 6700 0E80 
0971 1 C400 05E1 

0973 lOOC 

0974 I 4C28 0979 

0976 C3AE 

0977 1 4C20 C97C 

0979 C3A1 
097A 03AD 
097B 7002 

097C C3AD 
097D 03A1 

097E 1010 
097F 1 D480 0E21 
0981 1 4C80 096E 



^^tc^^**)t:**iit:**f ****************************** 

* SAVE OR DELETE LAST MESSAGE 

*tf****************************************** 



CK OPTION SWITCH 



CKOPN 


DC 




*-* 




LOX 


L3 


T 




LD 


L 


SH2 




SLA 




12 




BSC 


L 


*£3,Z6 


*: 










LO 


3 


NOERR-T 




BSC 


L 


*C3»Z 


» 










LD 


3 


ENPNT-T 




STO 


3 


ENPT2-T 




MDX 




*t2 


* 










LD 


3 


ENPT2-T 




STO 


3 


ENPNT-T 


* 










SLA 




16 




STO 


I 


ENPNT 




BSC 


I 


CKOPN 



0983 





0000 




TYPIT 


DC 




*-* 


0984 


1 


6E00 


0E87 




STX 


L2 


TABLE 


0986 


1 


C600 


0991 




LD 


L2 


AMSGS- 


0988 





D30A 






STO 


3 


TABLEH 


0989 





4480 


0163 




BSI 


I 


LOG 


098B 


1 


0E87 






DC 




TABLE 


098C 


1 


6700 


0E80 




LDX 


L3 


T 


098E 





1010 






SLA 




16 


098F 





D30A 






STO 


3 


TABLE-i 


0990 


1 


4C80 


0983 


* 
AMSGS 


BSC 


I 


TYPIT 


0992 


1 


099A 




DC 




A1701 


0993 


1 


09A4 






DC 




A1702 


0994 


1 


09A9 






DC 




A1703 


0995 


1 


0A3C 






DC 




E1708 


0996 


1 


09AF 






DC 




A1705 


0997 


1 


09C0 






DC 




A 1706 


0998 


1 


0901 






DC 




A1707 


0999 


1 


09D8 




A1701 


DC 




A170B 


099A 





723E 




DC 




/723E 


099B 





5A36 






DC 




/5A36 


099C 





2132 






DC 




/2132 


099D 





3E9E 






DC 




/3E9E 


099E 





3E21 






DC 




/3E21 


099F 





9A36 






DC 




/9A36 


09A0 





9E21 






DC 




/9E21 


09A1 





6232 






DC 




/6232 


09A2 





A621 






DC 




/A621 


DATE 01APR68 15SEP68 


010CT69 


01JUN70 


EC NO. 420411 420416 


571066 


571097 



BR IF PRINT ALL TEXT ON 



BR IF NO ERROR 



SAVE LAST MESSAGE 



DELETE LAST MESSAGE 



******************************************** 
* PRINT STATUS MESSAGE 

^^::t:***************************************** 

* 

'PIT DC »-* 

STX L2 TABLE 

LD L2 AMSGS-1 
STO 3 TABLE+3-T 

BSI I LOG 
DC TABLE 

LDX L3 T 
SLA 16 

T 



STORE MSG NUMBER 
GET MSG ADDRS 
STORE MSG ADDR 
PRINT MESSAGE 

RESTORE XR3 



RETURN 

HAKE DATA SET RDY 
MON ENQ 
NO ANS ENQ 
01 SCONNECT 



RVI 
TTD 

MA 
KE 
D 
AT 
A 

SE 
T 

RD 
Y 



MSG 
MSG 



31709540 

31709550 

31709560 

31709570 

31709580 

31709590 

31709600 

31709610 

31709620 

31709630 

31709640 

31709650 

31709660 

31709670 

31709680 

31709690 

31709700 

31709710 

31709720 

31709730 

31709740 

31709750 

31709760 

31709770 

31709780 

31709790 

31709800 

31709810 

31709820 

31709830 

31709840 

31709850 

31709860 

31709870 

31709880 

31709890 

31709900 

31709910 

31709920 

31709930 

31709940 

31709950 

31709960 

31709970 

31709980 

31709990 

31710000 

31710010 

31710020 

31710030 

31710040 

31710050 

31710060 

31710070 

31710080 

31710090 

31710100 

31710110 

31710120 

31710130 

31710140 

31710150 

31710160 

31710170 

31710180 

31710190 

31710200 

31710210 



PROG ID 
PAGE 



09A3 FFFF 


DC 
* 
A 1702 DC 


/FFFF 


TERMINATOR 


09A4 7252 


/7252 


MO 


09A5 7621 


DC 


/7621 


N 


09A6 3676 


DC 


/3676 


EN 


09A7 6621 


DC 


/6621 


Q 


09A8 FFFF 


DC 
* 
A 1703 DC 


/FFFF 


TERMINATOR 


09A9 7652 


/7652 


NO 


09AA 213E 


DC 


/213E 


A 


09AB 769A 


DC 


/769A 


NS 


09AC 2136 


DC 


/2136 


E 


09AD 7666 


DC 


/7666 


NQ 


09AE FFFF 


DC 

* 

A1705 DC 


/FFFF 


TERMINATOR 


09AF 9621 


/9621 


X 


09B0 2121 


DC 


/2121 




09B1 2121 


DC 


/2121 




09B2 A621 


DC 


/A621 


Y 


09B3 2121 


DC 


/2121 




09B4 2121 


DC 


/2121 




09B5 9E72 


DC 


/9E72 


TM 


09B6 52B2 


DC 


/52B2 


OU 


09B7 9E21 


DC 


/9E21 


T 


09B8 763E 


DC 


/763E 


NA 


09B9 5A21 


OC 


/5A21 


K 


09BA 2121 


DC 


/2121 




09BB 2276 


DC 


/2276 


IN 


09BC B621 


OC 


/B621 


V 


09BD 6236 


DC 


/6236 


RE 


09BE 9A56 


DC 


/9A56 


SP 


09BF FFFF 


DC 
A1706 OC 


/FFFF 


TERMINATOR 


09C0 9621 


/9621 


X 


09CI 2121 


DC 


/2121 




09C2 2121 


DC 


/2121 




09C3 A621 


OC 


/A621 


Y 


09C4 2121 


DC 


/2121 




09C5 2121 


DC 


/2121 




09C6 9E72 


DC 


/9E72 


TM 


09C7 52B2 


DC 


/52B2 


OU 


09C8 9E21 


DC 


/9E21 


T 


09C9 9221 


DC 


/9221 


M 


09CA 3662 


OC 


/3662 


ER 


09CB 6221 


DC 


/6221 


R 


09CC 92BC 


DC 


/92BC 


M/ 


09CD 5221 


DC 


/5221 





09CE 3662 


DC 


/3662 


ER 


09CF 6221 


DC 


/6221 


R 


09D0 FFFF 


DC 
* 
A1707 OC 


/FFFF 


TERMINATOR 


0901 62B6 


/6286 


RV 


09D2 2221 


DC 


/2221 


I 


09D3 621E 


DC 


/621E 


RC 


0904 B632 


DC 


/B632 


VD 


09D5 8036 


OC 


/8036 


.E 


0906 529E 


DC 


/529E 


OT 


09D7 219A 


DC 


/219A 


S 


09D8 3676 


DC 


/3676 


EN 


0909 9E21 


DC 


/9E21 


T 


09DA FFFF 


DC 
* 
A1708 DC 


/FFFF 


TERMINATOR 


09DB 9E9E 


/9E9E 


TT 


090C 3221 


OC 


/3221 


D 


09DD 621E 


DC 


/621E 


RC 


09DE B632 


DC 


/B632 


VO 


09DF FFFF 


DC 


/FFFF 


TERMINATOR 



0317-0 
8 



DATE 
EC NO. 



01APR68 
420411 



15SEP68 
420416 



010CT69 
571066 



01JUN70 
571097 



31710220 

31710230 

31710240 

31710250 

31710260 

31710270 

31710280 

31710290 

31710300 

31710310 

31710320 

31710330 

31710340 

31710350 

31710360 

31710370 

31710380 

31710390 

31710400 

31710410 

31710420 

31710430 

31710440 

31710450 

31710460 

31710470 

31710480 

31710490 

31710500 

31710510 

31710520 

31710530 

31710540 

31710550 

31710560 

31710570 

31710580 

31710590 

31710600 

31710610 

31710620 

31710630 

31710640 

31710650 

31710660 

31710670 

31710680 

31710690 

31710700 

31710710 

31710720 

31710730 

31710740 

31710750 

31710760 

31710770 

31710780 

31710790 

31710800 

31710810 

31710820 

31710830 

31710840 

31710850 

31710860 

31710870 

31710880 

31710890 
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* PRINT DIAGNOSTIC MESSAGE 

* 





U"^tO 0000 




OIAGI 


P DC 


♦-* 






09E1 1 C400 


05E1 




LD 


L SW2 


CK OPTION SWT 




09E3 lOOE 






SLA 


14 






09E4 i 4C90 


09E0 


« 


BSC 


I DIAGP,- 


BR IF NOT DIAG PRNT 




09E6 C3A7 






LD 


3 ERRNO-T 


GET ERROR NUMBER 




09E7 1 4C98 


09EO 


4: 


BSC 


I DIAGP,+- 


BR IF NO ERROR 




09E9 D307 






STO 


3 TABLE-T 






09EA 4480 


0162 




BSI 


I ERROR 


GO PRINT ERROR MSG 




09EC I 0E87 






DC 


TABLE 






09E0 0000 






DC 









09EE I 6700 


0E80 




LDX 


L3 T 


RESTORE XR3 




09F0 1010 






SLA 


16 






09F1 D3A7 






STO 


3 ERRNO-T 


SET ERROR NO. TO ZERO 




09F2 70F4 




^ 


MDX 


*-12 










♦ **************#**^^^^^^,,^^^^^,^^^^^^^^^^^^^^ 








* 




PRINT ERROR MESSAGE 












09F3 0000 




ERPR7 


DC 


*-* 






09F4 1 6E00 


0E87 




STX 


L2 TABLE 


STORE MSG NUMBER 




09F6 1 C600 


OA03 




LD 


L2 EMSGS 


GET MSG ADDR 




09F8 D30A 






STO 


3 TABLE+3-T 


STORE MSG ADDR 




09F9 4480 


0162 




BSI 


I ERROR 


PRINT MSG 




09FB 1 0E87 






DC 


TABLE 






09FC 0000 






DC 









09F0 1 6700 


0E80 




LDX 


L3 T 


RESTORE XR3 




09FF 1010 






SLA 


16 






OAOO D30A 






STO 


3 TABLE+3-T 






OAOl 1 4C80 


09F3 


* 
EMSGS 


BSC 


I ERPRT 






0A03 1 OAOE 




DC 


E1700 


25 WACKS R 




0A04 1 0A14 






DC 


E1701 


DATA SET NROY 




0A05 1 OAIC 






DC 


E1702 


7 TRIES T 




0A06 1 0A22 






DC 


El 703 


7 TRIES R 




0A07 1 0A28 






DC 


El 704 


INV X 




0A08 I 0A2C 






DC 


E1705 


INV Y 




0A09 1 0A30 






DC 


El 706 


INV RFT RCVD 




OAOA 1 0A37 






DC 


El 707 


EOT RCVD 




OAOB 1 0A3C 






DC 


E1708 


DISCONNECT 




OAOC 1 0A42 






DC 


E1709 


NO INTRP 




OAOD 1 0A47 




4: 


DC 


E170A 


CONTENTION 




OAOE D8F4 




E1700 


DC 


/08F4 


25 




OAOF 2192 






DC 


/2192 


W 




OAIO 3E1E 






DC 


/3E1E 


AC 




OAll 5A9A 






DC 


/5A9A 


KS 




0A12 2162 






DC 


/2162 


R 




0A13 FFFF 




4: 


DC 


/FFFF 


TERMINATOR 




0A14 323E 




E1701 


DC 


/323E 


DA 




0A15 9E3E 






DC 


/9E3E 


TA 




0A16 219A 






DC 


/219A 


S 




0A17 369E 






DC 


/369E 


ET 




0A18 2176 






DC 


/2176 


N 




0A19 6232 






DC 


76232 


RO 




OAIA A621 






DC 


/A621 


¥ 




OAIB FFFF 




^ 


DC 


/FFFF 


TERMINATOR 




OAIC D421 




E1702 


DC 


/D421 


7 




OAID 9E62 






DC 


/9E62 


TR 




OAIE 2236 






DC 


/2236 


IE 


DATE 


01APR68 15SEP68 


01tlCT69 


01JUN70 




EC NO. 


420411 420416 


571066 


571097 





31710900 

31710910 

31710920 

31710930 

31710940 

31710950 

31710960 

31710970 

31710980 

31710990 

31711000 

31711010 

31711020 

31711030 

31711040 

31711050 

31711060 

31711070 

31711080 

31711090 

31711100 

31711110 

31711120 

31711130 

31711140 

31711150 

31711160 

31711170 

31711180 

31711190 

31711200 

31711210 

31711220 

31711230 

31711240 

31711250 

31711260 

31711270 

31711280 

31711290 

31711300 

31711310 

31711320 

31711330 

31711340 

31711350 

31711360 

31711370 

31711380 

31711390 

31711400 

31711410 

31711420 

31711430 

31711440 

31711450 

31711460 

31711470 

31711480 

31711490 

31711500 

31711510 

31711520 

31711530 

31711540 

31711550 

31711560 

31711570 



PROG ID 
PAGE 



OAIF 9A21 


DC 


/9A21 


s 


0A20 9E21 


DC 


/9E21 


T 


0A21 FFFF 


DC 

4c 


/FFFF 


TERMINATOR 


0A22 D421 


E1703 DC 


/D421 


7 


0A23 9E62 


DC 


/9E62 


TR 


0A24 2236 


DC 


/2236 


IE 


0A25 9A21 


DC 


/9A21 


s 


0A26 6221 


DC 


/6221 


R 


0A27 FFFF 


DC 


/FFFF 


TERMINATOR 


0A28 2276 


E1704 DC 


/2276 


IN 


0A29 B621 


DC 


/B621 


V 


0A2A 9621 


DC 


/9621 


X 


0A2B FFFF 


DC 


/FFFF 


TERMINATOR 


0A2C 2276 


E1705 DC 


/2276 


IN 


0A2D B621 


DC 


/B621 


V 


0A2E A621 


DC 


/A621 


Y 


0A2F FFFF 


DC 

4e 


/FFFF 


TERMINATOR 


0A30 2276 


El 706 DC 


72276 


IN 


0A31 B621 


DC 


/B621 


V 


0A32 6212 


DC 


76212 


RF 


0A33 9E21 


DC 


79E21 


T 


0A34 621E 


DC 


/621E 


RC 


0A35 B632 


DC 


78632 


VD 


0A36 FFFF 


DC 


7FFFF 


TERMINATOR 


0A37 3652 


El 707 DC 


73652 


EO 


0A38 9E21 


DC 


79E21 


T 


0A39 621E 


DC 


7621E 


RC 


0A3A B632 


DC 


7B632 


VD 


0A3B FFFF 


DC 

4c 


/FFFF 


TERMINATOR 


0A3C 3222 


E1708 DC 


/3222 


DI 


0A3D 9A1E 


DC 


/9A1E 


SC 


0A3E 5276 


DC 


/5276 


ON 


0A3F 7636 


OC 


/7636 


NE 


0A40 1E9E 


DC 


/1E9E 


CT 


0A41 FFFF 


OC 

4c 


/FFFF 


TERMINATOR 


0A42 7652 


El 709 OC 


/7652 


NO 


0A43 2122 


DC 


/2122 


I 


0A44 769E 


DC 


/769E 


NT 


0A45 6256 


DC 


/6256 


RP 


0A46 FFFF 


DC 

4c 


/FFFF 


TERMINATOR 


0A47 1E52 


E170A DC 


71E52 


CO 


0A48 769E 


DC 


7769E 


NT 


0A49 3676 


DC 


73676 


EN 


0A4A 9E22 


DC 


/9E22 


Tl 


0A4B 5276 


DC 


75276 


ON 


0A4C FFFF 


DC 

4c 


7FFFF 


TERMINATOR 




4c**4>*********4>*****4c* 
4c 


♦ 4.*4c***4.*4c**4>**« 


0A4D 9E22 


TOMSG DC 


/9E22 


TI 


0A4E 7236 


DC 


77236 


ME 


0A4F 52B2 


DC 


752B2 


OU 


0A50 9E21 


OC 


/9E21 


T 


0A51 FFFF 


DC 


/FFFF 


TERMINATOR 


0A52 0303 


XMMSG DC 


70303 




0A53 9672 


DC 


79672 


XM 


0A54 229E 


DC 


7229E 


IT 


0A55 FFFF 


DC 


7FFFF 


TERMINATOR 



0317-0 
9 



DATE 


0IAPR68 


15SEP68 


01QCT69 


01JUN70 


EC NO. 


420411 


420416 


571066 


571097 



31711580 

31711590 

31711600 

31711610 

31711620 

31711630 

31711640 

31711650 

31711660 

31711670 

31711680 

31711690 

31711700 

31711710 

31711720 

31711730 

31711740 

31711750 

31711760 

31711770 

31711780 

31711790 

31711800 

31711810 

31711820 

31711830 

31711840 

31711850 

31711860 

31711870 

31711880 

31711890 

31711900 

31711910 

31711920 

31711930 

31711940 

31711950 

31711960 

31711970 

31711980 

31711990 

31712000 

31712010 

31712020 

31712030 

31712040 

31712050 

31712060 

31712070 

31712080 

31712090 

31712100 

31712U0 

31712120 

31712130 

31712140 

31712150 

31712160 

31712170 

31712180 

31712190 

31712200 

31712210 

31712220 

31712230 

31712240 

31712250 
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0A56 0303 


RCMSG 


DC 


/0303 




31712260 






OA57 6236 




DC 


/6236 


RE 


31712270 






0A58 1EB6 




DC 


/1EB6 


CV 


31712280 






0A59 FFFF 


* 


DC 


/FFFF 


TERMINATOR 


31712290 
31712300 






0A5A 3662 


ERMSG 


DC 


/3662 


ER 


31712310 






0A5B 6221 




DC 


/6221 


R 


31712320 






0A5C FFFF 


* 


DC 


/FFFF 


TERMINATOR 


31712330 
31712340 






0A5D IE52 


ENCOR 


DC 


/1E52 


CO 


31712350 






0A5E 6236 




DC 


76236 


RE 


31712360 






0A5F FFFF 


* 


DC 


/FFFF 


TERMINATOR 


31712370 
31712380 








t^^it^in^^^^^^^m^m***************************** 


31712390 








* 




GENERATE REQUEST FOR TEST MESSAGE 


31712400 








^^^^^^i^m************************************ 


31712410 








* 








31712420 






0A6 0000 


GNRFT 


DC 


*-* 




31712430 






0A61 D30C 




STO 


3 TABLE4-5-T 


STORE X VALUE 


31712440 






0A62 1 4C2B 0AA3 




BSC 


L XERR.Z* 


BR IF INVALID X VALUE 


31712450 






0A64 93D2 




S 


3 D99-T 




31712460 






0A65 1 4C30 0AA3 


* 


BSC 


L XERRf-Z 


BR IF INVALID X VALUE 


31712470 
31712480 






0A67 83D2 




A 


3 D99-T 




31712490 






0A68 4041 




BSI 


BTO 


CONVERT TO EBCDIC 


31712500 






0A69 D321 


* 


STO 


3 RFTTM*-2-T 


PUT IN RFT MS6 


31712510 
31712520 






0A6A 1 C400 05E2 




LD 


L SH3 


GET Y VALUE 


31712530 






0A6C D30D 




STO 


3 TABLE*6-T 




31712540 






0A6D 1 4C08 0AA5 




BSC 


L YERR,+ 


BR IF INVALID Y VALUE 


31712550 






0A6F 93D2 




S 


3 099-T 




31712560 






0A70 I 4C30 0AA5 


* 


BSC 


L YERR,-Z 


BR IF INVALID Y VALUE 


31712570 
31712580 






0A72 83D2 




A 


3 099-T 




31712590 






0A73 4036 




BSI 


BTO 


CONVERT TO EBCDIC 


31712600 






0A74 D322 




STO 


3 RFTTH+3-T 


PUT IN RFT MSG 


31712610 






0A75 C3DF 




LO 


3 SOHPC-T 




31712620 






0A76 D320 


* 


STO 


3 RFTTM*1-T 


PUT SOH X IN RFT 


31712630 
31712640 






0A77 C3CA 




LD 


3 H0007-T 


SET RFT CHARACTER 


31712650 






0A78 D39C 




STO 


3 CNTA-T 


COUNT TO 7 


31712660 






0A79 C3F2 




LO 


3 HFOOO-T 




31712670 






0A7A 0323 


* 


STO 


3 RFTTM*4-T 


SET N FIELD TO ZERO 


31712680 
31712690 






0A7B C30C 




LD 


3 TABLE*5-T 


GET X VALUE 


31712700 






0A7C 93E7 




S 


3 HOOOl-T 




31712710 






0A70 1 4C18 0A87 


* 


BSC 


L XONE, 6- 


BR IF X=01 


31712720 
31712730 






0A7F C3F3 




LD 


3 HF002-T 




31712740 






0A80 0323 




STO 


3 RFTTM+4-T 


PUT N ZERO STX IN RFT 


31712750 






0A81 C3DE 




LD 


3 ETX-T 




31712760 






0A82 0324 




STO 


3 RFTTM+5-T 


PUT ETX IN RFT MSG 


31712770 






0A83 1 7402 OEIC 




MDX 


L CNTA,£2 


ADD 2 TO COUNT 


31712780 






0A85 C39C 




LO 


3 CNTA-T 




31712790 






0A86 7019 


* 


MDX 


EXITA+5 




31712800 
31712810 






0A87 1 C400 05E9 


XONE 


LO 


L XSPEC+l 


GET CHAR COUNT 


31712820 






0A89 D390 




STO 


3 CNT8-T 




31712830 






0A8A 6300 




LDX 


3 




31712840 






0A8B I C700 05EA 




LO 


L3 XSPEC+2 


GET 2 CHARACTERS 


31712850 






0A80 1890 




SRT 


16 


PUT IN Q 


31712860 






0A8£ 1010 




SLA 


16 




31712870 






0A8F 1088 




SLT 


8 


PUT 1ST CHAR IN ACC 


31712880 






0A90 1 EFOO 0EA3 




OR 


L3 RFTTM+4 


COMBINE WITH LAST CHAR 


31712890 






0A92 1 D700 0EA3 




STO 


L3 RFTTM+4 


PUT IN RFT 


31712900 






0A94 7301 




MDX 


3 1 


ADD ONE TO XR3 


31712910 






0A95 1090 




SLT 


16 


PUT 2N0 CHAR IN ACC 


31712920 






0A96 I D700 0EA3 




STO 


L3 RFTTM64 


STORE IN RFT MSG 


31712930 




DATE 


01APR68 15SEP68 


010CT69 


01JUN70 




PROG ID 
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EC NO- 


420411 420416 


571066 


571097 




PAGE 



0A98 1 74FE OEIO 
0A9A 70F0 

0A9B 1 6700 OE80 
0A9D 1 C400 05E9 
0A9F 839C 
OAAO D31F 
OAAl 1 4C80 0A6O 

0AA3 6204 
0AA4 7001 

0AA5 6205 
0AA6 1 4400 09F3 
0AA8 4480 0164 





MDX 
MDX 


L 


CNTB,-2 
X0NEt4 


DECRE COUNT BY TWO 
BR IF COUNT NOT ZERO 


EXITA 


LDX 
LD 
A 
STO 

BSC 


L3 

L 
3 
3 

1 


T 

XSPEC+1 
CNTA-T 
RFTTM-T 

GNRFT 


RESTORE XR3 

STO RFT CHAR COUNT 

RETURN 


XERR 


LDX 

MDX 


2 


4 
YERR+1 


XR2=MESSAGE NUMBER 


* 
YERR 


LDX 
BSI 
BSI 


2 

L 
I 


5 

ERPRT 

END 


XR2=MESSAGE NUMBEI^ 
GO PRINT MSG 
END PROGRAM 



* CONVERT BINARY TO 2 EBCDIC 

♦ DECIMAL DIGITS 
******************************************** 



DIVIDE BY DEC 10 
PUT HI ORDER DIGIT IN 
ACC 4-7 AND LOW ORDER 
DIGIT IN ACC 12-15 
ADD ZONE BITS 
RETURN 



* GENERATE TEST MESSAGE 

* , 



OAAA 0000 




BTD 


DC 


*-* 


OAAB 1890 






SRT 


16 


OAAC ABFl 






D 


3 HOOOA-T 


OAAD 1088 






SLT 


8 


OAAE 1808 






SRA 


8 


OAAF 1088 






SLT 


8 


OABO EBF4 






OR 


3 HFOFO-T 


OABl 1 4C80 


OAAA 




BSC 


I BTO 



0AB3 





0000 


GNTM 


DC 




*-• 


0AB4 


1 


4C20 OABB 


* 


BSC 


L 


XNOTZ. Z 


0AB6 


1 


6700 05E9 


LDX 


L3 


XSPEC+1 


0AB8 


1 


6F00 OEIE 




STX 


L3 


TMPNT 


OABA 





707A 


* 
XNOTZ 


MDX 




EXITBC4 


OABB 





039A 


STO 


3 


TEMP-T 


0A8C 





93E7 




S 


3 


HOOOl-T 


OABO 


1 


4C20 0A06 


* 


BSC 


L 


XNOTl, Z 


OABF 





C388 


LD 


3 


COUNT-T 


OACO 





93CA 




S 


3 


H0007-T 


OACl 





D39C 




STO 


3 


CNTA-T 


0AC2 





D31F 




STO 


3 


RFTTM-T 


0AC3 


1 


6700 0E9F 




LDX 


L3 


RFTTW 


0AC5 


1 


6F00 OEIE 




STX 


L3 


TMPNT 


0AC7 





6300 




LDX 


3 





0AC8 


1 


C700 OEAO 




LD 


L3 


RAREA+4 


OACA 





1890 




SRT 




16 


OACB 


1 


C700 OEAl 




LD 


L3 


RAREA+5 


OACD 





18C8 




RTE 




8 


OACE 


1 


D700 OEAO 




STO 


L3 


RFTTHSl 


OADO 





1888 




SRT 




8 


OADl 





7301 




MDX 


3 


1 


0A02 


1 


74FE OEIC 




MDX 


L 


CNTA,-2 


0AD4 





70F6 




MDX 




♦-10 


0AD5 





705B 


XNOTl 


MDX 




EXITS 


0AD6 





93E7 


S 


3 


HOOOl-T 


0AD7 


1 


4C20 OAEE 


* 


BSC 


L 


XN0T2,Z 


0AD9 





C3BE 


LO 


3 


D260-T 


OAOA 





031F 




STO 


3 


RFTTM-T 


DATE 01APR68 15SEP68 


010CT69 


01JUN70 


EC NO. 420411 420416 


571066 


571097 



BR IF X NOT ZERO 

SET TEST MESSAGE 
LOCATION INDICATOR 



SAVE X VALUE 

BR IF X NOT ONE 

GET CHAR RECVD COUNT 
SUBTRACT 7 
STORE IN COUNTER A 
STORE IN TEST MSG AREA 
SET TEST MESSAGE 
LOCATION INDICATOR 

GET 2 CHARACTERS 

PUT IN Q 

GET NEXT 2 CHARACTERS 

STO 2 CHAR IN TEST MSG 



DECRE COUNT BY 2 
EXIT IF LAST CHAR 



BR IF X NOT 2 

SET TEST MESSAGE 
CHAR COUNT TO 260 



31712940 

31712950 

31712960 

31712970 

31712980 

31712990 

31713000 

31713010 

31713020 

31713030 

31713040 

31713050 

31713060 

31713070 

31713080 

31713090 

31713100 

31713110 

31713120 

31713130 

31713140 

31713150 

31713160 

31713170 

31713180 

31713190 

31713200 

31713210 

31713220 

31713230 

31713240 

31713250 

31713260 

31713270 

31713280 

31713290 

31713300 

31713310 

31713320 

31713330 

31713340 

31713350 

31713360 

31713370 

31713380 

31713390 

31713400 

31713410 

31713420 

31713430 

31713440 

31713450 

31713460 

31713470 

31713480 

31713490 

31713500 

31713510 

31713520 

31713530 

31713540 

31713550 

31713560 

31713570 

31713580 

31713590 

31713600 

31713610 
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0A06 93C6 


S 


3 H0004-T 




OADC D39C 


STO 


3 CNTA-T 




OADD C3E0 


LD 


3 DLSTX-T 




OADE D320 


STO 


3 RFTTM+1-T 




OAOF C3E7 


LO 


3 HOOOl-T 




OAEO 6300 


LOX 


3 




OAEl 1 D700 OEAl 


STO 


L3 RFTTM+2 




0AE3 1 8400 0E78 


A 


L H0202 




0AE5 7301 


MDX 


3 I 




0AE6 1 74FE OEIC 


MOX 


L CNTA,-2 




0AE8 70F8 


MDX 


*-8 




0AE9 I C400 0E61 


LO 


L DLETX 




OAEB 1 0700 OEAl 


STO 


L3 RFTTM*2 




OAEO 7043 


MDX 
* 
XN0T2 S 


EXITS 




OAEE 93BC 


3 D14-T 




OAEF 1 4C20 OBOF 


BSC 


L XNT16,Z 




OAF! C302 


LD 


3 SELCT-T 




0AF2 1890 


SRT 


16 




0AF3 C3E5 


LD 


3 H0C02-T 




0AF4 1088 


SLT 


8 




OAFS D320 


STO 


3 RFTTM+1-T 




0AF6 1090 


SLT 


16 




0AF7 EBOl 


OR 


3 KOOAA-T 




0AF8 D321 


STO 


3 RFTTM+2-T 




0AF9 C3B6 


LD 


3 HAA55-T 




OAFA 0335 


STO 


3 RFTTH+22-T 




OAFS C3B8 


LD 


3 H5ETX-T 




OAFC D349 


STO 


3 RFTTM+42-T 




OAFD C3B5 


LO 


3 HAAAA-T 




CAFE 6313 


LDX 


3 19 




OAFF 1 0700 OEAl 


STO 


L3 RFTTM+2 




OBOl 73FF 


MOX 


3 -1 




0B02 70FC 


MDX 


*-4 




0B03 6313 


LDX 


3 19 




0B04 1 C400 0E37 


LD 


L H5555 




0B06 1 0700 0EB5 


STO 


L3 RFTTM*22 




0B08 73FF 


MDX 


3 -1 




0B09 70FC 


MDX 


*-4 




OBOA 6700 0056 


LOX 


L3 86 




OBOC 1 6F00 0E9F 


STX 


L3 RFTTM 




OBOE 7022 


MDX 
XNT16 S 


EXITB 




OBOF 93C0 


3 H0003-T 




OBIO 1 4C20 0B2A 


BSC 

* 

LD 


L XNT19,Z 




0B12 C3E0 


3 DLSTX-T 




0B13 0320 


STO 


3 RFTTM+1-T 




0B14 C3E1 


LD 


3 DLFTX-T 




0B15 1 0400 0F32 


STO 


L RFTTMtl47 




0B17 6700 008C 


LDX 


L3 140 




0B19 1010 


SLA 


16 




OBIA 1 D700 OEAO 


STO 


L3 RFTTMEl 




OBIC 73FF 


MDX 


3 -1 




OBID 70FC 


MDX 


*-4 




OBIE 6305 


LDX 


3 5 




OBIF 1 C400 0E39 


LD 


L SYSYN 




0B21 1 D700 0F2C 


STO 


L3 RFTTMS141 




0B23 73FF 


MOX 


3 -1 




0B24 70FC 


MOX 


*-4 




0B25 6700 0126 


LDX 


L3 294 




0B27 1 6F0O 0E9F 


STX 

MDX 


L3 RFTTM 




0B29 7007 


EXITB 




0B2A C39A 


XNT19 LO 


3 TEMP-T 




0B2B 1 F400 05E8 


EOR 


L XSPEC 




0B2D 6113 


LDX 


1 /13 


DATE 


01APR68 15SEP68 


010CT69 


01JUN70 


EC NO. 


4204H 4?0416 


571066 


571097 



SET COUNTER A TO 256 
GET OLE STX CHARACTERS 
PUT IN TEST MSG 
GET 1ST 2 TEXT CHARS 

STORE IN TEST MSG 
ADD TWO TO EACH CHAR 

OECRE COUNT BY TWO 
BR IF NOT LAST CHAR 
GET DLE ETX CHARS 
STORE IN TEST MSG 



BR IF X NOT 16 

GET SELECT CHARACTER 

SEL CHAR TO Q 

GET STX 

ADD ESC OR SYN 

PUT IN TEST MESSAGE 

GET SYN OR SEL CHAR 

GET AA CHARACTERS 

PUT IN TEST MESSAGE 

PUT HEX AA55 IN 

CENTER OF MESSAGE 
PUT 55 EXT AT 

END OF TEST MESSAGE 
PUT 19 HEX AAAA 

CHARACTERS 
IN TEST MESSAGE 



PUT 19 HEX 5555 
CHARACTERS 
IN TEST MESSAGE 



PUT CHAR COUNT 
IN TEST MESSAGE 



BR IF X NOT 19 

PUT OLE STX 

IN TEST MSG 
PUT DLE ETX AT 

END OF TEST MESSAGE 
PUT 140 HEX 0000 

CHARACTERS 
IN TEST MESSAGE 



PUT 5 SYN SYN 
CHARACTERS 
IN TEST MESSAGE 



PUT CHAR COUNT 
IN TEST MSG 



GET X VALUE 

CK EQUAL TO SPECIAL X 



31713620 

31713630 

31713640 

31713650 

31713660 

31713670 

31713680 

31713690 

31713700 

31713710 

31713720 

31713730 

31713740 

31713750 

31713760 

31713770 

31713780 

31713790 

31713800 

31713810 

31713820 

31713830 

31713840 

31713850 

31713860 

31713870 

31713880 

31713890 

31713900 

31713910 

31713920 

31713930 

31713940 

31713950 

31713960 

31713970 

31713980 

31713990 

31714000 

31714010 

31714020 

31714030 

31714040 

31714050 

31714060 

31714070 

31714080 

31714090 

31714100 

31714110 

31714120 

31714130 

31714140 

31714150 

31714160 

31714170 

31714180 

31714190 

31714200 

31714210 

31714220 

31714230 

31714240 

31714250 

31714260 

31714270 

31714280 

31714290 



PROG ID 
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0B2E 1 4C20 0797 
0B30 7085 

0B31 1 6700 0E9F 
0B33 1 6F00 OEIE 
0B35 1 6700 0E80 
0B37 1 4C80 0AB3 



BSC 
MOX 



BDRFT.Z 
GNTM&3 



BR IF NOT EQUAL 



L3 RFTTM 
L3 TMPNT 
L3 T 
I GNTM 



SET TEST MESSAGE 

LOCATION INDICATOR 
RESTORE XR3 
RETURN 
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0B39 C303 


ENPRT LD 


3 RVISW-T 




0B3A 1 4C10 0B3F 




BSC 


L TTD,- 




0B3C 6207 




LDX 


2 7 




0B3D 1 4400 0983 


TTD 


BSI 


L TYPIT 




0B3F C306 


LO 


3 TTOSW-T 




0B40 1 4C10 0B45 




BSC 


L ENTVP,- 




0B42 6208 




LOX 


2 8 




0B43 1 4400 0983 


ENTYI 


BSI 


L TYPIT 




0B45 1010 


' SLA 


16 




0B46 0303 




STO 


3 RVISH-T 




0B47 D306 


* 


STO 


3 TTDSW-T 




0B48 1 7400 0E23 


MOX 


L TMXMI 




0B4A 705D 




MDX 


PRTXM 




0B4B 1 7400 0E22 




MOX 


L TMRCI 




0B4D 705C 


* 
PDAT 


MOX 


PRTRC 




0B4E 1 4400 096E 


BSI 


L CKOPN 




0850 1 C400 05E1 




LD 


L SW2 




0B52 lOOC 




SLA 


12 




0B53 180E 




SRA 


14 




0B54 1 4C18 0BB5 


* 


BSC 


L ENDIT.S- 




0B56 1 6 700 0F40 


LDX 


L3 ENTBL 




0B58 I 6F00 OEIC 


* 
GTCNT 


STX 


L3 CNTA 




0B5A 1 C480 OEIC 


LD 


I CNTA 




0B5C 1 4C18 0BB5 


^ 


BSC 


L ENDIT.a- 




0B5E 1 4C08 0B7D 


* 


BSC 


L ALPH,+ 




0B60 1 D400 OEID 


STO 


L CNTB 




0B62 63F2 




LOX 


3 -14 




0B63 1 7401 OEIC 


GTHEX 


MDX 


L CNTA,+1 




0B65 1 C480 OEIC 




LO 


I CNTA 




0B67 1888 




SRT 


8 




0B68 1008 




SLA 


8 




0B69 1 D700 0E9A 




STO 


L3 TABLE£19 




0668 7301 




MDX 


3 61 




0B6C 1 74FF OEID 




MOX 


L CNTB,-1 




0B6E 7001 




MDX 


*&1 




0B6F 701F 


* 


MDX 


HEX 




0B70 1088 


SLT 


8 




0B71 1008 




SLA 


8 




0B72 1 0700 0E9A 




STO 


L3 TABLEei9 




0B74 1 74FF OEID 




MOX 


L CNTB,-1 




0B76 7003 




MOX 


*S3 




0B77 7301 




MOX 


3 £1 




0B78 1000 




NOP 






0B79 7015 


* 


MDX 


HEX 




0B7A 7301 


MDX 


3 £1 




0B7B 70E7 




MDX 


GTHEX 


DATE 


01APR68 15SEP68 


010CT69 


01JUN70 


EC NO. 


420411 420416 


571066 


571097 



EXITB LOX 
STX 
LDX 
BSC 

* PRINT END OF TEST MESSAGE 



BR IF RVl NOT REC 



BR IF TTO NOT REC 



RESET RVI SWITCH 
RESET TTD SWITCH 



BR IF TEST MSG XMIT INO ON 
BR IF TEST MSG REC INO ON 

CK OPTION SWITCH 

BR IF PRINT TEXT NOT ON 



GET WORD FROM END MSG TBL 
BR IF ZERO 

BR IF ALPHA MSG ADDRS 

SAVE HEX CHAR COUNT 

GET 2 HEX BYTES 

POT HEX WORD IN PRINT TBL 
DECRE CHAR COUNT BY ONE 
BR IF COUNT EXHAUSTED 



PUT 2ND WO IN PRINT TBL 
DECRE COUNT BY ONE 
BR IF CNT NOT ZERO 



GO PRINT IF CNT ZERO 

GO STO NEXT CHAR IF ROOM 



31714300 

31714310 

31714320 

31714330 

31714340 

31714350 

31714360 

31714370 

31714380 

31714390 

31714400 

31714410 

31714420 

31714430 

31714440 

31714450 

31714460 

31714470 

31714480 

31714490 

31714500 

31714510 

31714520 

31714530 

31714540 

31714550 

31714560 

31714570 

31714580 

31714590 

31714600 

31714610 

31714620 

31714630 

31714640 

31714650 

31714660 

31714670 

31714680 

31714690 

31714700 

31714710 

31714720 

31714730 

31714740 

31714750 

31714760 

31714770 

31714780 

31714790 

31714800 

31714810 

31714820 

31714830 

31714840 

31714850 

31714860 

31714870 

31714880 

31714890 

31714900 

31714910 

31714920 

31714930 

31714940 

31714950 

31714960 

31714970 



PROG ID 
PAGE 



0317-0 
UA 
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0B7C 7012 



0B7D 
0B7F 
0881 
OB83 
0B85 
0B87 
0B88 
0B89 
0B8A 
0B8C 
0B8E 

0B8F 
0B91 
0B93 
0B95 
0B96 
0B98 
0B99 
0B9B 
0B9D 
0B9F 
OBAO 
OBAl 
0BA3 



1 EAOO 



1 D400 
1 C400 
1 0400 
4480 
0E87 
4038 
1010 
0400 
7401 
70CB 



0E7C 
0E8& 
0E7A 
CE89 
0163 



0E8A 
OEIC 



C400 



F400 
8400 
D002 
C400 
1800 
ECOO 
1 0400 

4480 

1 0E87 

4020 

1 C400 
I 4C20 



0003 
0E76 
0E7E 

0E7C 

0E7A 
0E89 
0163 



OEID 
0B62 



0BA5 1 7401 OEIC 
0BA7 70B2 

0BA8 6205 
0BA9 7001 



OBAA 
OBAB 
OBAC 
OBAO 
OBAE 
OBBO 
OBBl 
0BB2 
0BB4 



6206 

C3FD 

D308 

0309 

4400 0983 

4010 

lOlO 

D400 0E88 

7099 



0BB5 I C400 0E2A 
0BB7 1 4C28 062A 
0BB9 I 4C08 0632 

OBBB 1 9400 0679 
OBBD 1 4C18 062A 

OBBF 4480 0164 

OBCl 0000 

0BC2 I 6780 OBCl 

0BC4 1 6F00 05E5 

0BC6 4480 0161 



0BC8 0000 
0BC9 D39A 
OBCA F3B2 
OBCB D3AE 
OBCC COFB 
OBCD DOOA 



ALPH 



* 
HEX 



MDX 

AND 

STO 

LO 

STO 

BSI 

DC 

BSI 

SLA 

STO 

MDX 

MDX 

LD 

EOR 

A 

STO 

LO 

SRA 

OR 

STO 

BSI 

DC 

BSI 

LD 

BSC 

MDX 
MDX 



PRTXM LDX 
MDX 

* 

PRTRC LDX 
LD 
STO 
STO 
BSI 
BSI 
SLA 
STO 
MDX 

* 

END IT LD 
BSC 
BSC 

* 

S 
BSC 



CKMON DC 
LDX 
STX 

BSI 



HEX 

H7FFF 

TABLE+3 

H8000 

TABLEE2 

LOG 

TABLE 

CKMON 

16 

TABLE£3 

CNTA.ai 

GTCNT 



GO PRT IF 14 CHARS 



GO PRINT MSG 



SET UP 
NUMBER OF 
CHARACTERS 
TO BE 
PRINTED 



PRINT MSG 



L 

L 
L 

L 
L 



3 

HFFFF 

HI 802 

*£2 

H7FFF 

*-* 

H8000 

TABLE£2 

LOG 

TABLE 

CKMON 

CNTB 

GTHEX-l,Z BR IF MORE HEX CHARACTERS 

CNTA.&l 
GTCNT 



5 
*61 

6 

HOOIF-T 

TABLE*!- 

TABLE*2- 

TYPIT 

CKMON 

16 

TABLE+1 

PDAT 

OPTIN 

STRT.Z* 

CNTRLt* 

RIDCK 
STRT,+- 



GO PRINT MSG 



BR IF OPTION SH 15 ON 
BR IF NO RTN SEL ECTED 



BSI I END 



*-♦ 
13 CKMON 
L3 MLSCF 
I START 



* STORE AL 

* 



PHA MSG IN PRINT TABLE 



STALP DC 
STO 
EOR 
STO 
LO 
STO 



*-* 

TEMP-T 

MSG4-T 

NOERR-T 

STALP 

STOIT 



SAVE MSG AODRS 



SET UP 
RETURN 



31714980 

31714990 

31715000 

31715010 

31715020 

31715030 

31715040 

31715050 

31715060 

31715070 

31715080 

31715090 

31715100 

31715110 

31715120 

31715130 

31715140 

31715150 

31715160 

31715170 

31715180 

31715190 

31715200 

31715210 

31715220 

31715230 

31715240 

31715250 

31715260 

31715270 

31715280 

31715290 

31715300 

31715310 

31715320 

31715330 

31715340 

31715350 

31715360 

31715370 

31715380 

31715390 

31715400 

31715410 

31715420 

31715430 

31715440 

31715450 

31715460 

31715470 

31715480 

31715490 

31715500 

31715510 

31715520 

31715530 

31715540 

31715550 

31715560 

31715570 

31715580 

31715590 

31715600 

31715610 

31715620 

31715630 

31715640 

31715650 



OBCE C3A1 
OBCF D3A0 
OBOO 1 7401 0E20 
0BD2 939F 
0BD3 1 4C30 OBFC 

0BD5 1 4C10 0BF7 
0B07 701D 



LD 

STO 

MDX 

S 

BSC 

BSC 

MDX 



3 ENPNT-T 
3 CNTPT-T 

L CNTPT,+1 
3 TOP-T 

L OUT67,Z- 

L 0UT&2,- 
OUT 



BR IF NO MORE CORE 

BR IF ONE ADDRS LEFT 
BR TO STORE MSG ADORS 



0BD8 
0BD9 



0000 
D39A 



OBDA C3A1 
OBOB 939F 
OBOC 1 4C30 OBFC 

OBDE 1 4C10 0BF7 

OBEO C3A0 
OBEl F3A1 
0BE2 1 4C20 0BE7 



0BE4 


1 


7401 


0E21 


0BE6 





70F3 




0BE7 


1 


C480 


0E20 


0BE9 





83E7 




OBEA 


1 


D480 


0E20 


OBEC 


1 


4C04 


0BF5 



OBEE I 74FF 0E21 
OBFO C39A 
OBFl 1808 
0BF2 I EC80 0E21 
0BF4 7003 

0BF5 C39A 
0BF6 7001 
0BF7 C3B3 
0BF8 1 D480 0E21 
OBFA 1 7401 0E21 
OBFC 1010 
OBFD 1 D480 0E21 
OBFF 1 4C80 0BD8 



OCOl 





0000 




0C02 


I 


6E00 


0E02 


0C04 


1 


6700 


0E8O 


0C06 





OBCE 




0C07 





D396 




0C08 





C395 




0C09 


1 


4C18 


OOFD 


OCOB 





C3FC 




OCOC 





D399 





»♦♦*♦*♦****♦********♦♦****»************♦**** 

* STORE HEX CHARACTER IN PRINT TABLE 

^t^^i^f ************************************** 

* 



STOIT DC 
STO 
LD 
S 
BSC 



*-* 
3 TEMP-T 
3 ENPNT-T 
3 TOP-T 
L OUTET.Z- 



* 
* 



BSC L 0UT£2f- 



OCOD C393 
OCOE 1 4C18 0C4A 



LO 

EOR 

BSC 

MDX 

MDX 

LO 

A 

STO I 



3 CNTPT-T 
3 ENPNT-T 
L *£3,Z 



OUT 



BSC 

MDX 

LO 

SRA 

OR 

MDX 

LD 

HDX 

LO 

STO 

MDX 

SLA 

STO 

BSC 



ENPNT.&l 

STOIT £2 

CNTPT 

3 HOOOl-T 

CNTPT 

OUT.E 



L ENPNT,-1 
3 TEMP-T 

8 
I ENPNT 

OUT £3 

3 TEMP-T 

*£1 
3 MSG5-T 
I ENPNT 
L ENPNT, 61 

16 
I ENPNT 
I STOIT 



SAVE HEX CHARACTER 

BR IF NO MORE CORE 

BR IF ONE ADDRESS LEFT 

BR IF ALPH MSG WAS LAST 

INCRE POINTER 
BRANCH 

ADD 1 TO HEX CHAR CNT 

BR IF COUNT ODD 

DECRE POINTER BY ONE 



PACK TWO HEX CHARACTERS 
BRANCH 

GET CHARACTER 
SKIP 

STO ALPH OR HEX MSG 
INCRE POINTER BY ONE 



RETURN 



******************************************** 
* INTERRUPT SERVICE ROUTINE 

******************************************** 

♦ 



INT 



DC ♦-* 

STX L2 EXIT+1 

LDX L3 T 

XIO 3 SNSRS-T 

STO 3 DSW-T 

LD 3 RTBSY-T 

BSC L EXITl.S- 



LD 
STO 

LO 
BSC 



3 H7FFF-T 
3 HTCNT-T 

3 FCODE-T 
L RECV.E- 



SAVE XR2 

XR3#C0NSTANT TBL 
SENSE SCft DSW 
SAVE DSW 

BR IF RTN NOT BUSY 
RESTORE WAIT COUNT 
BR IF RECV FUNCTION 



♦ TRANSMIT FUNCTION 



31715660 

31715670 

31715680 

31715690 

31715700 

31715710 

31715720 

31715730 

31715740 

31715750 

31715760 

31715770 

31715780 

31715790 

31715800 

31715810 

31715820 

31715830 

31715840 

31715850 

31715860 

31715870 

31715880 

31715890 

31715900 

31715910 

31715920 

31715930 

31715940 

31715950 

31715960 

31715970 

31715980 

31715990 

31716000 

31716010 

31716020 

31716030 

31716040 

31716050 

31716060 

31716070 

31716080 

31716090 

31716100 

31716110 

31716120 

31716130 

31716140 

31716150 

31716160 

31716170 

31716180 

31716190 

31716200 

31716210 

31716220 

31716230 

31716240 

31716250 

31716260 

31716270 

31716280 

31716290 

31716300 

31716310 

31716320 

31716330 
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OCIO 





C396 






LD 


3 


DSW-T 




31716340 






OCll 





1003 






SUA 




3 




31716350 






0C12 


1 


4C10 


OCIF 


* 


BSC 


L 


WRESP, - 


BR IF NO TIMEOUT 


31716360 
31716370 






0C14 





C386 






LD 


3 


MDSWT-T 




31716380 






0C15 





93C0 






S 


3 


H0003-T 




31716390 






0C16 





4818 






BSC 




6- 


SKIP NOT TRANS MODE 


31716400 






0C17 





OBCO 






XIO 


3 


TIMER-T 


START PROG TIMER 


31716410 






0C18 





C3E5 






to 


3 


H0002-T 




31716420 






0CI9 





D392 






STO 


3 


SYNC-T 


XMIT SYNS IND TO 2 


31716430 






OCIA 





C396 






LD 


3 


DSW-T 




31716440 






OCIB 





1001 






SLA 




1 




31716450 






OCIC 


1 


4C10 


OEOl 


* 


BSC 


L 


EXIT,- 


RETURN IF NOT WR RESP 


31716460 
31716470 






OCIE 





C38A 




WRESP 


LD 


3 


LSOLE-T 




31716480 






OCIF 


1 


4C20 


0C3A 


* 


BSC 


L 


CKCNT, Z 


BR IF LAST CHAR WAS OLE 


31716490 
31716500 






0C21 





C386 






LD 


3 


MDSWT-T 




31716510 






0C22 





93C0 






S 


3 


H0003-T 




31716520 






0C23 


1 


4C30 


0C3A 


* 


BSC 


L 


CKCNT, Z- 


BR IF BCC TIME 


31716530 
31716540 






0025 





C392 






LD 


3 


SYNC-T 




31716550 






0C26 


1 


4C08 


0C3A 


* 


BSC 


L 


CKCNT, C 


BR IF SYNS IND ZERO 


31716560 
31716570 






0C28 





93E7 






S 


3 


HOOOl-T 


OECRE SYNS IND BY ONE 


31716580 






0C29 





0392 






STO 


3 


SYNC-T 




31716590 






0C2A 


1 


4C18 


0C35 


* 


BSC 


L 


WSYNC, e- 


BR IF SYNS IND ZERO 


31716600 
31716610 






0C2C 





C386 






LD 


3 


MOSWT-T 




31716620 






0C2D 





93C0 






S 


3 


H0003-T 




31716630 






0C2E 


1 


4C20 


0C35 


* 


BSC 


L 


WSYNC, Z 


BR IF NOT TRANS MODE 


31716640 
31716650 






- 0C3O 





C309 






LD 


3 


OLE-T 




31716660 






0C31 





40A6 






BSI 




STOIT 


STORE OLE IN PRINT TBL 


31716670 






CC32 





0BC2 






XIO 


3 


WRDLE-T 


XMIT OLE 


31716680 






0C33 


I 


4C00 


OEOl 


♦ 


BSC 


L 


EXIT 


RETURN 


31716690 
31716700 






0C35 





C3D8 




WSYNC 


LD 


3 


SYN-T 




31716710 






0C36 





40AI 






BSI 




STOIT 


STORE SYN IN PRINT TBL 


31716720 






0C37 





03C4 






XIO 


3 


WRSYN-T 


XMIT SYN 


31716730 






0C38 


1 


4C00 


OEOl 


* 


BSC 


L 


EXIT 


RETURN 


31716740 
31716750 






0C3A 





C388 




CKCNT 


LD 


3 


COUNT-T 




31716760 






0C3B 


1 


4C04 


0C44 


* ■ 


BSC 


L 


ODD,E 


BR IF CHAR COUNT ODD 


31716770 
31716780 






0C3D 


1 


C480 


0E14 




LD 


I 


POINT 


GET WORD FROM I/O AREA 


31716790 






0C3F 





E3F5 






AND 


3 


HFFOO-T 


MASK OUT BITS 8-15 


31716800 






0C40 





D391 




STBFR 


STO 


3 


BUFFR-T 


PUT CHAR IN BUFFER 


31716810 






0C41 


1 


7401 


0E08 




MDX 


L 


COUNT, 61 


INCRE CHAR COUNT 61 


31716820 






0C43 





702B 




* 


MOX 




HDXMD 


GO TO CK MODE 


31716830 
31716840 






0C44 


1 


C480 


0E14 


ODD 


LD 


I 


POINT 


GET WORD FROM I/O AREA 


31716850 






0C4& 





1008 






SLA 




8 


BITS 8-15 TO WRITE POSIT 


31716860 






0C47 


1 


7401 


0E14 




MOX 


L 


POINT, ei 


INCRE ADDR POINTER €1 


31716870 






0C49 





70F6 




* 


MDX 




STBFR 




31716880 
31716890 
31716900 




































♦ 






RECEIVE FUNCTION 


31716910 














* 













31716920 






0C4A 





C396 




RECV 


LD 


3 


DSW-T 




31716930 






0C4B 





1003 






SLA 




3 




31716940 






0C4C 


1 


4C10 


0C55 


* 


BSC 


L 


READS, - 


BR IF NOT TIMEOUT 


31716950 
31716960 






0C4F 





C3F6 






LD 


3 


HFFFF-T 




31716970 






0C4F 





0391 






STO 


3 


BUFFR-T 


SET TIMEOUT END 


31716980 






0C50 





C3AF 






LD 


3 


MSGl-T 


STORE TIMEOUT MSG 


31716990 






0C51 


1 


4400 


0BC8 




BSI 


L 


STALP 


IN PRINT TBL 


31717000 






0C53 


1 


4C00 


OOFB 




BSC 


L 


RCEXT 




31717010 




DATf 


01APR68 15SEP68 


01CCT6^ 


01JUN70 




PROG ID 


0317-0 


EC NO. 


42041] 


! 420416 


571066 


571097 




PAGE 


13 





0C55 0BC8 


READB XIO 


3 


READ-T 


READ SCA BUFFER 




31717020 
31717030 






0C56 C391 




LD 


3 


BUFFR-T 






31717040 






0C57 1 4400 0BD8 




BSI 


L 


STOIT 


STO CHAR IN PRINT TBL 




31717050 






0C59 C391 




LD 


3 


BUFFR-T 






31717060 






0C5A F3D9 




EOR 


3 


DLE-T 






31717070 






0C5B 1 4C18 0C6F 




BSC 


L 


MDXMD.e- 


BR IF DLE 




31717080 






0C5D C305 




LD 


3 


STXSW-I 






31717090 






0C5E 1 4C28 0C67 




BSC 


L 


TTDCK, £Z 


BR IF LAST CHAR HAS STX 


31717100 






0C60 C391 




LD 


3 


BUFFR-T 






31717110 






0C61 F3DD 




EOR 


3 


STX-T 






31717120 






0C62 1 4C20 0C6F 




BSC 


L 


MDXMD,Z 


BR IF NOT STX 




31717130 






0C64 COOO 




LD 




* 






31717140 






0C65 D305 




STO 


3 


STXSW-T 


SET STX REC FLAG 




31717150 






0C66 7008 


* 


MDX 




MOXMD 






31717160 
31717170 






0C67 1810 


TTDCK 


SRA 




16 






31717180 






0C68 D305 




STO 


3 


STXSW-T 


RESET STX SWITCH 




31717190 






0C69 C391 




LD 


3 


BUFFR-T 






31717200 






0C6A F3E8 




EOR 


3 


ENQ-T 






31717210 






0C6B 1 4C20 0C6F 




BSC 


L 


MOXMD, Z 


BR IF NOT TTD 




31717220 






0C6D COOO 




LD 




* 






31717230 






0C6E D306 


* 


STO 


3 


TTDSW-T 


SET TTD FLAG 




31717240 
31717250 








* 




— _. 









31717260 








♦ 






BRANCH TO 


PROPER MODE 




31717270 
31717280 














-^^■^^— — — ^— »^ — ^^— — — ^ 






0C6F I 6680 0E06 


MOXMD 


LDX 


12 


MOSWT 


GET MODE INDICATOR 




31717290 






0C71 1 4E80 0C73 




BSC 


12 


* 


TO PROPER ROUTINE 




3171 7300 






0C73 1 0C7A 




DC 




NOMOD 


NO MODE SET 


R2=0 31717310 






0C74 1 0C93 




DC 




HEAOG 


XMIT/REC HEADING 


R2=l 31717320 






0C75 1 GC9B 




DC 




NORHL 


XHIT/REC NORM TEXT 


R2=2 31717330 






0C76 I OCAC 




DC 




TRANS 


XMIT/REC TRANS TEXT 


R2= 


=3 31717340 






0C77 1 OCED 




DC 




BCCl 


XMIT/REC LOW ORO BCC 


R2= 


=4 31717350 






0C78 1 0000 




OC 




BCC 2 


XMIT/REC HIGK ORO BCC 


R2=5 31717360 






0C79 1 0D2C 


* 

it 


DC 




ITBMD 


INT BLK CK MODE 


R2= 


=6 31717370 
31717380 
31717390 














'""--— —^'—"~ " " ^— .— -■■^— - 








* 






NO MODE SET 




31717400 








:^ 







-— — — 







31717410 






0C7A C38C 


NOMOD 


LD 


3 


FIRST-T 






31717420 






0C7B 1 6C00 OEOC 




STX 


L 


FIRST 


SET FIRST CHAR IND 




31717430 






0C7D 4818 


* 


BSC 




+- 


SKIP IF IND ON 




31717440 
31717450 






0C7E OBCA 




XIO 


3 


RETIM-T 


RESTART TIMER 




31717460 






0C7F C391 




LD 


3 


BUFFR-T 






31717470 






0C80 F3E8 




EOR 


3 


ENQ-T 






31717480 






0C81 4820 




BSC 




Z 


SKIP IF ENQ 




31717490 






0C82 F3EB 




EOR 


3 


EOEOT-T 






31717500 






0C83 1 4C18 0C8F 


* 


BSC 


L 


DONE, 6- 


BR IF ENQ OR EOT 




31717510 
31717520 






0C85 C391 




LD 


3 


BUFFR-T 






31717530 






0C86 F3E4 




EOR 


3 


NAK-T 






31717540 






0C87 I 4C18 0C8F 


* 


BSC 


L 


DONE.e- 


BR IF NAK 




31717550 
31717560 






0C89 C391 




LD 


3 


BUFFR-T 






31717570 






0C8A F3DA 




EOR 


3 


WAK-T 






31717580 






0C8B 1 4C20 0D35 




BSC 


L 


CKSTX&1,Z 


BR IF NOT WACK 




31717590 






0C8D 1 6C00 0E05 


* 


STX 


L 


HSWAK 


SET WACK RECEIVED FLAG 




31717600 
31717610 






0C8F 1010 


DONE 


SLA 




16 






31717620 






OC90 0395 




STO 


3 


RTBSY-T 


RESET RTN BUSY IND 




31717630 






0C91 1 4CQ0 ORBB 


4: 


BSC 


L 


ROWRT 






31717640 
31717650 
31717660 














— — — — _ «. 








* 






TRANSMIT/RECEIVE HEADING TEXT 




31717670 








* 















31717680 






0C93 1 4400 0D7B 


HEADG 


BSI 


L 


CKSYN 


GO CHECK FOR SYN CHAR 




31717690 




DATE 
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0C95 1 4400 0034 
0C97 1 4400 0D8F 
0C99 1 4C00 0DA9 



BSI L CKSTX GO CHECK FOR START CHAR 
BSI L CKEND GO CHECK FOR END CHAR 
BSC L BLKCK CALC BCC AND XMIT OR STO 



0C9B 
0C9D 
0C9E 
0C9F 
OCAO 
OCAl 
0CA2 
0CA3 
0CA5 
0CA7 



4400 0D7B 

C391 

F3D9 

4820 

F3E0 

4820 

F3DB 

4C18 0CA9 

4400 008F 

4C00 0DA9 



0CA9 COOO 
OCAA D387 
OCAB 70FB 



OCAC C38A 
OCAD I 4C20 OCBT 

OCAF C391 
OCBO F3D9 
OCBl 1 4C20 0DA9 
0CB3 COOO 
0CB4 D38A 
0CB5 1 4C00 ODBB 

0CB7 1010 
0CB8 D38A 
0CB9 C393 
OCBA 1 4C20 OCCD 

OCBC C391 
OCBO F308 
OCBE 1 4C18 0CD6 

OCCO F3DC 
OCCl 1 4C20 0CC7 

0CC3 1 4400 0OA8 
0CC5 1 4C00 OEOl 

0CC7 1 4400 0D8F 
0CC9 COOO 
OCCA D387 
OCCB 1 4C00 00A9 

OCCO 1 C480 0E13 
OCCF 9388 
OCDO 1 4C30 0CD6 

0C02 1 4400 0D8F 
0C04 1 4C00 00F3 

0CD6 C388 

0CD7 1 4C04 OCOB 

0CD9 1 74FF 0E14 

OCDB 1 74FF 0E08 

OCDO C393 

OCDE 1 4C20 0CE3 



* 

♦ 

NORML BSI 
LD 
EOR 
BSC 
EOR 
BSC 
EOR 
BSC 
BSI 
BSC 

* 

LD 

STO 

MOX 



TRANSMIT/RECEIVE NORMAL TEXT 



L CKSYN 
3 BUFFR-T 
3 DLE-T 

Z 
3 DLSTX-T 

Z 
3 SXSOH-T 
L **4,*- 
L CKEND 
L BLKCK 



3 ERR-T 
*-5 



GO CK FOR SYN CHAR 

SKIP IF DLE CHAR 

SKIP IF OLE OR STX 

BR IF OLE STX OR STX 

GO CK FOR END CHAR 

GO TO XMIT OR STO CHAR 

SET ERROR INDICATOR 



DATE 
EC NO. 



01APR68 
420411 



15SEP68 
420416 



* 

« 

* 

TRANS LD 
BSC 

♦ 

LO 

EOR 

BSC 

LD 

STO 

BSC 

* 

DLESO SLA 
STO 
LD 
BSC 

LO 
EOR 
BSC 
* 

EOR 
BSC 

BSI 
BSC 

* 

NOTDL BSI 
LD 
STO 

BSC 

* 

XMTOP LD 
S 
BSC 

* 

BSI 
BSC 

OCRCT LD 
BSC 

MOX 
MOX 
LD 
BSC 



010CT&9 
571066 



TRANSMIT/RECEIVE TRANSPARENT TEXT 
3 LSOLE-T 



L OLESQiZ 

3 BUFFR-T 
3 OLE-T 
L BLKCK, Z 

3 LSOLE-T 

L RDWRT 

16 
3 LSOLE-T 
3 FCOOE-T 
L XMTOP, Z 

3 BUFFR-T 
3 SYN-T 
L DCRCT , S- 

3 OL SYN-T 
L NOTOL.Z 



CALBC 
EXIT 



L CKEND 
* 
3 ERR-T 
L BLKCK 

I FCOOE 

3 COUNT-T 
L DCRCT, Z- 

L CKEND 
L XMEXT 

3 COUNT-T 
L *e2,E 
L POINT, -1 
L COUNT, -1 

3 FCOOE-T 
L WRF.Z 



01JUN70 
571097 



BR IF LAST CHAR WAS DLE 

BR IF NOT DLE IN BUFFER 
SET LAST OLE INO 

RESET LAST CHAR DLE IND 
BR IF XMIT FUNCTION 

BR IF SYN RECVD 

BR IF NOT DLE RECVD 
GO CALCULATE BCC 

GO CK FOR END CHAR 



BR IF NOT LAST CHAR XMIT 
GO CK FOR END CHAR 



BR IF COUNT ODD 
DECRE ADDR POINTER -1 
OECRE COUNT -1 

BR IF XMIT FUNCTION 



31717700 




♦ 










31718380 




31717710 


OCEO OBCA 




XIO 


3 


RETIM-T 


RESTART TIMER 


31718390 




31717720 


OCEl 1 4C00 OEOl 




BSC 


L 


EXIT 




31718400 




31717730 




4i 










31718410 




31717740 


0CE3 0BC2 


WRF 


XIO 


3 


WRDLE-T 


XMIT DLE CHAR 


31718420 




31717750 


0CE4 C309 




LO 


3 


OLE-T 




31718430 




31717760 


0CE5 D391 




STO 


3 


BUFFR-T 




31718440 




31717770 


0CE6 1 4400 OOAB 




BSI 


L 


CALBC 




31718450 




31717780 


0CE8 C3D9 




LD 


3 


OLE-T 




31718460 




31717790 


0CE9 1 4400 0BD8 




BSI 


L 


STOIT 




31718470 




31717800 


OCEB 1 4C00 OEOl 




BSC 


L 


EXIT 




31718480 




31717810 




* 










31718490 
31718500 




31717820 




* — — .— 




i.^— — 






_X ■& > '& ^mf -^ «^ \^ 




31717830 




* 






TRANSMIT/RECEIVE BCC CHARACTERS 


31718510 




31717840 




« 













31718520 




31717850 


OCEO 6205 


BCCl 


LDX 


2 


5 




31718530 




31717860 


OCEE 1 6E00 0E06 




STX 


L2 


HDSWT 


■ SET BCC2 IN MODE INO 


31718540 




31717870 


OCFO C393 




LD 


3 


FCOOE-T 




31718550 




31717880 


OCFl I 4C20 0CF8 




BSC 


L 


XMBCC, Z 


BR IF XMIT FUNCTION 


31718560 




31717890 > 




* 










31718570 




31717900 


0CF3 C391 




LD 


3 


BUFFR-T 




31718580 




31717910 


0CF4 1808 




SRA 




8 


SAVE LOM ORDER 8 BITS 


31718590 




31717920 


0CF5 0397 




STO 


3 


8CCR-T 


OF BLOCK CK CHAR 


31718600 




31717930 


0CF6 1 4C00 OEOl 




BSC 


L 


EXIT 




31718610 




31717940 




* 










31718620 




31717950 


0CF8 C389 


XMBCC 


LO 


3 


BCCA-T 




31718630 




31717960 


0CF9 1008 




SLA 




8 


GET LOW 8 BITS BCC A 


31718640 




31717970 


OCFA D391 




STO 


3 


BUFFR-T 


PUT IN BUFFER 


31718650 




31717980 


OCFB I 4400 0BD8 




BSI 


L 


STOIT 




31718660 




31717990 


OCFO OBCC 




XIO 


3 


MRBUF-T 


XMIT BUFFER 


31718670 




31718000 


OCFE 1 4C00 OEOl 




BSC 


L 


EXIT 




31718680 




31718010 




* 










31718690 




31718020 


ODOO C393 


BCC 2 


LD 


3 


FCODE-T 




31718700 




31718030 


ODOl 1 4C20 001 1 




BSC 


L 


XMLST.Z 


BR IF XMIT FUNCTION 


31718710 




31718040 




* 










31718720 




31718050 


0D03 C391 




LO 


3 


BUFFR-T 




31718730 




31718060 


0004 EB97 




OR 


3 


BCCR-T 




- 31718740 




31718070 


0DO5 0397 




STO 


3 


BCCR-T 


SAVE RECVO BCC CHAR 


31718750 




31718080 


0D06 9389 




S 


3 


BCCA-T 




31718750 




31718090 


0007 4820 




BSC 




Z 


SKIP IF NO BCC ERROR 


31718770 




31718100 


0D08 0387 




STO 


3 


ERR-T 


SET ERROR IND 


31718780 




31718110 


0009 D389 




STO 


3 


BCCA-T 




31718790 




31718120 


ODOA C390 




LD 


3 


MDSAV-T 




31718800 




31718130 


ODOB 1 4CI8 OOFS 




BSC 


L 


RCEXT,+- 




31718810 




31718140 




* 










31718820 




31718150 


ODOD 6206 




LDX 


2 


6 




31718830 




31718160 


ODOE 1 6E00 0E06 




STX 


L2 


MOSMT 




31718840 




31718170 


ODIO 70ED 




MOX 




BCC 2-2 




31718850 




31718180 




* 










31718860 




31718190 


ODll C38E 


XML ST 


LD 


3 


PAD-T 




31718870 




31718200 


0012 1 4C20 0025 




BSC 


L 


XMPAO,Z 


BR TO XHIT PAD 


31718880 




31718210 




* 










31718890 




31718220 


0014 C389 




LD 


3 


BCCA-T 




31718900 




31718230 


0015 E3F5 




AND 


3 


HFFOO-T 




31718910 




31718240 


0D16 0391 




STO 


3 


BUFFR-T 


PUT BCC CHAR IN BUFFR 


31718920 




31718250 


0D17 1 4400 0B08 




BSI 


L 


STOIT 




31718930 




31718260 


0D19 OBCC 




XIO 


3 


WRBUF-T 


WRITE BUFFER 


31718940 




31718270 


ODIA C390 




LD 


3 


MDSAV-T 




31718950 




31718280 


OOIB 1 4C18 0D21 




BSC 


L 


♦64, £- 


BR IF NO ITB 


31718960 




31718290 




* 










31718970 




31718300 


ODID 6206 




LDX 


2 


6 




31718980 




31718310 


OOIE 1 6E00 0E06 




STX 


L2 


MDSWT 


SET ITB MODE 


31718990 




31718320 


0D20 7002 




MOX 




*G2 




31719000 




31718330 


0D21 1 6C00 OEOE 




STX 


L 


PAD 


SET XMIT PAD IND 


31719010 




31718340 


0023 1 4C00 OEOl 




BSC 


L 


EXIT 




31719020 




31718350 




* 










31719030 




31718360 


0D25 C3F5 


XMPAC 


LO 


3 


HFFOO-T 




31719040 




31718370 


0026 0391 




STO 


3 


BUFFR-T 


SET PAD IN BUFFR 


31719050 
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0D27 OBCC 
OD28 1010 
0D29 D391 
0D2A 1 4C00 0DF3 



0D2C 
0D20 
002E 
0D2F 



404E 
C390 

D386 
1010 



0D30 D389 
0D31 D390 
0D32 1 4C00 00fl9 



0034 0000 
0D35 C38A 
0D36 1 4C20 0D4B 

0D38 C391 
0039 F3D9 
003A 1 4Cie 0D6A 

0D3C C38D 
0D3D 1 4C20 0D65 

0D3F C391 
OD40 F3DD 
0D41 1 4C18 0D6D 

0D43 F3DB 
0D44 1 4C18 0D71 

0045 C38C 
0047 1 4C98 0D34 

0049 D38D 
004A 701A 

0D4B 1010 
0D4C 038A 

004D C38D 
0D4E I 4C20 0C8F 

0D50 C391 
0D51 F30D 
0D52 I 4C20 005F 



0D54 
0055 
0D57 
005 8 
0059 
0D5A 
0D5B 



6203 

6E00 0EO6 

C393 

4820 

OBCO 

C38C 

4C18 0DA9 



0D50 1 4C00 00B6 

005F C38C 
0D60 1 4C20 0C8F 

0062 COOO 

0063 0387 
0D64 70F5 

0D65 C393 
0066 1 4C18 OFOl 



XIO 
SLA 

STO 
BSC 

* 

ITBMD BSI 
LD 
STO 
SLA 
STO 
STO 
BSC 

* 

CKSTX DC 
LD 

BSC 

* 

LD 

EOR 

BSC 

LD 
BSC 

LD 

EOR 

BSC 

FOR 
BSC 

LD 
BSC 

STO 
MDX 

* 

STXCK SLA 
STO 

LD 
BSC 

* 

LD 

EOR 

BSC 

* 

LDX 

STX 

LD 

BSC 

XID 

CKFST LD 
BSC 
BSC 

* 

NOSTX LD 
BSC 

* 

SETER LO 
STO 
MDX 

* 

WTEXT LO 
BSC 



XMIT PAD 



BR IF LAST CHAR OLE 



BR IF OLE IN BUFFER 



3 WR8UF-T 

16 
3 BUFFR-T 
L XMEXT 

CKSYN 
3 HDSAV-T 
3 MOSWT-T 

16 
3 BCCA-T 
3 MDSAV-T 
L BLKCK 



CHECK FOR START OF TEXT 



*-* 
3 LSDLE-T 
L STXCK, Z 

3 BUFFR-T 
3 DLE-T 
L BFDLE,C- 

3 SECND-T 
L WTEXT, Z 

3 BUFFR-T 
3 STX-T 
L BFSTX,e.- 

3 SXSOH-T 
L BFSOH,&- 

3 FIRST-T 
I CKSTX, £- 

3 SECND-T 
MTEXT 

16 
3 LSOLE-T 

3 SECND-T 
L DONE,Z 

3 BUFFR-T 
3 STX-T 

L NOSTX, Z 

2 3 

L2 MDSWT 

3 FCOOE-T 
Z 

3 TIMER-T 
3 FIRST-T 

L BLKCK, £- 

L RDWRT 

3 FIRST-T 

L DONE,Z 



BR IF STX IN BUFFER 

BR IF SON IN BUFFER 

BR IF SECND WD INO ZERO 
SET SECOND WORD IND 

RESET LAST CHAR OLE IND 



BR NOT STX IN BUFFER 

SET TRANSPARENT MODE 

SKIP IF RECV FUNCTION 
START PROG TIMER 

BR IF NOT FIRST CHAR 



3 FRR-T 
CKFST 

3 FCOOE-T 
L EXIT,+- 



SET ERROR IND 



31719060 

31719070 

31719080 

31719090 

31719100 

31719110 

31719120 

31719130 

31719140 

31719150 

31719160 

31719170 

31719180 

31719190 

31719200 

31719210 

31719220 

31719230 

31719240 

31719250 

31719260 

31719270 

31719280 

31719290 

31719300 

31719310 

31719320 

31719330 

31719340 

31719350 

31719360 

31719370 

31719380 

31719390 

31719400 

31719410 

31719420 

31719430 

31719440 

31719450 

31719460 

31719470 

31719480 

31719490 

31719500 

31719510 

31719520 

31719530 

31719540 

31719550 

31719560 

31719570 

31719580 

31719590 

31719600 

31719610 

31719620 

31719630 

31719640 

31719650 

31719660 

31719670 

31719680 

31719690 

31719700 

31719710 

31719720 

31719730 



0D6 8 I 4C00 ODBB 

0D6A COOO 
006B D38A 
0D6C 70ED 

006D 6202 
0D6E I 6EO0 0E06 
0D70 70E9 

0D71 C38C 
0072 1 4C18 0D62 
0D74 1010 
0D75 D38C 
0076 038D 
0D77 6201 
0078 1 6E00 0E06 
00 7A 70E2 



0D7B 0000 

0D7C C391 

0070 F3D8 

0D7E I 4C20 008B 

0080 D38A 

0081 C393 

0082 1 4C20 ODBB 

0084 C38B 

0085 4820 

0086 

0087 
0D88 
0D89 1 



BSC 

BFDLE LD 
STO 

MDX 
* 

BFSTX LDX 
STX 
MDX 

BFSOH LD 
BSC 
SLA 
STO 
STO 
LDX 
STX 
MDX 

* 

* ^ 



RDWRT 



3 LSDLE-T 
CKFST 

2 2 

L2 MDSWT 
CKFST 

3 FIRST-T 
L SETER, C- 

16 
3 FIRST-T 
3 SECND-T 
2 1 
L2 MDSWT 
CKFSTE3 



SET LAST CHAR OLE IND 



SET NORMAL TEXT MODE 



BR IF NOT FIRST CHAR 

RESET FIRST CHAR INO 
RESET SECOND CHAR INO 

SET HEADING MODE 



CHECK FOR SYN CHARACTER 



OBCA 
COOO 
038B 
4C00 OEOl 



0D8B 1010 
0D8C D38B 
0D8D 1 4C80 0D7B 



0D8F 





0000 


0090 





C391 


0091 





F3EC 


0D92 





4820 


0093 





F3ED 


0094 


1 


4C18 0DA7 


0D96 





C391 


0D97 





F3E8 


0D98 





4820 


0099 





F3EB 


0D9A 


1 


4C20 ODAl 



CKSYN DC 
LD 
EOR 
BSC 

STO 
LO 

BSC 

* 

LD 

BSC 

XIO 

LD 

STO 

BSC 

NOSYN SLA 
STO 
BSC 

* 

* 

* 

* 

CKENO DC 
LO 



*-* 
3 BUFFR-T 
3 SYN-T 
L NOSYN, Z 

3 LSOLE-T 

3 FCODE-T 

L RDWRT, Z 

3 L SYN-T 

Z 
3 RETIM-T 

* 

3 LSYN-T 
L EXIT 

16 
3 LSYN-T 
I CKSYN 



BR IF NOT SYN IN BUFFER 
RESET LAST CHAR OLE INO 
BR IF XMIT FUNCTION 



SKIP IF LAST CHAR NOT SYN 
RESTART TIMER 

SET LAST CHAR SYN INO 



RESET LAST CHAR SYN INO 



CHECK FOR END CHARACTER 



0D9C D395 
0D9D COOO 
0D9E 0387 
0D9F 1 4C00 ODBB 

OOAl C391 
0DA2 F3EE 
0DA3 1 4CA0 0D8F 



EOR 
BSC 
EOR 
BSC 

LD 

EOR 

BSC 

EOR 

BSC 

STO 
LO 
STO 
BSC 

LO 

EOR 

BSC 



*-* 

3 BUFFR-T 
3 ET6-T 
Z 

3 EBETX-T 
L SETBC,&- 

3 BUFFR-T 
3 ENQ-T 

I 
3 EQEOT-T 
L *+5,Z 

3 RTBSY-T 

3 ERR-T 
L RDWRT 

3 BUFFR-T 
3 ITB-T 
I CKENO, Z 



SKIP IF ETB IN BUFFER 

BR IF ETX OR ETB IN BUFFR 

SKIP IF ENQ IN BUFFR 

RESET BUSY IND 
SET ERROR INO 



31719740 

31719750 

31719760 

31719770 

31719780 

31719790 

31719800 

31719810 

31719820 

31719830 

31719840 

31719850 

31719860 

31719870 

31719880 

31719890 

31719900 

31719910 

31719920 

31719930 

31719940 

31719950 

31719960 

31719970 

31719980 

31719990 

31720000 

31720010 

31720020 

31720030 

31720040 

31720050 

31720060 

31720070 

31720080 

31720090 

31720100 

31720110 

31720120 

31720130 

31720140 

31720150 

31720150 

31720170 

31720180 

31720190 

31720200 

31720210 

31720220 

31720230 

31720240 

31720250 

31720260 

31720270 

31720280 

31720290 

31720300 

31720310 

31720320 

31720330 

31720340 

31720350 

31720360 

31720370 

31720380 

31720390 

31720400 

31720410 
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0DA5 C386 




LO 


3 


MDSWT-T 




31720420 






00A6 0390 


* 


STO 


3 


HDSAV-T 




31720430 
31720440 






0DA7 6204 


SETBC 


LDX 


2 


4 




31720450 






0DA8 6A5D 


* 


STX 


2 


MDSHT 


SET MODE I NO FOR BCCl 


31720460 
31720470 






0DA9 4001 


BLKCK 


8SI 




CALBC 


GO CALCULATE BCC 


31720480 






ODAA 7010 


* 


MDX 




RDWRT 




31720490 
31720500 
31720510 
31720520 








4: _ — 






CALCULATE 


BLOCK CHECK CHARACTER 








* 












31720530 






ODAB 0000 


CALBC 


DC 




*-♦ 




31720540 






ODAC 6208 




LDX 


2 


8 


SET SHIFT COUNT TO 8 


31720550 






ODAD C391 




LD 


3 


BUFFR-T 


GET CHAR FROM BUFFER 


31720560 






OOAE 1808 




SRA 




8 




31720570 






ODAF F389 




EOR 


3 


BCCA-T 


ADO REMAINDER 


31720580 






ODBO 1 4C04 0DB4 


BITCK 

* 


BSC 


L 


ADPLY, E 




31720590 
31720600 






0DB2 1801 




SRA 




1 




31720610 






0DB3 7002 


* 


MDX 




OECRE 




31720620 
31720630 






0DB4 1801 


ADPLY 


SRA 




1 




31720640 






0DB5 F3FF 




EOR 


3 


POLYN-T 


ADO POLYNOMIAL 


31720650 






0DB6 72FF 


DECRE 


MDX 


2 


-1 


SKIP IF LAST SHIFT 


31720660 






0DB7 70Fe 




MDX 




BITCK 




31720670 






0DB8 D389 




STO 


3 


BCCA-T 


STORE NEW REMAINDER 


31720680 






0OB9 I 4C80 ODAB 


* 


BSC 


I 


CALBC 




31720690 
31720700 
31720710 
31720720 








STORE RECEIVED CHARACTER OR 








* 






TRANSMIT 


CHARACTER IN BUFFER 


31720730 








:tt 














31720740 






ODBB C393 


RDWRT 


LO 


3 


FCOOE-T 




31720750 






ODBC 1 4C20 ODCO 


* 


BSC 


L 


*£2,Z 




31720760 
31720770 






ODBE C31C 




LO 


3 


RAREA-T 




31720780 






OOBF 7002 




MDX 




*&2 




31720790 








* 










31720800 






ODCO 1 C480 0E13 




LD 


I 


FCODE 




31720810 






0DC2 9388 




S 


3 


COUNT-T 




31720820 






00C3 1 4C28 0DE5 


* 


BSC 


L 


CKBC1,+Z 


BR ON FULL COUNT 


31720830 
31720840 






0OC5 C393 


STOWR 


LD 


3 


FCODE-T 




31720850 






0DC6 1 4C20 00D8 


* 


BSC 


L 


WRITE, Z 


BR IF XMIT FUNCTION 


31720860 
31720870 






0DC8 C388 




LD 


3 


COUNT-T 




31720880 






O0C9 1 4C04 ODCF 


* 


BSC 


L 


NEVEN.E 


BR IF COUNT ODD 


31720890 
31720900 






ODCB C391 




LD 


3 


BUFFR-T 


PUT RECEIVED CHARACTER 


31720910 






ODCC 1 D480 0E14 




STO 


I 


POINT 


IN I/O AREA 


31720920 






OOCE 701E 


* 


MDX 




INCNT 




31720930 
31720940 






ODCF C391 


NEVFN 


I LD 


3 


BUFFR-T 




31720950 






ODOO 1808 




SRA 




8 




31720960 






ODOl 1 EC80 0E14 




OR 


I 


POINT 


PACK TWO CHARACTERS 


31720970 






0DD3 1 D480 0E14 




STO 


I 


POINT 


PUT IN I/O AREA 


31720980 






ODDS 1 7401 0E14 




MDX 


L 


POINT, SI 


INCRE ADOR POINTER &1 


31720990 






0DD7 7015 


« 


MDX 




INCNT 




31721000 
31721010 






0DD8 C391 


WRITE 


LD 


3 


BUFFR-T 




31721020 






0DD9 1 4400 0BD8 




BSI 


L 


STOIT 




31721030 






OOOB OBCC 




XIO 


3 


WRBUF-T 


WRITE BUFFER 


31721040 






OODC C395 




LO 


3 


RTBSY-T 




31721050 






ODDD 1 4C20 OEOl 


» 


BSC 


L 


EXIT.Z 




31721060 
31721070 






OOOF 6205 




LDX 


2 


5 




31721080 






ODEO 6A25 




STX 


2 


MDSWT 


SET MODE INO FOR BCC2 


31721090 
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OOEl COOO 
0DE2 038E 
0DE3 0395 
00E4 701C 

ODES C386 
ODE 6 93C6 
ODE 7 1 4C18 0DC5 

0DE9 D387 
ODEA C393 
ODEB 1 4C20 0DF3 

ODED 1 7401 0E08 
ODEF C395 
ODFO 1 4C20 OEOl 
0DF2 7008 



0DF3 C39B 
00F4 1 4C10 ODFB 

0DF6 1010 
0DF7 D393 
0DF8 1 4400 0943 
OOF A 7006 



* 
CKBCl 



LD 

STO 

STO 

MDX 

LD 

S 

BSC 

STO 

LD 

BSC 



INCNT MDX 
LO 
BSC 
MDX 

* 



PAD-T 

RTBSY-T 

EXIT 

MOSWT-T 
H0004-T 
STOWR, £- 

ERR-T 

FCODE-T 

XMEXT,Z 

COUNT, £1 
RTBSY-T 
EXIT,Z 
RCEXT 



SET XMIT PAD 
SET RTN BUSY 



IND 
IND 



BR IF MODE IND BCCl 



BR IF XMIT MODE 



INCRE COUNT £1 



OOFB COOO 
ODFC D38F 



ODFD 
ODFE 
ODFF 
OEOO 
OEOl 
0E03 



08BC 
0BC6 
1010 
D395 

6600 0000 

1 4C80 OCOl 



^ 

XMEXT LO 

BSC 
♦ 

SLA 
STO 
BSI 
MDX 

LD 
STO 

XIO 
XIO 
SLA 
STO 
LDX 
BSC 



END TRANSMIT/RECEIVE 



RCEXT 
EXITl 



EXIT 



3 
3 

3 
L2 
I 



REQ-T 
RCEXT, - 

16 

FCODE-T 
GO 
EXIT 

* 
MSEND-T 

ENDOP-T 

STREO-T 

16 

RTBSY-T 

*-♦ 

INT 



GET XMIT/REC REQ 
BR IF XMIT ONLY 



SET RECEIVE FUNCTION 
START RECEIVE 



SET MSG END IND 

END SCA OPERATION 
START READ 



0E05 




0000 


TT 


BSS 





0E05 





0000 


MSWAK 


DC 


♦ -* 


0E06 





0000 


MDSWT 


DC 


*-♦ 


0E07 





0000 


ERR 


DC 


*-* 


0EO8 





0000 


COUNT 


DC 


*-* 


0E09 





0000 


8CCA 


DC 


»-* 


OEOA 





0000 


LSOLE 


DC 


*-* 


OFOB 





0000 


LSYN 


DC 


*-* 


OEOC 





0000 


FIRST 


DC 


*-♦ 


OEOD 





0000 


SECND 


DC 


*-* 


OEOE 





0000 


PAD 


DC 


*-♦ 


OEOF 





0000 


MS END 


DC 


*-* 


OEIO 





0000 


MOSAV 


DC 


♦-♦ 


OEll 





0000 


BUFFR 


DC 


*-♦ 


0E12 





0000 


SYNC 


DC 


*-♦ 


0E13 





0000 


FCOOE 


DC 


*-♦ 


0E14 





0000 


POINT 


DC 


*-* 


0E15 





0000 


RTBSY 


DC 


*-♦ 


0E16 





0000 


OSW 


DC 


*-♦ 


0E17 





0000 


BCCR 


DC 


»-♦ 


0E18 





0000 


RETRY 


DC 


*-* 


0E19 





0000 


WTCNT 


DC 


*-♦ 


OEIA 





0000 


TEMP 


DC 


*-* 


OEIB 





0000 


REQ 


DC 


*-* 


OEIC 





0000 


CNTA 


DC 


*-* 


DATE 01APR63 15SEP68 


010CT69 


01JUN70 


EC NO- 420411 420416 


571066 


571097 



* INDICATORS, CONSTANTS, lOCCS 



MACK RECEIVED FLAG 
MODE IND 
ERROR INO 
CHARACTER COUNT 
BCC ACCUMULATION 
LAST CHAR OLE IND 
LAST CHAR SYN INO 
FIRST CHARACTER IND 
SECOND CHARACTER IND 
XMIT PAD INDICATOR 
END OF MSG INO 

XMIT/REC BUFFER 
XMIT SYNS IND 
FUNCTION CODE 
I/O AREA POINTER 
ROUTINE BUSY IND 
DSW STORAGE 

BLOCK CHECK CHAR STORAGE 
RETRY COUNTER 
INTERRUPT WAIT COUNT 
TEMPORARY STORAGE 
XMIT/REC REQUEST IND 
COUNTER A 



31721100 

31721110 

31721120 

31721130 

31721140 

31721150 

31721160 

31721170 

31721180 

31721190 

31721200 

31721210 

31721220 

31721230 

31721240 

317212S0 

31721260 

31721270 

31721280 

31721290 

31721300 

31721310 

31721320 

31721330 

31721340 

31721350 

31721360 

31721370 

31721380 

31721390 

31721400 

31721410 

31721420 

31721430 

31721440 

31721450 

31721460 

31721470 

31721480 

31721490 

31721500 

31721510 

31721520 

31721530 

31721540 

31721550 

31721560 

31721570 

31721580 

31721590 

31721600 

31721610 

31721620 

31721630 

31721640 

31721650 

31721660 

31721670 

31721680 

31721690 

31721700 

31721710 

31721720 

31721730 

31721740 

31721750 

31721760 

31721770 
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2243971 
17A 





OflD 


0000 


CNTB DC 


*-* 


COUNTER B 


31721780 






OEIE 


0000 


TMPNT DC 


*-* 


TEST MESSAGE LOCATOR 


31721790 






OEIF 


0000 


TOP DC 


*-* 


HIGHEST ADORS TO BE USED 


31721800 






0E20 


0000 


CNTPT DC 


*-* 




31721810 






0E21 


0000 


ENPNT DC 


♦-* 


TEXT TABLE POINTER 


31721820 






OE22 


0000 


TMRCI DC 


*-* 


TEST MSG RECV IND 


31721830 






0E23 


0000 


TMXMI DC 


*-* 


TEST MSG XMIT IND 


31 721 840 






0E24 


0000 


lOAR DC 


*-*: 


I/O AREA ADDRESS 


31721850 






0E25 


0000 


TOIND DC 


♦-* 


TIMEOUT INDICATOR 


31721860 






0E26 


0000 


YCNT DC 


*-* 


TEST MSG COUNT 


31721870 






0E27 


0000 


ERRNO DC 


*-♦ 


ERROR NUMBER 


31721880 






0E28 


0000 


IDFLG DC 


*-♦ 


XMIT ID INFO INDICATOR 


31721890 






0E29 


0000 


REWAK DC 


*-* 


WACK RECEIVED CTR 


31721900 






0E2A 


0000 


OPT IN DC 


*-* 




31721910 






0E2B 


0000 


TYPE DC 


*-* 




31721920 






0E2C 


1 0F40 


ENADR DC 


ENTBL 




31721930 






0E20 


0000 


ENPT2 DC 


*-* 




31721940 






0E2E 


0000 


NOERR DC 


*-* 




31721950 






0E2F 


1 8A4D 


HSGl DC 


TOMSG6/8000 


31721960 






0E30 


1 8A52 


MSG2 DC 


XMMSGE/8000 


31721970 






0E31 


1 8A56 


MSG3 DC 


RCMSGe/8000 


31721980 






0E32 


1 BASA 


MSG4 DC 


ERMSGE/8000 


31721990 






0E33 


1 8A5D 


MSG5 DC 


ENC0R6/8000 


31722000 






0E34 


02AA 


STXAA DC 


/02AA 




31722010 






0E35 


AAAA 


HAAAA DC 


/AAAA 




31722020 






0E36 


AA55 


HAA55 DC 


/AA55 




31722030 






0E37 


5555 


H5555 DC 


/5555 




31722040 






0E38 


5503 


H5ETX DC 


/5503 




31722050 






0E39 


3232 


SYSYN DC 


73232 




31722060 






0E3A 


0000 


BSS 


E 


lOCC TABLE 


31722070 






0E3A 


1 0E5e 


SYNRG DC 


SYN 


HR SYN TO SYNC REG 


31722080 






0E3B 


5104 


DC 


/5104 


lOCC 


31722090 






0E3C 


OOOE 


ENDOP DC 


14 


END OPERATION 


31722100 






0E3D 


5404 


DC 


/5404 


lOCC 


31722110 






0E3E 


0104 


STSYN DC 


260 


START SYNC 


31722120 






0E3F 


5410 


DC 


/5410 


lOCC 


31722130 






0E40 


0003 


TIMER DC 


3 


START PROG TIMER 


31722140 






0E41 


5420 


DC 


/5420 


lOCC 


31722150 






0E42 


1 0E59 


WRDLE DC 


DLE 


WRITE DLE 


31722150 






0E43 


5100 


DC 


/5100 


lOCC 


31722170 






0E44 


1 0E58 


WRSYN DC 


SYN 


WRITE SYN 


31722180 






0E45 


5100 


DC 


/5100 


lOCC 


31722190 






0E46 


0004 


STRED DC 


4 


INITIATE READ 


31722200 






0E47 


5600 


DC 


/5600 


lOCC 


31722210 






0E48 


1 OEll 


READ DC 


BUFFR 


READ CHAR TO BUFFER 


31722220 






0E49 


5200 


DC 


/5200 


lOCC 


31722230 






0E4A 


0007 


RETIM DC 


7 


RESTART TIMER 


31722240 






0E4B 


5702 


DC 


/5702 


lOCC 


31722250 






0E4C 


1 OEll 


WRBUF DC 


BUFFR 


WRITE BUFFER 


31722260 






0E4D 


5100 


DC 


/5100 


lOCC 


31722270 






0E4E 


0010 


SNSRS DC 


16 


SENSE AND RESET OSW 


31722280 






0E4F 


5701 


DC 


/5701 


lOCC 


31722290 






0E50 


0013 


SENSE DC 


19 


SENSE OSW 


31722300 






0E51 


5700 


DC 


/5700 


lOCC 


31722310 






0F52 


0063 


RESET DC 


99 


RESET SCA 


31722320 






0E53 


5540 


DC 


/5540 


lOCC 


31722330 






0E54 


1070 


ACKS DC 


/I 070 


DLE ACKO 


31722340 






0E55 


1061 


DC 


/1061 


DLE ACKl 


31722350 






0E56 


0000 


PDSAK DC 


*-* 




31722360 






0E57 


0000 


DC 


*-♦ 




31722370 






0E58 


3200 


SYN DC 


/3200 


SYN CHARACTER 


31722380 






0E59 


1000 


OLE DC 


/lOOO 


DLE CHARACTER 


31722390 






0F5A 


6B00 


WAK DC 


/6B00 


WACK CHARACTER 


31722400 






0E5B 


0300 


SXSOH DC 


/0300 


STX SOH EXCLUSIVE OR 


31722410 






0E5C 


2200 


DLSYN DC 


/2200 


DLE SYN EXCLUSIVE OR 


31722420 






0E5D 


0200 


STX DC 


/0200 


STX CHARACTER 


31722430 






0E5E 


0300 


ETX DC 


/0300 


ETX CHARACTER 


31722440 






0E5F 


016C 


SOHPC DC 


/016C 


SOH % CHARACTERS 


31722450 




DATE 
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OE60 





1002 


0E61 





1003 


0E62 





0001 


0E63 





3700 


0E64 





3DO0 


0E65 





0002 


0E66 





0000 


0E67 





0001 


0E68 





2D00 


0E59 





0002 


0E6A 





1037 


0E6B 





lAOO 


0E6C 





2600 


0E6D 





2500 


0E6E 





IFOO 


0E67 







0E65 







0E40 







0E46 







0E4A 







0E6F 





0011 


0E3C 







0E4E 







0E50 







0E70 





0019 


0E52 







0E3E 







0E71 





OOOA 


0E72 





FOOD 


0E73 





F002 


0E74 





FOFO 


0E75 





FFOO 


0E76 





FFFF 


0E77 





DOFF 


0E78 





0202 


0E79 





OFOF 


0E7A 





8000 


0E7B 





7000 


0E7C 





7FFF 


0E7D 





OOIF 


0E7E 





1802 


0E7F 





AOOl 


OE80 




0000 


0E8O 





0032 


0E81 





OOAA 


0E82 





0000 


0E83 





0000 


0E84 





107C 


0E85 





0000 


0E86 





0000 


0E87 




0014 


0E9C 




OOOO 


0E9C 





012C 


0E9D 




0002 


0E9F 




0097 


0F36 




OOOA 


0F40 




OOBD 


OFFE 




0627 



DC 
DC 



DLSTX DC 
DLETX DC 
EOTCT DC 
EOT 
NAK 
LSTAK DC 
DC 
ENQCT DC 
ENO DC 
OEOTC DC 
DLEOT DC 
EQEOT DC 
ETB DC 
EBETX DC 
ITB DC 
HOOOl EQU 
H0002 EOU 
H0003 EQU 
H0004 EQU 
H0007 EQU 
HOOll DC 
014 
016 
019 
D25 
099 
D260 
HOOOA DC 
HFOOO DC 
HF002 DC 
HFOFO DC 
HFFOO DC 
HFFFF DC 
HOOFF DC 
H0202 DC 
HOFOF DC 
H8000 DC 
H7000 DC 
H7FFF DC 
HOOIF DC 
H1802 DC 
POLYN DC 
T BSS 
KSYN DC 
KOOAA DC 
SELCT DC 
RVISW DC 
RVI DC 
STXSW DC 
TTOSW DC 



EQU 

EQU 

EQU 

DC 

EQU 

EQU 



/1002 

/1 003 

/OOOl 

/3700 

/3D00 

/0002 

♦-* 

/OOOl 

/2D00 

/0002 

/1037 

/lAOO 

/2600 

/2500 

/IFOO 

ENQCT 

LSTAK 

TIMER 

STRED 

RETIM 

/ll 

ENDOP 

SNSRS 

SENSE 

25 

RESET 

STSYN 

/OOOA 

/FOOD 

/F002 

/FOFO 

/FFOO 

/FFFF 

/OOFF 

/0202 

/OFOF 

/8000 

/7000 

/7FFF 

/OOIF 

/1802 

/AOOl 



/0032 

/OOAA 

*-• 

*-* 

/107C 

♦-♦ 

*-♦ 



OLE STX CHARACTERS 
OLE ETX CHARACTERS 
COUNT FOR XMIT EOT 
EOT CHARACTER 
NAK CHARACTER 
COUNT POS ACK 

COUNT FOR XMIT ENQ 
ENO CHARACTER 

DLE EOT CHARACTERS 
ENQ EOT EXCLUSIVE OR 
ETB CHARACTER 
ETB ETX EXCLUSIVE OR 



SYN CHARACTER 

SELECT CHAR LOCATION 
RVI FLAG 

STX FLAG 
TTD FLAG 



NO STATEMENTS 



TABLE BSS 20 

BSS E 
RAREA DC 300 
BSS 2 

RFTTM BSS 151 

BSS 10 PATCH AREA 

ENTBL BSS PI0+/A22-* 
END BGIN 

FLAGGED IN THE ABOVE ASSEMBLY 



31722460 

31722470 

31722480 

31722490 

31722500 

31722510 

31722520 

31722530 

31722540 

31722550 

31722560 

31722570 

31722580 

31722590 

31722600 

31722610 

31722620 

31722630 

31722640 

31722650 

31722660 

31722670 

31722680 

31722690 

31722700 

31722710 

31722720 

31722730 

31722740 

31722750 

31722760 

31722770 

31722780 

31722790 

31722800 

31722810 

31722820 

31722830 

31722840 

31722850 

31722860 

31722870 

31722880 

31722890 

31722900 

31722910 

31722920 

31722930 

31722940 

31722950 

31722960 

31722970 

31722980 

31722990 

31723000 

31723010 

31723020 

31723030 

31723040 

31723050 

31723060 

31723070 
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ACKS 

ADBAO 

ADPLY 

ALPH 

ALTNT 

AMSGS 

A1701 

A 1702 

A1703 

A1705 

A1706 

A1707 

A1708 

BCCA 

BCCR 

BCCl 

BCC2 

BDRFT 

BEGIN 

BFDLE 

BFSOH 

BFSTX 

BGIN 

BITCK 

BLKCK 

BTD 

BUFFR 



CALBC 
CKBCl 
CKCNT 
CKEND 
CKESC 
CKFST 
CKHON 
CKOPN 
CKRDY 
CKRTR 

CKSTX 

CKSYN 

CKY 

CLEAR 

CNTA 

CNTB 
CNTPT 

CNTRL 

CNOO 

CNIO 

CN20 

CN30 

COUNT 

CTINU 

DCRCT 

DECRE 

DEOTC 

OlAGP 

DIAL 

DISCN 

OLE 

DLEOT 

DLESQ 

OLETX 

DLSTX 

DLSYN 

DONE 



0E54 
0889 
0DB4 
0B7D 
07E1 
0992 
099A 
09A4 
09A9 
09AF 
09C0 
09D1 
09DB 
0E09 
0E17 
OCED 
ODOO 
0797 
0160 
006 A 
0D71 
0D6D 
0627 
ODBO 
0DA9 
OAAA 
OEll 



OOAB 
ODES 
0C3A 
008F 
0748 
0D5A 
OBCl 
096E 
06B9 
079F 

0D34 
0D7B 
0B8C 
068D 
OEIC 

OEID 
0E20 
0632 
064E 
0652 
065C 
0663 
0E08 
081C 
0CD6 
0DB6 
0E69 
09E0 
061C 
07F9 
0E59 
0E6A 
0CB7 
0E61 
0E60 
0E5C 
0C8F 



07DC 
0882 
ODBO 
0B5E 
0779 
0986 
0992 
0993 
0994 
0996 
0997 
0998 
0999 
0CF8 
0CF5 
0C77 
0C78 
0733 
0627 
0D3A 
0D44 
0041 
OFFE 
00B7 
0C99 
0A68 
0705 
0C9D 
0D7C 
0CC3 
0DC3 
OCIF 
0C97 
0740 
0D64 
0B88 
0944 
06B3 
06FA 
08A3 
0C8B 
0C93 
086F 
0&6B 
0A78 
0BA5 
0A89 
06A2 
0B89 
0649 

0650 
0640 
OABF 
0813 
OCBE 
0083 
0905 
07C1 
0901 
07F3 
0C30 
07F2 
OCAD 
0AE9 
OADD 
OCCO 
0C83 



07EA 08IC 085A 08B1 08BE 080B 



0D06 0D09 0014 0030 OOAF 00B8 
0D04 0D05 

ODIO 

073C 0773 0B2E 



0CA7 OCBl OCCB 0032 0D5B 

0A73 OABl 

0821 0868 08C7 0C40 0C4F 0C56 0C59 0C60 0C69 0C7F 0C85 0C89 

OCAF 0C8C 0CE5 0CF3 OCFA 0D03 0D16 0026 0029 0D38 0D3F 0050 

0090 0D96 OOAl OOAD ODCB ODCF ODDS 0E48 0E4C 
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PURPOSE 

THE PURPOSE OF THE SCA TRANSMIT/RECEIVE BSC MULTI-POINT PROGRAM IS 
TO PROVIDE PROGRAM ABILITY TO OPERATE THE 1130 SCA ON-LINE AS A SLAVE 
1!"?^^*^'** * MULTI-POINT DATA LINK. THE MASTER TERMINAL MUST HAVE THE 
CAPABILITY OF RECEIVING AND RESPONDING TO REQUEST-FOR-TEST MESSAGES AS 
DESCRIBED IN THIS PROGRAM DESCRIPTION. THE MODE OF OPERATION IS 
BINARY SYNCHRONOUS. THE PROGRAM IS PRIMARILY A TEST OF SYSTEM INTEGRITY 
RATHER THAN A FAULT ISOLATING DIAGNOSTIC, HOKEVER, A DIAGNOSTIC CAPABILITY 
IS PROVIDED BY PROGRAM OPERATING OPTIONS. 



PREREQUISITES 

•♦CAUTION** 

READ SECTIONS 3.1 AND 3.5 FOR SPECIAL OPERATING PROCEDURES BEFORE TAKING 

THE 1130 OFF-LINE FOR LOADING OF THE DIAGNOSTIC PROGRAM. 



2.1 PROGRAM PREREQUISITES 



4. PRINTOUTS. 



4A 



4.1 STATUS MESSAGES 

4.2 ERROR MESSAGES 

4.3 TEXT PRINTOUT 



5. COMMENTS 



5.1 PROGRAM PHIbOSOPHY 

5.1.1 REQUEST-FOR-TEST MESSAGE 

5.1.2 TEST MESSAGE 

5.1.3 LINE CONTROL 

5.2 ROUTINE DESCRIPTIONS 



6. APPENDIX 



10 



6.1 BINARY SYNCHRONOUS COMMUNICATIONS CONTROL CHARACTERS 

6.2 BINARY SYSCHRONOUS COMMUNICATIONS CONTROL SEQUENCES 



1- THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR. 
THE DIAGNOSTIC MONITOR USES 1.5 K STORAGE WORDS AND THIS PROGRAM 
USES THE REMAINING PORTION OF 4K. 

2. THE MASTER TERMINAL MUST HAVE THE CAPABILITY OF RECEIVING 
AND RESPONDING TO REQUEST-FOR-TEST MESSAGES AS DESCRIBED IN 
THIS PROGRAM DESCRIPTION. 

3. IF THE PROGRAM IS TO BE LOADED VIA CARD INPUT A PROGRAM PATCH 
CARD SHOULD BE PREPARED TO PROVIDE THE POLLING AND SELECTION 
AODRESES BY WHICH THE 1130 HILL BE ADDRESSED. THIS CARD WiST 
BE PUNCHED AS FOLLOWS.. 

COLUMNS 1-5 C0628 

COLUMN 6 BLANK 

COLUMNS 7-8 THE POLLING ADDRESS IN HEXADECIMAL. 

COLUMNS 9-10 THE SELECTION ADDRESS IN HEXADECIMAL 

ALL OTHER COLUMNS MUST BE BLANK. 

THIS PATCH CARD SHOULD BE INSERTED IN FRONT OF THE LAST CARD IN 
THE PROGRAM DECK. 

**II?IS!* "" ^"^ POLLING AND SELECTIW* ADDRESSES TRANSMITTED BY THE 
MASTER TERMINAL CONSIST OF MORE THAN ONE EIGHT BIT CHARACTER, 
ENTER ONLY THE FIRST CHARACTER FROM THE NORMAL POLLING AND 
SELECTION ADDRESSES. 

2.2 EQUIPMENT PREREQUISITES 



1. 
2. 
3. 

4. 
5. 

6. 



SET STR/BSC SWITCH TO BSC POSITION. 

SET BAUD SELECTION SWITCH TO MATCH THE MASTER TERMINAL. 

SET DATA SET CONNECTOR PLUG SWITCH TO OPER 

CE SWITCH MUST BE OFF 

REFER TO LOGIC PAGE A0003 FOR CUSTOMER OPTION JUMPERS. 

OPTION FUNCTIONS MUST MATCH THE MASTER TERMINAL. 

SCA MUST BE CONNECTED THROUGH THE PROPER MODEM EQUIPMENT TO 

A MASTER BSC TERMINAL- DATA SETS USED MUST BE COMPATIBLE WITH 

BAUD RATE AND CUSTOMER OPTIONS SELECTED. 
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3. OPERATING PROCEDURE 

SEE DIAGNOSTIC MONITOR USE PROCEDURE FOR DETAILS OF PROGRAM LOADING AND 
OPERATING PROCEDURES. PROGRAM OVERLAP IS NOT RECOMMENDED DUE TO TIMING 
CONSIDERATIONS. 



3.1 



PROGRAM LOADING 



PROGRAM LOADING PROCEDURES ARE SUMMARIZED HERE. SEE DM USE 
PROCEDURE FOR ADDITIONAL DETAILS. OVERLAP IS NOT RECOMMENDED. 

1- NOTIFY THE OPERATOR AT THE MASTER TERMINAL THAT THE 1130 HILL 
BE TAKEN OFF-LINE FOR LOADING OF THE DIAGNOSTIC PROGRAM. IT 
MAY BE NECCESSARY FOR THE MASTER TERMINAL OPERATOR TO TAKE 
ACTION TO PREVENT POLLING OF THE 1130 UNTIL THE PROGRAM HAS 
BEGUN EXECUTION. 

2. IF CARD IPL IS USED INSERT THE PROGRAM PATCH CARD TO SPECIFY 
THE POLL AND SELECTION ADDRESSES. ISEE SECTION 2.11 

3. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 

4. SET BIT SWITCH 15. ..OFF - FOR LOAD AND GO. INOTE U 

...ON - TO SPECIFY OPTIONS BEFORE RUNNING. 
IN0TE2) 

5. LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 
5. SELECT PROGRAM OPTIONS AS DESIRED. 

7. AFTER PROGRAM HAS BEGUN EXECUTION NOTIFY THE MASTER TERMINAL 
OPERATOR THAT THE 1130 IS NOW READY TO RECEIVE POLLING AND 
SELECTION ADDRESSES. 

NOTE 1.. NORMAL LOAD AND GO OPERATION ASSUMES THAT THE PROGRAM MILL 
BE TRANSMITTING REOUEST-FOR-TEST MESSAGES AND ROUTINES 
1-6 WILL BE EXECUTED. 

NOTE 2. .IF HALTED AFTER LOADING, SELECT PROGRAM OPTIONS THEN TURN 
OFF HALT SWITCH OR FOLLOW NORMAL RESTART PROCEDURE (3.51 

NOTE 3.. IF PAPER TAPE IPL IS USED OR IF NO POLL AND SELECTION 
ADDRESSES WERE ENTERED BY PATCH CARD, THE PROGRAM WILL 
HALT AT WAITS 3 AND 4 IMMEDIATELY AFTER PROGRAM IS LOADED. 
SEE SECTION 3.3 TO PROCEED FROM THESE WAITS. 



3.2 PROGRAM OPERATION 

PROGRAM OPERATING PROCEDURES ARE SUMMARIZED HERE. SEE DM USE 
PROCEDURE FOR ADDITIONAL DETAILS. OVERLAP IS NOT RECOMMENDED. 

3.2.1 PROGRAM CONTROL - FUNCTION 



3.2.2 ROUTINE SELECTION - FUNCTION 1 

ROUTINE SELECTION WILL BE INOPERATIVE IF THE RFT RECEIVER OPTION 
(FUNCTION 2 SWITCH 15> IS SELECTED. 

ROUTINES 1-6 WILL BE EXECUTED IN SEQUENCE IF NO ROUTINE (OR 00> IS 
SELECTED. ROUTINES 7 AND 8 WILL BE EXECUTED ONLY IF SELECTED. 
ONLY ROUTINE 8 WILL LOOP CONTINUOUSLY IF SELECTED. ALL OTHERS WILL 
TERMINATE AT THE COMPLETION OF THE ROUTINE. 

TO LOOP A ROUTINE FIRST SELECT THE ROUTINE THEN SELECT THE LOOP 
PROGRAM OPTION (FUNCTION SWT HI. 

TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TO 41 

B. SET ROUTINE NUMBER IN SWITCHES 8-15 



RTN 

1. . 

2. . 

3. . 

4. . 

5. . 

6. . 

7. . 

8. . 



DESCRIPTION 



.TRANSMIT 
TRANSMIT 



TRANSMIT REQUEST-FOR-TEST WITH X=00 
TRANSMIT TEST MESSAGE 02 Y TIMES 

REQUEST-FOR-TEST WITH X=00 

TEST MESSAGE 16 Y TIMES 
TRANSMIT REOUEST-FOR-TEST WITH X=00 
TRANSMIT TEST MESSAGE 19 Y TIMES 
TRANSMIT REQUEST-FOR-TEST WITH X=02 
RECEIVE TEST MESSAGES 
TRANSMIT REQUEST-FOR-TEST WITH X=I6 
RECEIVE TEST MESSAGES 
TRANSMIT REQUEST FOR TEST WITH X=19 
RECEIVE TEST MESSAGES 

TRANSMIT REQUEST FOR TEST WITH X- 121 SEE SECTION 5.21 
TRANSMIT OR RECIEVE TEST MESSAGES AS DEFINED BY X VALUE 
RECEIVE AND RESPOND TO REOUEST-FOR-TEST MESSAGES 



C. PRESS INT REQ KEY ON CONSOLE 
TO DESELECT ROUTINE AND RETURN TO NORMAL OPERATION 

A. SET SWITCHES 0-7 TO 41 

B. SET SWITCHES 8-15 OFF 

C. PRESS INT REQ KEY 

D. DESELECT LOOP OPTION IF SELECTED. 



1. SET SWITCHES 0-7 TO 01 

2. SET SWITCHES 8-15 AS DESIRED 



SWT FUNCTION 

8 RESTART (SEE SECTION 3.5) 

9 ROUTINE START MESSAGE 

10 (NOT USED) 

11 LOOP PROGRAM 

12 (NOT USEDl 

13 BYPASS ERROR PRINTOUT 

14 HALT ON ERROR (USE NOT RECOMMENDED) 

15 HALT (SEE SECTION 3.5) 



3. PRESS INT REQ KEY ON CONSOLE 
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3.2.3 PROGRAM OPTIONS - FUNCTION 2 

1. SET SWITCHES 0-7 TO Bl 

2. SET SWITCHES 11-15 AS DESIRED 



3.3 PROGRAM HALTS 
^.3.1 NORMAL HALTS 



SWT 



FUNCTION 



SWT 15. .ON. .RECEIVE AND RESPOND TO REQUEST-FOR-TEST MESSAGES. 
(EXECUTE ROUTINE 8 ONLY) 
..OFF. TRANSMIT REOUEST-FOR-TEST MESSAGE THEN TRANSMIT OR 

RECEIVE Y TEST MESSAGES. (ALLOW EXECUTION OF RTNS 1-7) 

SWT lA.. ON. .ALLOW PRINTING OF DIAGNOSTIC ERROR MESSAGES. 

(ERROR MESSAGES ElAOB THRU E1A25) SEE NOTE SECTION 4.2 
..OFF. DO NOT PRINT DIAGNOSTIC ERROR MESSAGES. 

S¥T 13. .ON. .PRINT ENTIRE TEXT OF ANY MESSAGE OR CONTROL SEQUENCE 
RECEIVED WHICH CONTAINED AN ERROR- (SEE SECTION 4.3) 

SWT 12. .ON. .PRINT ENTIRE TEXT TRANSMITTED AND RECEIVED. 
(SEE SECTION 4.3) 

SWT 11..0N..8K OF CORE STORAGE AVAILABLE 

..OFF. ONLY 4K OF CORE STORAGE AVAILABLE 

NOTE. ..THE AMOUNT OF TEXT THAT CAN BE SAVED FOR PRINTING 
WHEN OPTION SWT 12 OR 13 IS ON IS LIMITED BY THE AVAILABLE 
CORE STORAGE. IN A 4K SYSTEM ONLY THE FIRST FEW TEST 
MESSAGES CAN BE SAVED AND PRINTED OUT. IN SYSTEMS LARGER 
THAN 4K SELECTION OF OPTION SWT 11 WILL ALLOW OVER 25 
TEST MESSAGES TO BE SAVED FOR PRINTING. 



3. PRESS INT REQ KEY ON CONSOLE. 



3.2.4 PROGRAM OPTION - FUNCTION 3 

WHEN TRANSMITTING RFQUEST-FOR-TEST MESSAGES (EXECUTING RTNS 1-7) 
THIS OPTION ALLOWS SELECTION OF THE NUMBER OF TEST MESSAGES 
THAT ARE TO BE TRANSMITTED OR RECEIVED. THE VALUE ENTERED IN 
SWITCHES 8-15 IS USED AS A COUNT OF TEST MESSAGES AND IS ALSO 
CONVERTED TO TWO EBCDIC DECIMAL DIGITS AND ENTERED IN THE Y FIELD 
OF THE RET MESSAGE. THIS VALUE MUST BE BETWEEN DECIMAL 01 AND 99. 

TO SELECT THE Y VALUE 



1. SET SWITCHES 1-7 TO CI 

2. SET SWITCHES 8-15 AS DESIRED 

3. PRESS INT REQ KEY ON CONSOLE 

TO RETURN TO NORMAL OPERATION 

1. SET SWITCHES 0-7 TO CI 

2. SET SWITCHES 8-15 TO 01 

3. PRESS INT REQ KEY 



(HEX 01 TO 63) 



.HALT NO. 
. {B REG). 


DESCRIPTION 


RESTART 

ACTION , 


. 3001 • 


PROGRAM STOP OR ADDRESS STOP . 


PRESS PROGRAM START 


. 3002 . 


HALT ON ERROR 


PRESS PROGRAM START 


. 3003 . 


NO POLLING OR SELECTION 
ADDRESSES WERE ENTERED 
BY PATCH CARD. 


. SET POLLING ADDRESS IN . 

. SWITCHES 0-7. 

. SET SELECTION ADDRESS IN. 

, SWITCHES 8-15. 

. PRESS PROGRAM START. 


. 3004 


! THIS WAIT ALWAYS OCCURS AFTER 
RESTART FROM WAIT 3003 TO 
ALLOW FOR SELECTION OF 
PROGRAM LOAD OPTION SWT 15. 


. SET SWT 15 AS DESIRED. . 

(SEE 3.1) 
. PRESS PROGRAM STAfiT 



3.3.2 ERROR HALTS 



.HALT NO. 
. (B REG). 


DESCRIPTION 


RESTART 
ACTION 


'. 30F1 . 


CHECK SUM ERROR ON FIRST 
CARD OF LOADER 


RELOAD PROGRAM 


. 30F2 . 


READER DSW ERROR WHEN 
LOADING LOADER 


RELOAD PROGRAM 


'. 30F3 . 


CARD 2 OF LOADER DID 
NOT LOAD 


RELOAD PROGRAM 


. 30F4 . 


CAN NOT CLEAR CORE - DUE 
TO ERROR IN ADDRESSING 
UPPER CORE 




. 30F5 


READER CHECK WHEN LOADING 
MONITOR OR TEST PROGRAM 


, NPRO THEN PLACE CARDS 

. RUN OUT IN FRONT OF 

. REMAINING DECK AND PRESS. 

. READER START. 

. PRESS PROGRAM START 


. 30F6 


'. MONITOR DID NOT LOAD 


. RELOAD PROGRAM 


. 30F7 


'. CHECK SUM WHEN LOADING 
MONITOR 


. RELOAD PROGRAM 


. 30F8 


'. READER NOT READY 


. MAKE READER READY 
. PRESS PROGRAM START 


. 30F9 


I INVALID INTERRUPT WHICH 
HILL NOT RESET 


. PRESS RESET AND 
. PRO(JRAH START 


'. 30FA 


I CONSOLE PRINTER HANG UP - 


. FIX THE CONSOLE PRINTER . 




BUSY WILL NOT GO OFF 






» — — ——"• •""" 


• * 
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3. it PROGRAM TERMINATION 

IF LOOP OPERATION HAS NOT BEEN SPECIFIED, THE PROGRAM WILL END... 

1. AT THE END OF ROUTINE 6 IF NO ROUTINE HAS BEEN SELECTED AND THE 
RFT RECEIVER OPTION (FUNCTION 2 SHT 15) IS NOT SELECTFO. 

2. AT THE END OF THE SELECTED ROUTINE IF ANY ROUTINE OTHER THAN 
ROUTINE 8 IS SELECTED. 

3. IF ROUTINE 8 IS SELECTED BY EITHER FUNCTION I OR FUNCTION 2 SWT 
15 THE PROGRAM WILL LOOP CONTINUOUSLY. 

NOTE---. AFTER NORMAL PROGRAM END THE INTERRUPT SERVICE PORTION OF 
THE PROGRAM CONTINUES TO MONITOR THE LINE. SEE SECTION 3.5 FOR 
DETAILS OF THIS PROCEDURE. 

3.5 HALTING AND RESTARTING PROGRAM 

AFTER NORMAL PROGRAM END OR AFTER SELECTION OF PROGRAM HALT 
(FUNCTION SWT 15) THE INTERRUPT SERVICE PORTION OF THE PROGRAM 
CONTINUES TO MONITOR THE LINE FOR THE SELECTION OR POLLING ADDRESSES. 
IF THE POLLING ADDRESS IS RECEIVEOt EOT WILL BE TRANSMITTED- IF THE 
SELECTION ADDRESS IS RECEIVEDt NAK WILL BE TRANSMITTED. THIS 
PROCEDURE PREVENTS THE MASTER STATION FROM REMOVING THE 1130 FROM 
THE LIST OF POLLED STATIONS BECAUSE OF NO RESPONSE TO ADDRESSING. 
FOR THIS REASON IT IS RECOMMENDED THAT USE OF PROGRAM STOP, IMMEDIATE 
STOP, AND RESET KEYS BE AVOIDED WHEN OPERATING THIS PROGRAM. THE 
PROGRAM STOP KEY WILL NORMALLY STOP THE PROGRAM ONLY UNTIL THE NEXT 
INTERRUPT OCCURS. 

IT IS ALSO RECOMMENDED THAT WHENEVER POSSIBLE THE PROGRAM BE 
ALLOWED TO RUN TO NORMAL COMPLETION, IF IT IS NECCESSARY TO USE 
THE PROGRAM HALT OPTION OR OTHERWISE HALT THE PROGRAM THIS SHOULD 
BE DONE DURING THE END OF TEST PRINTOUT. IF THE TEST MUST BE 
TERMINATED DURING EXECUTION OF A TEST SEQUENCE, THEN ALLOW SUFFICIENT 
TIME FOR THE MASTER TERMINAL TO FINISH THE TEST CYCLE BEFORE 
RESTARTING THE PROGRAM. 

TO HALT PROGRAM (SEE 3.2.1) 

1. TURN OFF SWITCHES 0-6 

2. TURN ON SWITCHES 7 AND 15 

3. PRESS INT. REQ. KEY 

TO RESTART PROGRAM 

1. TURN OFF SWITCHES 0-6 

2. TURN ON SWITCHES 7 AND 8 

3. SET DESIRED CONTROL IN SWITCHES 9-14 

4. PRESS INT REQ KEY ON CONSOLE 

IF THIS DOES NOT RESTART PROGRAM THEN.. 

5. PRESS IMMEDIATE STOP 

6. PRESS RESET 

7. PRESS INT REQ KEY 



4. PRINTOUTS 

ALL PRINTOUTS ARE IN THE STANDARD FORMAT EXCEPT THE TEXT PRINTOUT. (SEE 4.31 

MESSAGE 
MESSAGE (MESSAGE OMITTED FOR DIAGNOSTIC PRINTOUTS! 



APPNN OORR AAAA 

OR 
EPPNN OORR AAAA 



4.1 



AOOOO 



AOOOl 



WHERE A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 

THIS WILL BE EITHER 00 FOR MESSAGES ORIGINATED BY 
MONITOR OR lA FOR MESSAGES ORIGINATED BY THIS PROGRAM 

NN IS THE MESSAGE IDENTIFICATION NUMBER 

RR IS THE ROUTINE NUMBER 

AAAA IS THE STARTING ADDRESS OF THE ROUTINE 

MESSAGE IS ANY VARIABLE INFORMATION 



STATUS MESSAGES (LOG MESSAGES) 



NUM PIO AORS RELF LO 
XXXX XXXX XXXX XXXX 

THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR). THE MESSAGE GIVES THE LOAD SEQUENCE NUM8ER. 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM MAS LOADED, 
AND" THE RELOCATION FACTOR. 



SWS PID 
XXXX XXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM 10 OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WHERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM THE WORD HALT WILL FOLLOW THE 
MESSAGE. 



AlAOO OORR AAAA 



ROUTINE START MESSAGE - IF SWITCH 9, FUrCTION 0, IS TURNED ON. 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 



AlAOl OORR AAAA 



MON POLL 

THIS MESSAGE IS PRINTED BY TEST ROUTINES 1-7 AND INDICATES 
THAT THE PROGRAM IS MONITORING THE LINE FOR THE POLLING 
ADDRESS. THE PROGRAM WILL PROCEED NO FURTHER UNTIL THE 
CORRECT POLLING SEQUENCE IS RECEIVED. 
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A1A02 OORR AAA A 



MON SEL 

THIS MESSAGE IS PRINTED BY TEST ROUTINE 8 AND INDICATES 
THAT THE PROGRAM IS MONITORING THE LINE FOR THE SELECTION 
ADDRESS. THE PROGRAM HILL PROCEED NO FURTHER UNTIL THE 
CORRECT SELECTION SEQUENCE IS RECEIVED. 



E0005 



OOON XXXX 

THIS ERROR HILL OCCUR IF AN INTERRUPT OCCURS, BUT THE ILSH HAS 
NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE ILSH. 
THIS PRINTOUT HILL ONLY OCCUR IF THE INTERRUPT IS RESET BY 
A BOSC. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



A1A03 OORR AAAA 



X Y TMOUT NAK INV RESP 
OOOXX OOOXX OOOXX OOOXX OOOXX 

THIS IS THE NORMAL END OF TEST MESSAGE HHICH IS PRINTED BY THE 
TEST MESSAGE TRANSMITTER IRTNS 1-3, AND RTN 7 IF X=00l. THE 
PRINTOUT PROVIDES THE X AND Y VALUES FROM THE RFT MESSAGE, 
THE NUMBER OF RECEIVE TIMEOUTS HHICH OCCURED HHILE RECEIVING 
RESPONSES TO TEST MESSAGES, THE NUMBER OF NEGATIVE RESPONSES 
TO TEST MESSAGES, AND THE NUMBER OF INVALID RESPONSES lANY 
RESPONSE OTHER THAN ACKO, ACKl, NAK) TO TEST MESSAGES. AN ERROR 
FREE TEST IS INDICATED BY THE COUNTS IN THE LAST THREE FIELDS 
BEING ZERO. 



ElAOl OORR AAAA 



DATA SET NRDY 

THE DATA SET BECAME NOT READY HHILE THE PROGRAM HAS ATTEMPTING 
TO TRANSMIT OR RECEIVE A MESSAGE OR CONTROL SEQUENCE. 



E1A02 OORR AAAA 



A1A04 OORR AAAA 



4.2 



EOOOl 



E0003 



E0004 



X Y TMOUT H ERR W/0 ERR 
OOOXX OOOXX OOOXX OOOXX OOOXX 

THIS IS THE NORMAL END OF TEST MESSAGE HHICH IS PRINTED BY THE 
TEST MESSAGE RECEIVER fRTNS 4-6, RTN 7 IF X NOT 00, AND RTN 8 
IF X=OOI. THE PRINTOUT PROVIDES THE X AND V VALUES FROM fHE 
RFT MESSAGE. THE NUMBER OF RECEIVE TIMEOUTS WHICH OCCURED WHILE 
RECEIVING TEST MESSAGES, THE NUMBER OF TEST MESSAGES RECEIVED 
WITH EITHER BCC OR FORMAT ERRORS, THE NUMBER OF TEST MESSAGES 
RECEIVED WITHOUT ERROR. AN ERROR FREE TEST IS INDICATED BY THE 
NUMBER OF ERROR FREE MESSAGES BEING EQUAL TO THE Y VALUE. 



ERROR MESSAGES 



SWS INVLD 
XXXX 

THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



OVR CORE 

THE PROGRAM, HHICH THE LOADER HAS ATTEMPTING TO LOAD, 
EXCEEDED AVAILABLE CORE. LOADING HAS TERMINATED. 



CKSUM 

A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 

1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 

2. THERE IS AN EXTRA CARD IN THE DECK. 

3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION, 

5. DUE TO A CPU MALFUNCTION THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 

WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM.' 



7 TRIES T 

THIS MESSAGE IS PRINTED BY TEST ROUTINES 1-7 AFTER 7 ATTEMPTS 
TO TRANSMIT THE REQUEST-FOR-XEST MESSAGE HAVE FAILED. THE 
PROGRAM HILL TERMINATE THE CURRENT TEST ROUTINE AND EITHER END 
THE PROGRAM OR GO ON TO THE NEXT ROUTINE. THE NORMAL END OF 
TEST MESSAGE HILL NOT BE PRINTED SINCE NO TEST MESSAGES HAVE 
BEEN TRANSMITTED OR RECEIVED. 



E1A03 OORR AAAA 



7 TRIES R 

THIS MESSAGE IS PRINTED BY TEST ROUTINE 8 AFTER 7 ATTEMPTS TO 
RECEIVE THE REQOEST-FOR-TEST SEQUENCE HAVE FAILED. THE PROGRAM 
WILL TERMINATE THE CURRENT TEST AND WILL RESTART ROUTINE 8. 
THE NORMAL END OF TEST MESSAGE HILL NOT BE PRINTED SINCE NO 
TEST MESSAGES HAVE BEEN TRANSMITTED OR RECEIVED. 



E1A04 OORR AAAA 



INV X 

THIS MESSAGE IS PRINTED BY TEST ROUTINE 7 IF AN INVALID X VALUE 

IS ENTERED BY A PROGRAM PATCH CARD. 

CORRECT THE PATCH CARD AND RELOAD THE PROGRAM. 



E1A05 OORR AAAA 



INV Y 

THIS MESSAGE IS PRINTED BY ROUTINES 1-7 IF AN INVALID Y VALUE IS 
ENTERED VIA FUNCTION 3. ENTER A CORRECT VALUE I HEX 01 TO 63) 
AND RESTART THE PROGRAM. 



EIA06 OORR AAAA 



INV RFT RCVD 

THIS MESSAGE IS PRINTED BY TEST ROUTINE 8 IF A REQUEST FOR 
TEST MESSAGE IS RECEIVED WHICH THE PROGRAM IS NOT CAPABLE 
OF RESPONDING TO. THE RFT MESSAGE CONTAINED ONE OF THE 
FOLLOWING ERRORS. 

1. THE RFT MESSAGE DID NOT BEGIN WITH SOH t 

2. THE X FIELD WAS GREATER THAN DECIMAL 99 

3. THE Y FIELD WAS GREATER THAN DECIMAL 99 
4- THE X VALUE WAS NOT 00. 



THE PROGRAM HILL TRANSMIT NAK AND ATTEMPT TO RECEIVE THE 
RFT MESSAGE FOR UP TO 7 TRYS. 
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E1A07 OORR AAAA 



EOT RCVO 

THE END OF TRANSMISSION (EOT) CHARACTER WAS RECEIVED IN RESPONSE 
TO OR IN PLACE OF A MESSAGE PRIOR TO THE NORMAL END OF TEST- 
THE PROGRAM HILL TERMINATE THE CURRENT TEST ROUTINE AND IF 
ANY TEST MESSAGES HAVE BEEN TRANSMITTED OR RECEIVED PRINT THE 
END OF TEST MESSAGE. 



ElAOF OORR AAAA 



E1A08 OORR AAAA 



NO INTRP 

AN EXPECTED INTERRUPT FAILED TO OCCUR- THE PROGRAM HILL 
TERMINATE THE CURRENT TEST ROUTINE AND PRINT THE END OF TEST 
MESSAGE IF ANY TEST MESSAGES HAVE BEEN TRANSMITTED OR RECEIVED. 



****NOTE.. DIAGNOSTIC ERROR MESSAGES. .THE FOLLOWING ERROR MESSAGES ARE PRINTED 
ONLY IF FUNCTION 2 SWITCH 14 IS SELECTED. EACH OF THESE MESSAGES 
INDICATES A SOFT (RECOVERABLE! ERROR CONDITION. INCLUDED IN THE 
DESCRIPTION OF EACH OF THESE PRINTOUTS IS THE ACTION THAT HILL BE 
TAKEN BY THE PROGRAM TO ATTEMPT RECOVERY FROM THE ERROR. THESE 
PRINTOUTS ARE INTENDED TO BE USED AS A GUIDE IN LOCATING THE EXACT 
POINT OF FAILURE IN THE TEXT PRINTOUT. 



THE RFT MESSAGE HAS RECEIVED WITH EITHER A BLOCK CHECK ERROR 
OR A FORMAT ERROR. A FORMAT ERROR OCCURS UNDER THE FOLLOWING 
CONDITIONS. 

1. SOH WAS RECEIVED IN HEADING OR NORMAL TEXT 

2. STX WAS RECEIVED IN NORMAL TEXT 

3. ENO OR EOT WAS RECEIVED IN HEADING OR NORMAL TEXT 

4. OLE WAS RECEIVED IN TRANSPARENT TEXT AND WAS IMMEDIATELY 
FOLLOWED BY OTHER THAN OLE, SYNt ETX, ETB, OR ITB. 

THE PROGRAM HILL TRANSMIT NAK AND ATTEMPT TO RECEIVE THE 
RFT AGAIN. 



EIAIO OORR AAAA 



WHILE ATTEMPTING TO RECEIVE THE RFT MESSAGE A MESSAGE HAS 
RECEIVED WHICH WAS NOT AN RFT MESSAGE (MESSAGE DID NOT BEGIN 
WITH SOH t). THE PROGRAM HILL TRANSMIT NAK AND AGAIN TRY 
TO RECEIVE THE RFT MESSAGE. 



ElAll OORR AAAA 



ElAOB OORR AAAA 



THE RFT MESSAGE RECEIVED CONTAINED AN X FIELD WHICH HAS NOT 
COMPOSED OF TWO DECIMAL DIGITS. THE PROGRAM WILL TRANSMIT NAK 
AND AGAIN ATTEMPT TO RECEIVE THE RFT. 



TEST ROUTINE 8 HAD RECEIVED AND ACKNOWLEDGED THE SELECTION 
SEQUENCE AND HAS EXPECTING THE RFT MESSAGE HHEN ENQ WAS RECEIVED. 
THIS INDICATES THAT THE MASTER TERMINAL DID NOT CORRECTLY 
RECEIVE THE ACKNOHLEDGEMENT IDLE ACKO). THE PROGRAM MILL 
RE-TRANSMIT THE ACKNOHLEDGEMENT. 



EIA12 OORR AAAA 



THE RFT MESSAGE RECEIVED CONTAINED A Y FIELD HHICH HAS NOT 
COMPOSED OF TWO DECIMAL DIGITS. THE PROGRAM HILL TRANSMIT NAK 
AND AGAIN ATTEMPT TO RECEIVE THE RFT MESSAGE. 



ElAOC OORR AAAA 



A RECEIVE TIMEOUT OCCURED WHILE RECEIVING THE RFT MESSAGE. 
THIS INDICATES THAT EITHER CHARACTER PHASE HAS NEVER ESTABLISHED 
AND NOTHING HAS RECEIVED OR THE END OF TEXT CHARACTER 
(ETX OR ETB) HAS NOT RECEIVED CORRECTLY. THE PROGRAM HILL 
MONITOR THE LINE FOR ENO AND HHEN ENQ IS RECEIVED RE-TRANSMIT 
THE LAST ACKNOWLEDGEMENT (ACK OR NAK). 



EIA13 OORR AAAA 



THE RFT MESSAGE RECEIVED CONTAINED A X VALUE WHICH THE PROGRAM 
IS NOT CAPABLE OF RESPONDING TO. THE PROGRAM WILL TRANSMIT 
NAK AND ATTEMPT TO RECEIVE THE RFT AGAIN. 



E1A18 OORR AAAA 



ElAOO OORR AAAA 



CHARACTER PHASE HAS ESTABLISHED HHEN ATTEMPTING TO RECEIVE 
THE RFT MESSAGE, BUT THE MESSAGE DID NOT BEGIN WITH A VALID 
START OF TEXT SEQUENCE (SOH, STX, OR OLE STX). THIS IS AN 
INDICATION OF FALSE SYNCHRONIZATION. THE PROGRAM WILL ABORT 
SYNCHRONIZATION AFTER RECEIVING TWO CHARACTERS AND WILL THEN 
MONITOR FOR ENQ. WHEN ENQ IS RECEIVED THE LAST ACKNOWLEDGEMENT 
WILL BE RE-TRANSMITTED. 



AN INVALID SEQUENCE WAS RECEIVED IN RESPONSE TO AN RFT MESSAGE 
(A RESPONSE OTHER THAN ACK OR NAK). THE PROGRAM WILL TRANSMIT 
ENQ TO REQUEST THAT ACKNOWLEDGEMENT BE REPEATED. 



EIA19 OORR AAAA 



A RECEIVE TIMEOUT OCCURED AFTER TRANSMITTING THE RFT MESSAGE. 
THE PROGRAM WILL TRANSMIT ENO TO REQUEST THAT THE ACKNOHLEDGEMENT 
BE REPEATED. 



ElAOE OORR AAAA 



THF PROGRAM WAS MONITORING THE LINE FOR ENQ FOLLOWING A PREVIOUS 
ERROR, BUT ENQ HAS NOT RECEIVED. THE PROGRAM WILL RETURN TO 
MONITORING FOR ENQ. 



EIAIA OORR AAAA 



THE WRONG ALTERNATE POSITIVE ACKNOWLEDGEMENT WAS RECEIVED IN 
RESPONSE TO THE RFT MESSAGE. THE PROGRAM WILL RE-TRANSMIT THE 
RFT MESSAGE IF A TIMEOUT OCCURED PREVIOUSLY, IF NO TIMEOUT 
OCCURED ENQ WILL BE TRANSMITTED. 
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EIAIB OORR AAAA 



NAK HAS RECEIVED IN RESPONSE TO THE RFT MESSAGE. THIS INDICATES 
THAT THE RFT WAS RECEIVED BY THE MASTER TERMINAL WITH A BCC 
ERROR. THE PROGRAM WILL RE-TRANSMIT THE RFT MESSAGE. 



EIAIO OORR AAAA 



NAK WAS RECEIVED IN RESPONSE TO A TEST MESSAGE. THIS ERROR WILL 
BE LOGGED IN THE END OF TEST MESSAGE AND THE NEXT TEST MESSAGE 
WILL BE TRANSMITTED. 



EIAIE OORR AAAA 



A RECEIVE TIMEOUT OCCUREO AFTER TRANSMITTING A TEST MESSAGE. 
THIS ERROR HILL BE LOGGED IN THE END OF TEST MESSAGE AND THE 
NEXT TEST MESSAGE WILL BE TRANSMITTED. 



E1A20 OORR AAAA 



AN INVALID RESPONSE (NOT ACK OR NAK) WAS RECEIVED IN RESPONSE TO 
A. TEST MESSAGE. THIS ERROR WILL BE LOGGED IN THE END OF TEST 
MESSAGE AND THE NEXT TEST MESSAGE TRANSMITTED. 



E1A21 OORR AAAA 



NO ENQ WAS RECEIVED PRECEEDING THE TEST MESSAGES. 
HILL IGNORE THIS ERROR. 



THE PROGRAM 



E1A22 OORR AAAA 



A RECEIVE TIMEOUT OCCUREO WHILE RECEIVING A TEST MESSAGE. 
THIS ERROR WILL BE LOGGED IN THE END OF TEST MESSAGE. 



E1A23 OORR AAAA 



THE TEST MESSAGE RECEIVED DID NOT START WITH A VALID START 

OF TEXT CHARACTER < SOH, STX, OR DLE STX>. THE PROGRAM WILL LOG 

THIS ERROR IN THE END OF TEST MESSAGE. 



E1A24 OORR AAAA 



THE TEST MESSAGE WAS RECEIVED WITH A BCC OR FORMAT ERROR. THE 
PROGRAM WILL TRANSMIT NAK AND LOG THE ERROR IN THE END OF TEST 
MESSAGE. (SEE ElAOF FOR DEFINITION OF FORMAT ERRORI. 



E1A25 OORR AAAA 



NO EOT WAS RECEIVED FOLLOWING THE TEST MESSAGES. 
WILL IGNORE THIS ERROR. 



THE PROGRAM 



4.3 TEXT PRINTOUT 

IF FUNCTION 2 SWITCH 12 IS TURNED ON ALL TEXT AND CONTROL CHARACTERS 
WHICH ARE TRANSMITTED OR RECEIVED BY THE PROGRAM WILL BE PRINTED AT 
THE COMPLETION OF THE TEST. 

IF FUNCTION 2 SWITCH 12 IS OFF BUT SWITCH 13 IS ON, ONLY THOSE 
MESSAGES OR CONTROL SEQUENCES WHICH WHERE RECEIVED WITH AN ERROR 
INDICATION WILL BE PRINTED OUT. 

ALL EBCDIC CHARACTERS HILL BE PRINTED IN HEXADECIMAL FORM. 
IN ADDITION TO THE HEX PRINTOUT, 5 ALPHA MESSAGES MAY ALSO BE 
PRINTED. 



1. 
2. 
3. 



5. 



XMIT....THIS IS PRINTED AT THE START OF DATA TRANSMITTED. 
RECV....THIS IS PRINTED AT THE START OF DATA RECEIVED. 
TIMEOUT. THIS PRINTED AT THE END OF DATA RECEIVED AND INDICATES 

THAT A RECEIVE TIMEOUT OCCUREO. 
ERR THIS IS PRINTED AT THE END OF DATA RECEIVED AND 

INDICATES THAT THE DATA RECEIVED HAS NOT AS EXPECTED. 
CORE.. ..THIS INDICATES THAT STORAGE OF DATA TRANSMITTED AND 

RECEIVED EXCEEDED AVAILABLE CORE STORAGE AND NO FURTHER 

DATA COULD BE STORED. 

THE INITIAL POLLING OR SELECTION SEQUENCE RECEIVED FROM THE 
MASTER TERMINAL HILL NOT APPEAR IN THE TEXT PRINTOUT. 

THE SCA HARDHARE AUTOMATICALLY REMOVES ALL SYNCHRONOUS IDLE 
CHARACTERS HHICH ARE RECEIVED PRECEEDING EACH MESSAGE. FOR THIS 
REASON RECEIVE PRINTOUTS WILL SHOH NO LEADING SYN CHARACTERS. 

THE SCA HARpHARD AUTOMATICALLY INSERTS TWO SYN CHARACTERS PRECEEDING 
EACH TRANSMISSION AND THE PROGRAM INSERTS FOUR. FOR THIS REASON 
TRANSMIT PRINTOUTS HILL SHOH FOUR LEADING SYN CHARACTERS. 

THE FOLLOHING IS A LIST OF POINTS TO CHECK IN THE TEXT PRINT WHICH 
MAY BE USEFUL IN DETERMINING THE CAUSE OF AN ERROR. 



1. 
2. 
3. 

4. 

5. 

6. 



10. 



SOH (01001 MUST NOT APPEAR IN HEADING OR NORMAL TEXT IFORMAT ERR» 
STX (02001 MUST NOT APPEAR IN NORMAL TEXT (FCHtNAT ERROR) 
HEADING OR NORMAL TEXT MUST END WITH ETX (03001 OR ETB (26001 
FOLLOWED BY THE THO BLOCK CHECK CHARACTERS. 
SOH (OlOOJ INDICATES THE START OF HEADING TEXT. 
STX (0200) INDICATES THE START OF NORMAL TEXT (THIS MAY 
APPEAR IMMEDIATELY FOLLOHING HEADING TEXTI. 

DLE STX (1000 0200) INDICATES THE START OF TRANSPARENT TEXT 
(THIS MAY APPEAR IMMEDIATELY FOLLOWING HEADING TEXT). 
DLE (1000) MUST NOT APPEAR IN TRANSPARENT TEXT FOLLOHED BY 
ANY CHARACTER OTHER THAN SYN (3200), DLE (1000), ETB (2600), 
ETX (0300), OR ITB (IFOOI. 

TRANSPARENT TEXT MUST END HITH DLE ETB (1000 2600) OR DLE ETX 
(1000 0300) FOLLOHED BY THE THO BLOCK CHECK CHARACTERES. 
SYN INSERTION— THE SYNCHRONOUS IDLE SEQUENCE MUST BE TRANSMITTED 
AT INTERVALS BY A TERMINAL TRANSMITTING LONG MESSAGES TO ENSURE 
THAT THE TERMINALS MAINTAIN CHARACTER SYNCHRONIZATION. THE 
SYNCHRONOUS IDLE SEQUENCE IS SYN SYN (3200 3200) FOR HEADING AND 
NORMAL TEXT AND DLE SYN (1000 3200) FOR TRANSPARENT TEXT. THE 
RATE OF INSERTION SHOULD BE NOMINALLY EVERY ONE SECOND FOR 
NORMAL TEXT AND EVERY 85 CHARACTERS FOR TRANSPARENT TEXT. 
THIS RATE WILL VARY HITH THE SETTING OF THE TRANSMIT TIMER FOR 
NORMAL TEXT AND THE PROGRAM TIMER FOR TRANSPARENT TEXT. 
THE 1130 TRANSMIT TIMER IS NORMALLY SET FOR 1.25 SECONDS AND 
THE PROGRAM TIMER FOR .35 SECONDS- 
OLE (1000) MUST BE INSERTED FOLLOWING EACH DLE CHARACTER 
WHICH IS TRANSMITTED AS DATA IN TRANSPARENT TEXT. 
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5. COMMENTS 



5.1 PROGRAM PHILOSOPHY 

EACH TEST PERFORMED BY THE 1130 TRANSMIT/RECEIVE BSC PROGRAM CAN 
BE DIVIDED INTO TWO SEPARATE TEST PHASES. IN THE FIRST PHASE ONE OF 
THE TERMINALS TRANSMITS A REQUEST-FOR-TEST IRFTI MESSAGE TO REQUEST 
THAT A TEST PROCEDURE BE PERFORMED. THE RFT MESSAGE CONTAINS VARIOUS 
PARAMETERS WHICH DEFINE THE ACTION TO BE PERFORMED AND TEXT TO BE 
USED DURING THE TEST.. DURING THIS PHASE NORMAL BSC ERROR RECOVERY 
IS PERFORMED ON THE RFT MESSAGE. THE SECOND PHASE IS THE ACTUAL 
PERFORMANCE OF THE TEST AS DEFINED BY THE RFT MESSAGE. IF THE X 
FIELD IN THE RFT MESSAGE WAS 00 THEN THE RFT TRANSMITTOR ITHE 
REQUESTING TERMINALI WILL TRANSMIT Y TEST MESSAGES. IF X HAS OTHER 
THAN 00 THEN THE RFT RECEIVER WILL TRANSMIT Y TEST MESSAGESt AND 
THE TEXT CONTAINED IN THE TEST MESSAGE WILL BE DETERMINED BY THE 
X VALUE. NO ERROR RECOVERY HILL BE PERFORMED ON TEST MESSAGES. 



5.1.1 REQUEST-FOR-TEST MESSAGES 

THE REQUEST FOR TEST MESSAGE HAS THE FORMAT.. 



S T S DEB 

OtXYNOLT TEXT L T C 
H EX E X C 



NOTE. .THE TEXT IS INCLUDED ONLY IF 
X=01, AND THE OLE CHARACTERS 
ARE INCLUDED ONLY IF TRANSPARENT 
TEXT IS USED. 



WHERE.. 

S0H3! IDENTIFIES THE MESSAGE AS AN RFT MESSAGE 

X IS A FIELD OF TWO NUMERIC CHARACTERS (00-991 WHICH DEFINES THE 
ACTION TO BE PERFORMED DURING THE TEST AND/OR SPECIFIES THE 
TEST MESSAGE TO BE USED DURING THE TEST. 

IF X=00 THEN THE RFT TRANSMITTER WILL TRANSMIT THE TEST MESSAGES. 

IF X=01 THEN THE RFT RECEIVER WILL TRANSMIT TEST MESSAGES 
CONTAINING THE TEXT RECEIVED IN THE RFT MESSAGE. 

IF X=02-99 THE RFT RECEIVER WILL TRANSMIT THE TEST MESSAGE SPECIFIED 

BY THE X VALUE. 

Y IS A FIELD OF TWO NUMERIC CHARACTERS 100-99) WHICH SPECIFIES THE 
NUMBER OF TEST MESSAGES TO BE TRANSMITTED. 

N IS A NUMERIC CHARACTER WHICH DEFINES THE SIZE OF THE TO FIELD. 
THIS WILL ALWAYS BE 1 FOR THE 1130 MULTI-POINT PROGRAM. 

TO IS THE SELECTION ADDRESS WHICH IS ENTERED BY PATCH CARD. 



5.1.2 TEST MESSAGES 

THE FOLLOWING TEST MESSAGES ARE USED BY THIS PROGRAM 

02-EBCOIC TRANSPARENT TEXT 

D S TEXT DEB 
L T 256 CHARACTERS L T C 
E X THROUGH 255 E X C 

04-EBCDIC NORMAL TEXT (MUST BE SELECTED BY PATCH CARD) 

S TEXT SAME AS 02 EXCEPT E B 
T CONTROL CHARACTERS ARE T C 
X OMITTED 245 CHARACTERS X C 

12-EBCDIC NORMAL TEXT 

S E TEXT E B 
T S / 36 CHARACTERS T C 
X C A-Z AND 0-9 X C 

13-EBCDIC NORMAL TEXT 

S E TEXT E B 
T S 4 36 CHARACTERS T C 
X C A-Z AND 0-9 X C 

14-EBCDIC NORMAL TEXT (MUST BE SELECTED BY PATCH CARD) 



(MUST BE SELECTED BY PATCH CARD) 



S TEXT E 
T 36 CHARACTERS T 
X A-Z AND 0-9 X 

15-EBCDlC NOKMAL TEXT (MUST BE SELECTED BY PATCH CARD) 

S TEXT E B 

T 74 CHARACTERS HEX 00 T C 
X 6 CHARACTERS SYN X C 

16-EBCDIG NORMAL TEXT 

S TEXT E B 

T 40 CHARACTERS HEX AA T C 
X 40 CHARACTERS HEX 55 X C 

19-EBCDIC TRANSPARENT TEXT 

S TEXT DEB 

L T 280 CHARACTERS HEX 00 L T C 
E X 10 CHARACTERS SYN E X C 
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5.1.3 LINE CONTROL 

THE FOLLOWING LINE CONTROL CHARTS SHOW THE NORMAL SEQUENCE OF CONTROL 
AND TEXT CHARACTERS TRANSMITTED BY EACH TERMINAL UNDER VARIOUS 
TEST CONDITIONS. THE EXAMPLES ALL ASSUME A Y VALUE OF ONE. THE OLE 
CHARACTERS ARE OMITTED FOR NON-TRANSPARENT TEXT. THE ACKO AND ACKI 
SHOWN IN THE CHARTS REPRESENT THE COMPLETE POSITIVE ACKNOWLEDGEMENT 
SEQUENCES. POL AND SEL REPRESENT THE POLLING AND SELECTION 
ADDRESSES. THE EOT CHARACTERS PRECEDING EACH POLLING AND SELECTION 
ADDRESS ARE REQUIRED TO RESET ALL TERMINALS ON THE LINE TO CONTROL 
MODE. CHARACTER PHASE MUST BE RE-ESTABLISHED AFTER EACH OF THESE EOT 
CHARACTERS. ACK O/l OR NAK RESPONSES TO TEXT MAY BE PRECEEDED BY UP 
TO SEVEN LEADING GRAPHIC CHARACTERS. THESE CHARACTERS WILL BE 
PRINTED IN THE TEXT PRINTOUT BUT WILL OTHERWISE BE IGNORED BY THE 
PROGRAM. 

FOR X=00 WHEN THE MASTER IS TRANSMITTING THE RFT MESSAGE. 



SLAVE 
(1130) 


A 

CO 

K 


A 
CI 

K 






A 
CO 

K 


MASTER 


E S E 
E N 
T L Q 


S T S E 
OSXVNCTT 
H XX 


s 
L T 

E X 


TEXT 


D E E 
L T 
EX T 



FOR X=00 WHEN THE SLAVE IS TRANSMITTING THE RFT MESSAGE. 



SLAVE 
(1130) 



MASTER 



FOR X=01 

SLAVE 
(1130) 



MASTER 



S 

% 
H 



E P E 
N 
T L Q 



E P E 
N 
T L Q 



FOR X=02-99 
SLAVE 
(1130) 



MASTER 



E P E 
N 
T L 



T S E 

X Y N O T T 
X X 



S 
X 

H 



X Y 



D S D E 
L T TEXT L T 
EX EX 



E 


T 



A 
CI 

K 



A 
CO 

K 



T D S 

N O L T 

E X 



S T S E 

OXXYNOTT 
H XX 





D 


E 




E 








A 














A 


TEXT 


L 
E 


T 

X 






T 








CO 

K 














CI 

K 








A 




E 


S 


E 







S 






D 


E 


E 








CI 





E 


N 




L 


T 


TEXT 


L 


T 











K 




T 


L 


Q 




E 


X 






E 


X 


T 


E 








A 














A 



















CO 














CI 










T 








K 














K 










A 


E 


s 


E 




D 


S 






D 


E 




E 








CI 





E 


N 




L 


T 


TEXT 


L 


T 













K 


T 


L 


Q 




E 


X 






E 


X 




T 









5-2 ROUTINE DESCRIPTIONS 

RTN 1.. ROUTINE 1 TRANSMITS AN RFT MESSAGE WITH X=00 AND THEN TRANSMITS TEST 
MESSAGE 02 Y TIMES. 

RTN 2. .ROUTINE 2 TRANSMITS AN RFT MESSAGE WITH X=00 AND THEN TRANSMITS TEST 
RTN 3.. ROUTINE 3 TRANSMITS AN RFT MESSAGE WITH X=00 AND THEN TRANSMITS TEST 

RTN 4.. ROUTINE 4 TRANSMITS AN RFT WITH X=02 THEN RECEIVES TEST MESSAGE 02 

Y TlMES» 

RTN 5. .ROUTINE 5 TRANSMITS AN RFT WITH X=16 THEN RECEIVES TEST MESSAGE 16 

Y TIMES • 

RTN 6. .ROUTINE 6 TRANSMITS AN RFT WITH X=19 THEN RECEIVES TEST MESSAGE 19 

Y TIMES • 

RTN 7. .ROUTINE 7 WILL BE EXECUTED ONLY IF SELECTED BV FUNCTION 1. THIS 

ROUTINE NORMALLY WILL TRANSMIT AN RFT MESSAGE WITH X=12 AND RECEIVE 
TEST MESSAGE 12 Y TIMES. THIS ROUTINE HAS ASSOCIATED WITH IT A 52 
WORD TABLE IN CORE STORAGE WHICH MAY BE ALTERED TO PROVIDE RFT 
MESSAGES AND TEST MESSAGES WHICH ARE NOT PROVIDED BY ROUTINES 1-6. 
THIS TABLE IS ALTERED BY PROGRAM PATCH CARD (SEE DM DESCRIPTION). 
THE FIRST WORD OF THE TABLE CONTAINS THE X VALUE TO BE USED IN THE 
RFT MESSAGE TRANSMITTED BY ROUTINE 7. THIS VALUE IS ENTERED IN 
HEXADECIMAL FORM (FOR X=13 ENTER GOOD). THE SECOND WORD OF THE TABLE 
CONTAINS (IN HEXl THE COUNT OF ALL CHARACTERS INCLUDING CONTROL 
CHARACTERS IN THE TEXT PORTION OF THE TABLE. THE LAST 50 WORDS IN 
THE TABLE CONTAIN THE TEXT WHICH WILL BE USED IN THE TEST MESSAGES 
IF X=00 IS ENTERED, OR IN THE RFT MESSAGE IF X=01 IS ENTERED. IF 
ANY CONTROL CHARACTERS ARE TO BE USED IN THE TEXT OR IF LONG 

S^Tu*mI*^f/^^^^'*'^^ *'*^ "5^° ^"^ T^^T ''"ST BE TRANSPARENT AND BEGIN 
WITH OLE STX AND END WITH OLE ETX. IF NORMAL TEXT IS USED IT MUST 
BEGIN WITH STX AND END WITH ETX. THE PROGRAM WILL SUPPLY ALL OTHER 
NECESSARY CONTROL CHARACTERS. THE STARTING ADDRESS OF THE TABLE 
IS 05E8. SEE SECTION 5.2.1 FOR SAMPLE PATCH CARDS. 

RTN 8. -ROUTINE 8 IS THE RFT RECEIVER ROUTINE. THIS ROUTINE MILL, WHEN 

SELECTED, CONTINUOUSLY MONITOR THE COMMUNICATIONS LINE UNTIL AN RFT 
MESSAGE IS RECEIVED. IF THE X VALUE IN THE RFT RECEIVED WAS 00 THIS 
ROUTINE WILL THEN ACCEPT Y TEST MESSAGES FROM THE MASTER TERMINAL. 



5.2.1 SAMPLE PATCH CARDS 

THE FOLLOWING PATCH CARDS MAY BE USED TO ALTER THE OPERATION OF 
ROUTINE 7. PUNCH ALL CARDS STARTING IN COLUMN 1. THE £ INDICATES A 
12 PUNCH IN COLUMN 1. PATCH CARDS MUST BE PLACED AHEAD OF LAST 
CARD IN PROGRAM DECK. 

TO CAUSE RTN 7 TO TRANSMIT AN RFT WITH X=13 AND RECEIVE TEST MESSAGE 13. 
e05E8 GOOD 

TO CAUSE RTN 7 TO TRANSMIT AN RFT WITH X=4 AND RECEIVE TEST MESSAGE 4. 
605E8 0004 



DATE 
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EC NO. 
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TO CAUSE RTN 7 TO TRANSMIT AN RFT MITH X=14 AND RECEIVE TEST MESSAGE 14. 
USE ONE PATCH CARD.. 

e05E8 DOGE 

TO CAUSE RTN 7 TO TRANSMIT AN RFT WITH X=15 AND RECEIVE TEST MESSAGE 15. 
USE ONE PATCH CARD.. 

t05E8 OOOF 

TO CAUSE RTN 7 TO TRANSMIT AN RFT WITH X=00 THEN TRANSMIT Y TEST MESSAGES 
CONTAINING A SCOPING PATTERN OF 80 HEX AA CHARACTERS. 
USE FOUR PATCH CARDS.. 

605E8 0000 0054 1002 AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA 

605F6 AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA 

£0604 AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA 
S0612 AAAA 1003 

TO CAUSE RTN 7 TO TRANSMIT AN RFT WITH X=01 AND RECEIVE TEST MESSAGES 
CONTAINING A SCOPING PATTERN OF 80 HEX AA CHARACTERS. 
USE FOUR PATCH CARDS.. 

e05E8 0001 0054 1002 AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA 

E05F5 AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA 

&0604 AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA AAAA 

£0612 AAAA 1003 



6. APPENDIX 

6.1 BINARY SYNCHRONOUS COMMUNICATIONS CONTROL CHARACTERS 



6.2 BINARY SYNCHRONOUS COMMUNICATIONS CONTROL SEQUENCES 



BSC 
CHARACTER . 


HEX . 


MEANING 


SYN 


32 . 


SYNCHRONOUS IDLE 


OLE 


10 . 


DATA LINK ESCAPE 


ENQ 


2D , 


, ENQUIRY 


SOH 


. 01 . 


, START OF HEADING 


STX 


. 02 


. START OF TEXT 


ETB 


. 26 


. END OF BLOCK 


ETX 


. 03 


. END OF TEXT 


ITS 


. IF 


. INTERMEDIATE BLOCK CHARACTER 


EOT 


. 37 


. END OF TRANSMISSION 


NAK 


. 3D 


'. NEGATIVE ACKNOWLEDGEMENT 


ACKO 


! 70 


! POSITIVE ACKNOWLEDGEMENT, EVEN RECORD (CONTROL 
. CHARACTER ONLY IF IN CONTROL SEQUENCE— SEE 6.2) 


ACKl 


'. 61 


'. POSITIVE ACKNOWLEDGEMENT, ODD RECORD (CONTROL 
. CHARACTER ONLY IF IN CONTROL SEQUENCE— SEE 6.2 » 



BSC 
SEQUENCE 



FUNCTION 



SYN SYN . SYNCHRONOUS IDLE NORMAL 
OLE SYN I SYNCHRONOUS IDLE TRANSPARENT TEXT 
ENQ . ENQUIRY 
SOH . START OF HEADING 
STX '. START OF NORMAL TEXT 
OLE STX ! START OF TRANSPARENT TEXT 
ETB see I END OF HEADING OR NORMAL TEXT BLOCK 
ITB BCC '. END OF HEADING OR NORMAL TEXT INTERMEDIATE BLOCK 
ETX BCC '. END OF HEADING OR NORMAL TEXT 
OLE ETB BCC I END OF TRANSPARENT TEXT BLOCK 
OLE ITB BCcI END OF TRANSPARENT TEXT INTERMEDIATE BLOCK 
OLE ETX BCC. END OF TRANSPARENT TEXT 

OLE ACKO I POSITIVE ACKNOWLEDGEMENT EVEN RECORD 
DLE ACKl ', POSITIVE ACKNOWLEDGEMENT ODD RECORD 
NAK ', NEGATIVE ACKNOWLEDGEMENT 
EOT I END OF TRANSMISSION 
OLE EOT . DISCONNECT SIGNAL 
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\- 'f- i,- i~ -fi -r- ffirfi -i^ V 



C160 
0161 
0162 
0163 
0164 



0165 
0166 
0167 
0168 



017A 
018A 
019A 
OlAA 
OIBA 
OIBB 
OIBC 
OIBD 



0000 



05DC 





031A 


05DD 





0000 


050E 





0000 


05DF 





0000 


05E0 





0000 


05E1 





0000 


05E2 





0001 


05E3 


1 


0629 


05E4 


1 


0629 


05E5 





0000 


05E6 





0000 


05E7 





FFFF 



PROGRAM ID 031A 
EQUATE TABLE 

,1. ,1, ,•, J, .1- J* V- ,•- »>■ -^ .«- J. «lr O, •,'. '^•, -J, J, -Jr .f, -Jr .1~ «i. -!- -•- -J.- -J- -I- -•- -■- ■.■ >- -*- -<- ->. .1- .■- .A. 

-i' -t- •!• ■^- -V- ^ 'I* ■*>' -V- '1- -V -r ■V' ■V' A- -V- ^^ -V- -^ ■^- ■V- -V- -V- ^T '.■" -l- -t- •!' -1- -I' -V- »!• -l-- "r '■" '■'■ -V- -V 

THIS TABLE EQUATES TEST PROGRAM LABELS 
TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 
ADDRESSES. 



MONITOR ENTRY ADDRESSES 



BEGIN EQU 

START EOU 

ERROR EOU 

LOG 

END 

* 

* 



EOU 
EQU 



/0160 BEGIN ROUTINE 

BEGIN£1 SUPERVISOR ROUTINE 

START61 ERROR LOG ROUTINE 

ERROREl STATUS LOG ROUTINE 

LOG&l END ROUTINE 



MONITOR CONTROL WORD ADDRESSES 



RTNSW 
ERLCK 
LOGBY 
RLCF 



EQU END£1 ROUTirviE START SW 

EQU ENDe2 LOCK ON ERROR CONTROL 

EQU END£3 I/O BUSY SW ADDRS 

EQU ENDe4 RELOCATION FACTOR ADDRS 



* INTERRUPT TRANSFER VECTOR ADDRESSES 

* 

ILO EQU /017A INTERRUPT LEVEL ZERO 

ILl EQU lL0ei6 INTERRUPT LEVEL ONE 

IL2 EQU ILU16 INTERRUPT LEVEL TWO 

IL3 EOU IL2K16 INTERRUPT LEVEL THREE 

IL4 EQU IL3E16 INTERRUPT LEVEL FOUR 

RQTY EOU IL4G1 CONSOLE PRINTER REQUEST 

ROKB EOU ROTY&l USE KEYBOARD REQUEST 

SVKB EOU RQKB&l KB SERVICE REQUEST 

ORG *e/05DC 



THE MONITOR USES CORE LOCATIONS 0-050C. 
FOR CONTENTS OF THESE ADDRESSES REFER 
TO THE DIAGNOSTIC MONITOR LISTING. 



* PROGRAM CONTROL TABLE 

***«***********#****5>* #*******#****** ******* 



/031A PROGRAM ID 

*-* ROUTINE ID 

*-* ROUTINE ADDRESS 

*-* PROGRAM CONTROL 

*-* ROUTINE SELECTION 

*-* OPERATING OPTIONS 

/OOOl Y VALUE FOR RET 

STRT LOOP ADDRESS 

STRT RESTART ADDRESS 

*-* MONITOR ENTRY ONE 

*-* MONITOR ENTRY TWO 

/FFFF TERMINATOR 



*************************************** 

TEST MESSAGE TEXT 

********************************* 

THIS TABLE DEFINES THE X VALUE TO BE 
USED IN THE RFT MESSAGE WHICH IS 
TRANSMITTED BY TEST ROUTINE 7. 



PID 


DC 


RIO 


DC 


RAD 


DC 


SWO 


DC 


SWl 


DC 


SW2 


DC 


SW3 


DC 




DC 




DC 


MLSCF 


DC 




DC 




DC 


* 




***** 


*** 


* 




***** 


***: 



31A00020 
31A00030 
31A00040 
31A00050 
31A00060 
31A00070 
31A00080 
31A00090 
31A00100 
31A00110 
31A00120 
31A00130 
31A00140 
31A00150 
31A00160 
31A00170 
31A00180 
31A00190 
31A00200 
31A00210 
31A00220 
31A00230 
31A00240 
31A00250 
31A00260 
31A00270 
31A00280 
31A00290 
31A00300 
31A003I0 
31A00320 
31A00330 
31A00340 
31A00350 
31A00360 
31A00370 
31A00380 
31A00390 
31A00400 
31A00410 
31A00420 
31A00430 
31A00440 
31A00450 
31A00460 
31A00470 
31A00480 
31A00490 
31A00500 
31A00510 
31A00520 
31A00530 
31A00540 
31A00550 
31A00560 
31A00570 
31A00580 
31A00590 
31A00600 
31A00610 
31A00620 
31A00630 
31A00640 
31A00650 
31A00660 
31A00670 
31A00680 
31A00690 



IF THIS RFT MSG IS RECEIVED BY TEST 

ROUTINE 8, THE TEST MESSAGE CONTAINED 
IN THIS TABLE WILL Bfc TRANSMITTED. 



05E8 





oooc 


05E9 





0028 


05EA 





0227 


05EB 





61C1 


05EC 





C2C3 


05ED 





C4C5 


05EE 





C6C7 


05EF 





C8C9 


05F0 





D1D2 


05F1 





D3D4 


05F2 





D5D6 


05F3 





D7D8 


05F4 





09E2 


05F5 





E3E4 


05F6 





E5E6 


05F7 





E7E8 


05F8 





E9F0 


05F9 





F1F2 


05FA 





F3F4 


05FB 





F5F6 


05FC 





F7F8 


05FD 





F903 


05FE 




OOIE 



XSPEC DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

BSS 
* 

**********=: 
* 

**********^ 
* 



/OOOC 

40 

/0227 

/61C1 

/C2C3 

/C4C5 

/C6C7 

/C8C9 

/D1D2 

/D3D4 

/D5D6 

/D7D8 

/D9E2 

/E3E4 

/E5E6 

/E7E8 

/E9F0 

/F1F2 

/F3F4 

/F5F6 

/F7F8 

/F903 

30 



********************************* 

INITIALIZE AND START 

********************************* 



X = 12 


CHARACTER COUNT 


STX 


ESC 


/ 


A 


B 


C 


D 


E 


F 


G 


H 


I 


J 


K 


L 


M 


N 





P 


Q 


R 


S 


T 


U 


V 


w 


X 


Y 


Z 





1 


2 


3 


4 


5 


6 


7 


8 


9 


ETX 



061C COOB 
061D 1 4C20 0622 

061F 3003 

0620 0805 

0621 3004 

0622 4480 0160 

0624 1 osnc 

0626 0000 

0626 1 0628 

0627 3A00 

0628 0000 



BGIN 



LD 
BSC 

WAIT 

XIO 

WAIT 

BSI 

DC 



BSS 
BITSW DC 
DC 
DC 



EDIT 



0629 
062B 
062C 



062D 



062E 

0630 

0631 

0632 

0633 

0635 

0637 

0639 

063A 1 

063C 1 

063E 1 



C400 ODBl 

1890 

COFB 

18D8 

D400 0D71 

18C8 

1808 

1088 

D400 0D70 

6700 0B24 

6F00 0189 

6300 

6F00 05DD 

6F00 0D72 

D400 0D6D 



STRT 



LD 

SRT 

LD 

RTE 

STO 

RTE 

SRA 

SLT 

STO 

LDX 

STX 

LDX 

STX 

STX 

STO 



L 

L3 
L3 
3 
L3 
L3 
L 



EDIT 
*G3tZ 

3 

BITSW 

4 

BEGIN 

PID 



EDIT 

/3A00 

*-* 

ENQ 

16 

EDIT 

24 

SELCT 



POLL 

INT 

ILl-1 



RID 

RE02 

MONIT 



BR IF EDIT IS ENTERED 

WAIT FOR EDIT ENTRY 
READ BIT SWITCHES 
WAIT FOR LOAD OPTIONS 
GO TO MONITOR 
PCT ADDRESS 



READ BIT SWITCHES 

lOCC 
POLL AND SELECT ADDRESSES 



STORE SELECTION SEQUENCE 

STORE POLLING SEQUENCE 

START AT ROUTINE ONE 

START MONITOR OPERATION 



* 
****s 



*************************************** 
ROUTINE SEQUENCE CONTROL 

^ * ^ -I* =1^ ^ -1- =!= T^ ^ >!= -J: 3? -,; 3[; ^ ^ 3{; 4: # :ic ;^ s|c :^ ij- :;: ^ ?I; ;;t ^t -;; =;; i'^ ij: ;;; ^ ;); ;|; ^ 

THIS ROUTINE CHECKS PROGRAM OPTIONS 
AND CONTROLS THE SEQUENCE IN WHICH 



31A00700 
31A00710 
31A00720 
31A00730 
31A00740 
31A00750 
31A00760 
31A00770 
31A00780 
31A00790 
31A00800 
31A00810 
31A00820 
31A00830 
31A00840 
31A00850 
31A00860 
31A00870 
31A00880 
31A00890 
31A00900 
31A00910 
31A00920 
31A00930 
31A00940 
31A00950 
31A00960 
31A00970 
31A00980 
31A00990 
31A01000 
31A01010 
31A01020 
31A01030 
31A01040 
31A01050 
31A01060 
31A01070 
31A01080 
31A01090 
31A01100 
31A01110 
31A01120 
31A01130 
31A01140 
31A01150 
31A01160 
31A01170 
31A01180 
31A01190 
31A01200 
31A01210 
31A01220 
31A01230 
31A01240 
31A01250 
31A01260 
31A01270 
31A01280 
31A01290 
31A01300 
31A0131O 
31A01320 
31A01330 
31A01340 
31A01350 
31A01360 
31AC1370 
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TEST ROUTINES ARE EXECUTED. 



0640 




C400 


05E1 


CNTRL 


LD 


L 


SW2 




0642 




lOOB 






SLA 




11 


CK OPTION SWITCH 


0643 




6700 


IFFE 




LDX 


L3 


/IFFE 




0645 




4C2 8 


0649 


^ 


BSC 


L 


*+2,+Z 


BR IF OVER 4K 


0647 




6700 


0FF7 


# 


LDX 


L3 


LSTWO 




0649 




6F00 


0D62 




STX 


L3 


TOP 


SET HIGH CORE LIMIT 


064B 




1004 






SLA 




4 


CK OPTION SWITCH 


064C 




ECOO 


05E0 




OR 


L 


SWl 




064E 




D400 


0D6B 




STO 


L 


OPTIN 


SAVE RTN NO AND OPT 


0650 




4C10 


0656 


^ 


BSC 


L 


CNOO,- 


BR IF RFT XMITTER 


0652 




6308 






LDX 


3 


8 




0653 




6F00 


05DD 




STX 


L3 


RIO 


SELECT RTN 8 


0655 




7015 




^ 


MOX 




CN30 




0656 




C400 


05E0 


CNOO 


LD 


L 


SWl 




0658 




4008 


0664 


4c 


BSC 


L 


CN20,e 


BR IF NO RTN SELECT! 


065A 




D400 


05DD 


CNIO 


STO 


L 


RID 


SAVE NEW RTN NUMBER 


065C 




9024 






S 




RIDCK 




065D 




4C08 


066B 


^ 


BSC 


L 


CN30,e 


BR IF VALID RTN 


065F 




1810 






SRA 




16 




0660 




0400 


05EO 




STO 


L 


SWl 


IF INVALID RTN 


0662 




D400 


05DD 


*■ 


STO 


L 


RID 


GO TO RTN ONE 


06 64 




7401 


05DD 


CN20 


MDX 


L 


RID, SI 


ADVANCE TO NEXT RTN 


0666 




C400 


05DD 




LO 


L 


RID 


CHECK FOR END OF 


0668 




9019 






S 




RTNOM 


NORMAL SEQUENCE 


669 




44B0 


0164 


* 
CN30 


BSI 


I 


END,-Z 


END PROGRAM 


066B 




6780 


05DD 


LDX 


13 


RID 




066D 




C700 


0678 




LD 


L3 


RTTBL-1 


FETCH RTN ADDRS 


066F 




0400 


050E 




STO 


L 


RAD 


STORE RTN ADDRS 


0671 




0400 


0165 




STO 


L 


RTNSW 


SET RTN START SWITCK 


0673 




6700 


0683 




LDX 


L3 


CLEAR 




0675 




6F0O 


05E5 




STX 


L3 


MLSCF 


SET MONITOR RETURN 


0677 





4480 


0161 


* 

4; . 


BSI 


I 


START 


GO TO MONITOR 




* 






ROUTINE 


ADDRESS TABLE 



0679 




06B6 


067A 




06B0 


067B 




06C4 


067C 




06CE 


067D 




6D0 


067E 




06D2 


067F 




06DC 


0680 




06E6 


0681 





0008 


0682 





0006 



RTTBL DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



NRTN 



0683 1 6700 0D49 
0685 1 4400 076B 

0687 6316 

0688 1010 

0689 1 D700 0EF2 



LRTN 
* 

RIDCK DC 
RTNOM DC 
* 

* 

CLEAR LOX 
BSI 
LDX 
SLA 
STO 



RTNl 
RTN2 
RTN3 
RTN4 

RTN5 
RTN6 
RTN7 
RTN 8 



XMIT 


RFT 


X 


00 


TM 


02 


XMIT 


RFT 


X 


00 


TM 


16 


XMIT 


RFT 


X 


00 


TM 


19 


XMIT 


RFT 


X 


02 






XMIT 


RFT 


X 


16 






XMIT 


RFT 


X 


19 







XMIT RFT SPECIAL 
RFT RECEIVER RTN 



LRTN-RTTBLEl 
NRTN-RTTBLEl 

CLEAR END OF TEST PRINT TABLE 



3 T XR3#C0NSTANT TABLE ADDRS 

INITL INITIALIZE ACKO/ACKl 

3 22 CLEAR END OF 

16 TEST 

3 TABLE-1 MESSAGE 



31A01380 

31A01390 

31A0I400 

31A01410 

31A01420 

31A01430 

31A01440 

31A01450 

31A0I460 

31A0I470 

31A01480 

31A01490 

31A01500 

31A01510 

31A01520 

31A01530 

31A01540 

31A01550 

31A01560 

31A01570 

31A01580 

31A01590 

31A01600 

31A01610 

31A01620 

31A01630 

31A01640 

31A01650 

31A01660 

31A01670 

31A01680 

31A01690 

31A01700 

31A01710 

31A01720 

31A01730 

31Abl740 

31A01750 

31A01760 

31A01770 

31A01780 

31A01790 

31A01800 

31A01810 

31A01820 

31A01830 

31A01840 

31A01850 

31A01860 

31A01870 

31A01880 

31A01890 

31A01900 

31A01910 

31A01920 

31A01930 

31A01940 

31A01950 

31A01960 

31A01970 

31A01980 

31A01990 

31A02000 

31A02010 

31A02020 

31A02030 

31A02040 

31A02050 



068B 


73FF 


MDX 


3 


-1 


068C 


70 FC 


MDX 




«-^ 


068D 


1 6700 0D49 


LDX 


L3 


T 


068F 


0321 


STO 


3 


ERRNO-T 


0690 


D31D 


STO 


3 


TMXMI-T 


0691 


D31C 


STO 


3 


TMRCI-T 


069 2 


C32B 


LD 


3 


ENADR-T 


069 3 


D31B 


STO 


3 


ENPNT-T 


0694 


D32C 


STO 


3 


ENPT2-T 


069 5 


D31A 


STO 


3 


CNTPT-T 



TABLE 

XR3=C0NSTANT TABLE ADDRS 
RESET ERROR IND 
RESET TEST MSG XMIT IND 
RESET TEST MSG RCV IND 



* WAIT FOR DATA SET READY 

*****************Xt ****««**#*:<!* ************** 
* 



069 6 





0B4F 




GTROY 


XIO 


3 


SENSE-T 


0697 





1005 






SLA 




5 


0698 





4810 






BSC 




_ 


0699 





7003 






MDX 




*63 


069A 





1002 






SLA 




2 


069B 


1 


4CAe 


05DE 


* 


BSC 


I 


RADtZC 


069D 





1010 




SLA 




16 


069 E 





D30D 






STO 


3 


FCODE-T 


069 F 


1 


4400 


0889 




BSI 


L 


GO 


06A1 





C377 




DELAY 


LD 


3 


H7000-T 


06A2 





D32A 






STO 


3 


DLYCT-T 


06A3 


1 


6700 


06A9 




LDX 


L3 


CKROY 


06A5 


1 


6F00 


05E5 




STX 


L3 


MLSCF 


06A7 





4480 


0161 


* 
CKROY 


BSI 


I 


START 


06A9 


1 


6700 


0D49 


LDX 


L3 


T 


06AB 





0B4F 






XIO 


3 


SENSE-T 


06AC 





1007 






SLA 




7 


06AD 


1 


4CA8 


05DE 


* 


BSC 


I 


RAD.Zfl 


06AF 


1 


74FF 


0D73 


MDX 


L 


DLYCT,-1 


06B1 





70F1 






MDX 




DELAY£2 


0682 





6201 






LDX 


2 


1 


0683 


1 


4400 


091E 




BSI 


L 


ERPRT 


06B5 





70E0 






MDX 




GTRDY 



0686 1010 
06B7 1 4400 0978 
0689 1 4400 0785 
06BB C365 
06BC 700D 



SENSE SCA DSW 

SKIP IF SCA BUSY 

GO TO SELECTED ROUTINE 
IF DATA SET READY 



SET RECEIVE FUNCTION 
GO START RECEIVE 

SET DELAY COUNTER 

SET MONITOR RETURN 
GO TO MONITOR 

XR3#C0NSTANT TABLE ADDRS 
SENSE SCA DSW 
GO TO SELECTED ROUTINE 
IF DATA SET READY 

DECRE DELAY COUNT BY ONE 
BR IF COUNT NOT ZERO 
XR2#MESSAGE NUMBER 
GO PRINT MESSAGE 



*************«*******ji!*****:jC#:*-c;f;};***j]CjjiSl! :((«!{!** 

* TEST ROUTINE 1 

******************************************** 

* 

RTNl 



SLA 


16 


X VALUE 00 






BSI 


L GNRFT 


GO GENERATE 


RFT 


MSG 


BSI 


L XMRFT 


GO XMIT RFT 


MSG 




LD 


3 H0002-T 


TEST MSG NO. 


. 02 




MDX 


RTN3+6 









06C4 1010 
06C5 1 4400 0978 



******************************************** 
* TEST ROUTINE 2 

*************«**!)!*««*«*:St***;ji >{!=!:!:! ***!;: sic*** ****=;: 
* 

X VALUE 00 
GO GENERATE RFT MSG 
GO XMIT RFT MSG 
TEST MSG NO. 16 



******************************************** 

* TEST ROUTINE 3 

******************************************** 

* 

RTN3 SLA 16 X VALUE 00 

BSI L GNRFT GO GENERATE RFT MSG 



06BD 





1010 




RTN2 


SLA 


16 


06BE 


1 


4400 


0978 




BSI 


L GNRFT 


06C0 


1 


4400 


0785 




BSI 


L XMRFT 


06C2 





C34D 






LD 


3 D16-T 


06C3 





7006 






MDX 


RTN3+6 



31A02060 
31A02070 
31A02080 
31A02090 
31A02100 
31A02110 
31A02120 
31A02130 
31A02140 
31A02150 
31A02160 
31A02170 
31A02180 
31A02190 
31A02200 
31A02210 
31A02220 
31A02230 
31A02240 
31A02250 
31A02260 
31A02270 
31A02280 
31A02290 
31A02300 
31A02310 
31A02320 
31A02330 
31A02340 
31A02350 
31A02360 
31A02370 
31A02380 

■31A02390 
31A02400 
31A02410 

'31A02420 
31A02430 
31A02440 
31A02450 
31A02460 
31A02470 
31A02480 
31A02490 
31A02500 
31A02510 
31A02520 
31A02530 
31A02540 
31A02550 
31A02560 
31A02570 
31A02580 
31A02590 
31A02600 
31A02610 
31A02620 
31A02630 
31A02640 
31A02650 
31A02660 
31A02670 
31A02680 
31A02690 
31A02700 
31A02710 
31A02720 
31A02730 
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2243974 
3A 



06C7 
06C9 


1 



4400 
C34F 


0785 


* 


BSI 
LD 


L 
3 


XMRFT 
D19-T 


06CA 
06CC 


1 
1 


4400 
4C00 


09D1 
07C0 


BSI 
BSC 


L 

L 


GNTM 
XMTM 



06CE C365 
06CF 7003 



0600 C34D 
06D1 7001 



GO XMIT RFT MSG 
TEST MSG NO. 19 

GO GENERATE TEST MSG 
GO TRANSMIT TEST MSG 



* TEST ROUTINE 4 

**************«***«««**#******************** 

* 

RTN4 LD 3 H0002-T X VALUE 02 

MDX RTN6+1 

* 
******************************************** 

* TEST ROUTINE 5 
***************************************:j,***4, 

* 

RTN5 LD 3 D16-T X VALUE 16 
MDX RTN6+1 

* 

***************************************;(; :jl^;j.^ 

* TEST ROUTINE 6 

********** ************************:^ J). :j:^:j;^:jt:jj:^^ 

* 

X VALUE 19 

GO GENERATE RFT MSG 
GO XMIT RFT MSG 
TRANSMIT EOT 

GO RECEIVE TEST MSGS 
* 

******************************************** 

* TEST ROUTINE 7 

*************************************^:;i;jj*^^j;t 

* 



06D2 





C34F 




RTN6 


LD 


3 


D19-T 


0603 




4400 


0978 




BSI 


L 


GNRFT 


06D5 




4400 


0785 




BSI 


L 


XMRFT 


06D7 




4400 


085F 




BSI 


L 


XMRCV 


06D9 




ODAA 






DC 




EOTCT 


06DA 




4C00 


07FB 




BSC 


L 


RCVTM 



06DC 1 C400 OSES 
06DE 1 4C20 06D3 

O6E0 I 4400 0978 
06E2 1 4400 0785 
06E4 1010 
06E5 70E4 



XSPEC 
RTN6+1,Z 

GNRFT 
XMRFT 
16 
RTN3+6 



GET X VALUE 
BR IF X NOT 00 

GO GENERATE RFT MSG 
GO XMIT RFT MSG 



RTN7 LD 

BSC 
* 

BSI 

BSI 

SLA 

MDX 
* 

********** *******************************;;[^^ 

* TEST ROUTINE 8 

***********************************:(„;. :{,:^^;^^^;^ 
* 

XR2#MESSAGE NUMBER 
GO PRINT MESSAGE 

SET RECEIVE REQUEST 

SET WAIT RETURN 

GO WAIT FOR SELECT ADDRS 



RESET MONITOR IND 
TRANSMIT ACK 
D AND RECEIVE RFT 

BR IF RECV TIMEOUT 

SKIP IF NO TEXT RCVD 
BR IF TEXT RECEIVED 



06E6 





6202 




RTN8 


LDX 


2 


2 


06E7 


I 


4400 


08C9 




BSI 


L 


TYPIT 


06E9 





C376 






LD 


3 


H8000-T 


06EA 





0329 






STO 


3 


RE02-T 


06EB 


1 


6600 


06F1 




LDX 


L2 


*£4 


06ED 


1 


6E00 


085F 




STX 


L2 


XMRCV 


06EF 


1 


4C00 


086B 


# 


BSC 


L 


WAIT 


06F1 





1010 






SLA 




16 


06F2 





0324 






STO 


3 


MONIT-T 


06F3 


1 


4400 


085F 


XMACK 


BSI 


L 


XMRCV 


06F5 


1 


8DAE 






DC 




LSTAKE/80 


06F6 





C30B 






LD 


3 


BUFFR-T 


06F7 





F372 






EOR 


3 


HFFFF-T 


06F8 


1 


4C18 


0715 


* 


BSC 


L 


TM0T,6- 


06FA 


1 


7400 


0049 


MDX 


L 


MDSWT 


06FC 





70 lA 




^ 


MDX 




TEXTR 


06FD 





C37D 






LD 


3 


RAREASl-T 



31A02740 

31A02750 

31A02760 

31A02770 

31A02780 

31A02790 

31A02800 

31A02810 

31A02820 

31A02830 

31A02840 

31A02850 

31A02860 

31A02870 

31A02880 

31A02890 

31A02900 

31A02910 

31A02920 

31A02930 

31A02940 

31A02950 

31A02960 

31A02970 

3iA02980 

31A02990 

31A03000 

31A03010 

31A03020 

31A03030 

31A03040 

31A03050 

31A03060 

31A03070 

31A03080 

31A03090 

31A03100 

31A03110 

31A03120 

31A03130 

31A03140 

31A03150 

31A03160 

31A03170 

31A03180 

31A03190 

31A03200 

31A03210 

31A03220 

31A03230 

31A03240 

31A03250 

31A03260 

31A03270 

31A032e0 

31A03290 

31A03300 

31AC3310 

31A03320 

31A03330 

31A03340 

3IA03350 

31A03360 

31A03370 

31A03380 

31A03390 

31A03400 

31A03410 



06FE F368 
06FF 1 4C18 0711 

0701 1 4400 077C 

0703 610D 

0704 620 3 

0705 4042 

0706 1 4400 085F 

0708 8000 

0709 C37D 
070A F368 
070B 1 4C18 06F3 

070D 1 4400 077C 

070F 610E 

0710 70F3 

0711 610B 

0712 6203 

0713 4034 

0714 700E 

0715 610C 

0716 70ED 

0717 C301 

0718 1 4C18 071C 

071A 610F 
071B 7020 

071C C37D 
071D F35E 
071E 1 4C18 0722 

0720 6110 

0721 7018 

0722 C37E 

0723 403D 

0724 1 D400 0EF8 

0726 9351 

0727 1 4C08 072B 

0729 6111 
072A 700F 

072B 1 C400 0DC8 
072D 4033 
072E 1 D400 0EF9 

0730 9351 

0731 1 4C08 0735 

0733 6112 

0734 7005 

0735 6113 

0736 1 C400 0EF8 
0738 1 4C18 0741 

073A 6206 
073B 7001 

073C 6203 
0730 400A 
073E C364 





EOR 


3 


ENQ-T 




31A03420 




BSC 


L 


ENQRC, &- 


BR IF ENO RECEIVED 


31A03430 


* 










31A03440 




BSI 


L 


EOTCK 


GO CK FOR EOT RCVO 


31A03450 


* 










31A03460 




LDX 


1 


/D 




31A03470 




LDX 


2 


3 


XR2=MESSAGE NUMBER 


31A03480 




BSI 




CKRTR 


GO TO CK RETRY 


31A03490 


RCENQ 


BSI 


L 


XMRCV 


RECEIVE 


31A03500 




DC 




/8000 




31A03510 




LD 


3 


RAREA61-T 




31A03520 




EOR 


3 


ENQ-T 




31A03530 




BSC 


L 


XMACK, S- 


BR IF ENQ RECEIVED 


31A03540 


* 










31A03550 




BSI 


L 


EOTCK 


GO CK FOR EOT RECVD 


31A03560 


* 










31A03570 




LDX 


1 


/E 




31A03580 




MDX 




RCENQ-2 




31A03590 


* 










31A03600 


ENQRC 


LDX 


1 


/B 




31A03610 




LDX 


2 


3 


XR2=MESSAGE NUMBER 


31A03620 




BSI 




CKRTR 


GO TO CK RETRY 


31A03630 




MDX 




XMACK 




31A03640 


* 










31A03650 


TMOT 


LDX 


1 


/C 




31A03660 




MDX 




RCENQ-2 




31A03670 


* 










31A03680 


TEXTR 


LD 


3 


ERR-T 




31A03690 




BSC 


L 


*+2,+- 


BR IF NO TEXT ERRORS 


31A03700 


* 










31A03710 




LDX 


1 


/F 




31A03720 




MDX 




XMNAK 




31A03730 


* 










31A03740 




LD 


3 


RAREA£,1-T 




31A03750 




EOR 


3 


SOHPC-T 




31A03760 




BSC 


L 


*+2,+- 


BR IF RFT MESSAGE 


31A03770 


* 










31A03780 




LDX 


1 


/lO 




31A03790 




MDX 




BDRFT 




31A03800 


* 










31A03810 




LD 


3 


RAREA£2-T 


GET X FROM RFT MSG 


31A03820 




BSI 




OTB 


CONVERT TO BINARY 


31A03830 




STO 


L 


TABLE&5 


PUT IN PRINT TABLE 


31A03840 




S 


3 


D99-T 




31A03850 




BSC 


L 


*+2,+ 


BR IF X NOT OVER 99 


31A03860 


* 










31A03870 




LDX 


1 


/ll 




3iA03880 




MDX 




BDRFT 




31A03890 


* 










31A03900 




LO 


L 


RAREA+3 


GET Y VALUE FROM RFT 


31A03910 




BSI 




DTB 


CONVERT TO BINARY 


31A03920 




STO 


L 


TA8LEe6 


PUT IN PRINT TABLE 


31A03930 




S 


3 


D99-T 




31A03940 




BSC 


L 


*+2,+ 


BR IF Y NOT OVER 99 


31A03950 


* 










31A03960 




LDX 


1 


/12 




31A03970 




MDX 




BDRFT 




31A03980 


* 










31A03990 




LDX 


1 


/13 




31A04000 




LD 


L 


TABLE£5 


GET X VALUE 


31A04010 




BSC 


L 


EXITS, +- 


BR IF X=00 


31A04020 


* 










31A04030 


BDRFT 


LDX 


2 


6 


XR2=MESSAGE NUMBER 


31A04040 


* 


MDX 




XMNAK+1 




31A04050 
31A04060 


XMNAK 


LDX 


2 


3 


XR2=MESSAGE NUMBER 


31A04070 




BSI 




CKRTR 


GO TO CK RETRY 


31A04080 




LD 


3 


NAK-T 


SET UP TO 


31A04090 
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073F 0366 

0740 70B2 

0741 1 C400 0EF9 

0743 D320 

0744 COOO 

0745 D31C 

0746 1 4C00 081D 



0748 0000 

0749 1 6D0O 0D6A 
0748 1 6E00 0D6C 
0740 C331 
074E 1 4400 OADB 

0750 C312 

0751 9367 

0752 1 4C08 0757 

0754 D312 

0755 1 4C80 0748 

0757 1 4400 081A 
0759 1 4400 090A 
075B 1 6680 0D6C 
075D 1 4400 091E 
075F 1 4C00 0A58 



0761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 



0000 
E375 
D314 
1808 
A36E 
1090 
8314 
E373 
4C80 0761 



076B 0000 
076C C349 
076D D312 
076E CB53 
076F DB55 



1 



0770 
0771 



D366 
4C80 076B 



0773 0000 

0774 CB55 

0775 1800 

0776 DB55 



* 
EXIT 



STO 
MDX 

8 LD 
STO 
LD 
STO 
BSC 



3 LSTAKEl-T 
XMACK 

L TABLE+6 
3 YCNT-T 

3 TMRCI-T 
L RTMSG 



XMIT NAK 



GET Y VALUE 
SET Y COUNTER 



SET TEST MSG RECV IND 
GO TO RECEIVE TEST MSGS 



* 

* 

* 
CKRT 



:(J#:fr*s)c:Ct****5ic*********s;!*:f:3}:* ************** Jr 

CHECK RETRY COUNTER 

**************************************** 



* 
ERRE> 



R DC 
STX 
STX 
LD 
BSI 
LD 
S 
BSC 

STO 
BSC 

BSI 
BSI 
LDX 
BSI 
BSC 



*-* 

LI ERRNO 

L2 TYPE 
3 MSG4-T 

L STALP 
3 RETRY-T 
3 HOOOl-T 

L ERREX,£ 



3 RETRY-T 

I CKRTR 

L STMON 

L DIAGP 

12 TYPE 

L ERPRT 

L ENPRT 



STORE ERROR NUMBER 
SAVE MESSAGE NUMBER 
GET MSG ADDRS 
GO STORE IN PRINT TBL 

DECRE RETRY BY ONE 
BR IF RETRY ZERO 



RETURN 

START MONITOR OPERATION 
GO PRINT DIAG MSG 
XR2=MESSAGE NUMBER 
GO PRINT ERROR MSG 
END ROUTINE 



* 

* 
* 

* 
DTB 



**************************************** 
CONVERT 2 EBCDIC DECIMAL DIGITS 
TO BINARY 
**************************************** 



DC 

AND 

STO 

SRA 

M 

SLT 

A 

AND 

BSC 



I 



*-* 

HOFOF-T 

TEMP-T 

8 

HOOOA-T 

16 

TEMP-T 

HOOFF-T 

0TB 



REMOVE BITS 0-3 8-11 

RIGHT JUSTIFY HI DIGIT 
MULT BY DEC 10 

ADD LO DIGIT 
SAVE BITS 8-15 
RETURN 



************* 

* 

* 

************* 

* 

INITL DC 

LD 3 

STO 3 
LDD 3 
STD 3 
STO 3 
BSC 

* 

************* 



******************************* 
INITIALIZE POSITIVE ACKNOWLEDGEMENT 
TO ACKO AND SET RETRY TO 7. 

******************************* 



*-* 

H0007-T 
RETRY-T 
ACKS-T 
POSAK-T 
LSTAKSl- 
I INITL 



SET RETRY TO 7 
INITIALIZE 
POSITIVE 

ACKNOWLEDGEMENTS 
RETURN 



************* 

* 

ALTNT DC 

LDD 3 

RTE 

STD 3 



******************************* 
ALTERNATE POSITIVE ACKNOWLEDGEMENT 
AND SET RETRY TO 7. 

******************************* 



*-* 

POSAK-T 
16 
POSAK-T 



ALTERNATE 
POSITIVE 

ACKNOWLEDGEMENTS 



31A04100 
31A04110 
31A04120 
31A04130 
31A04140 
31A04150 
31A04160 
31A04170 
3IA04180 
31A04190 
31A04200 
31A04210 
31A04220 
31A04230 
31A04240 
31A04250 
31A04260 
31A04270 
31A04280 
31A04290 
31A04300 
31A04310 
31A04320 
31A04330 
31A04340 
31A04350 
31A04360 
31A04370 
31A04380 
31A04390 
31A04400 
31A04410 
31A04420 
31A04430 
31A04440 
31A04450 
31A04460 
31A04470 
31A04480 
31A0449 
31A04500 
31A04510 
31A04520 
31A04530 
31A04540 
31A04550 
31A04560 
31A04670 
31A04580 
31A04590 
31A04600 
31A04610 
31A04620 
31A04630 
31A04640 
31A04650 
31A04660 
31A04670 
31A04680 
31A04690 
31A04700 
31A04710 
31A04720 
31A04730 
31A04740 
31A04750 
31A04760 
31A04770 



0777 D366 

0778 C349 

0779 D312 
D77A 1 4C80 0773 



077C 0000 
077D C37D 
077E F362 
077F 1 4CA0 077C 

0781 6207 

0782 1 6E00 0D6C 
0784 70D2 



STO 3 

LD 3 

STO 3 

BSC I 

*************>! 

* 

************** 

* 

EOTCK DC 

LO 3 

EOR 3 

BSC I 

LDX 2 
STX L2 
MDX 



LSTAK+1-T 

H0007-T 

RETRY-T 

ALTNT 



SET RETRY TO 7 
RETURN 



****************************** 
CHECK FOR EOT RECEIVED 

:****************************** 



*-* 

RAREA£1-T 
EOT-T 
EOTCK, Z 



iR IF NOT EOT RECVD 



7 

TYPE 

ERREX 



******************************************** 
* TRANSMIT RFT MESSAGE 



■V'Cf-'l*'»"t»T-'P'l 



0785 





0000 




XMRFT 


DC 




*-* 


0786 





6201 






LDX 


2 


1 ) 


0737 


1 


4400 


08C9 




BSI 


L 


TYPIT ( 


0789 





C367 






LD 


3 


HOOOl-T 


078A 





D329 






STO 


3 


RE02-T ! 


078B 


1 


6600 


0791 




LDX 


L2 


*£4 


0780 


1 


6E00 


085F 




STX 


L2 


xMRCv ; 


078F 


1 


4C00 


086B 




BSC 


L 


WAIT ( 


079 1 





1010 






SLA 




16 


0792 





0324 




* 
CTINU 


STO 


3 


MONIT-T F 


079 3 





40 OF 




BSI 




ALTNT 1 


0794 


1 


4400 


085F 




BSI 


L 


XMRCV ; 


0796 


1 


8E5C 






DC 




RFTTM£/8000 


079 7 





40E4 






BSI 




EDTCK ( 


079 8 





C30B 






LO 


3 


BUFFR-T 


0799 





F372 






EOR 


3 


HFFFF-T 


079A 


1 


4C18 


0760 




BSC 


L 


ERRTO, £- 1 


079C 





C37D 




V 


LO 


3 


RAREA&l-T 


079D 





F355 






EOR 


3 


POSAK-T 


079E 


I 


4C98 


0785 




BSC 


I 


XMRFT, £- 1 


07A0 





C37D 




^ 


LD 


3 


RAREA&l-T 


07A1 





F356 






EOR 


3 


P0SAK£1-T 


07A2 


1 


4C18 


07B4 




BSC 


L 


WRACK, £- 


07A4 





C37D 






LD 


3 


RAREA£1-T 


07A5 





F364 






EOR 


3 


NAK-T 


07A6 


1 


4C18 


07BB 


J; 


BSC 


L 


NAKRC,£- 


07A8 





6118 






LDX 


1 


/18 


07A9 





6202 




XEN02 


LDX 


2 


2 


07AA 


1 


4400 


0748 




BSI 


L 


CKRTR 


07AC 


1 


4400 


085F 




BSI 


L 


XMRCV 


07AE 


1 


8DB0 






DC 




EN0CT&/8000 


07AF 





70E7 






MDX 




CTINUS4 


0730 





6119 




ERRTO 


LDX 


1 


/19 


07B1 


I 


6D00 


0068 




STX 


LI 


TOIND 


07B3 





70F5 




^ 


MDX 




XENQ2 


07B4 





611A 




WRACK 


LDX 


1 


/lA 


07B5 





C31F 






LD 


3 


TOIND-T 


0766 


1 


4C18 


07A9 


* 


BSC 


L 


XEN02,£- 



XR2#MESSAGE NUMBER 
GO PRINT MESSAGE 

SET TRANSMIT REQUEST 

SET WAIT RETURN 

GO WAIT FOR POLL ADDRS 

RESET MONITOR IND 

ALTERNATE ACKS 
XMIT RFT MSG AND 

RECEIVED RESPONSE 
GO CK FOR EOT RECVD 

BR IF TIMEOUT 



BR IF CORRECT ACK RCVD 



BR IF WRONG ALTERNATE ACK 



BR IF NAK RECEIVED 



GO TO CHECK RETRY 
XMIT ENO AND 

RECEIVE RESPONSE 



SET TIMEOUT IND 



BR IF TIMEOUT IND ZERO 



31A04780 

31A04790 

31A04800 

31A04810 

31A04820 

31A04830 

31A04840 

31A04850 

31A04860 

31A04870 

31A04880 

31A04890 

31A04900 

31A04910 

31A04920 

31A04930 

31A04940 

31A04950 

31A04960 

31A04970 

31A04980 

31A04990 

31A05000 

31A05O10 

31A05020 

31A05030 

31A05040 

31A05050 

31A05060 

31A06070 

31A05080 

31A05090 

31A05100 

31A05110 

31A05120 

31A05130 

31A05140 

31A051b0 

31AO5160 

31A05170 

31A05180 

31A05190 

31A05200 

31AO5210 

31A05220 

31A05230 

31A05240 

31A05250 

31A05260 

31A05270 

31A05280 

31A05290 

31A05300 

31A05310 

31A05320 

31A05330 

31A05340 

31A05350 

31A05360 

31A05370 

31A05380 

31A05390 

31A05400 

31A05410 

31A05420 

31A05430 

31A05440 

31A05450 
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07B8 1010 
07B9 D31F 
07BA 7001 

07BB 611B 
07BC 6202 
07BD 1 4400 0748 
07BF 7004 



SLA 
STO 
MDX 



16 
3 TOIND-T 
*+l 



RESET TIMEOUT IND 



07C0 
07C1 
07C2 
07C4 
07C5 
0706 
0707 



COOO 

D31D 

C400 0EF9 

D320 

40AD 

C320 

4C08 07F4 



0709 9367 
07CA D320 
07CB 0318 
07CC EB76 
070D D002 
070E 1 4400 085F 
07D0 0000 
0701 1 4400 0770 

07D3 C30B 
07D4 F372 
0705 1 4020 07DB 

07D7 1 7401 OEFA 
07D9 611E 
07DA 7013 

07DB 037D 
0700 F364 
07DD 1 4020 07E3 

07DF 1 7401 OEFB 
07E1 6110 
07E2 700B 

07E3 0370 
07E4 F356 
07E5 1 4018 0705 

07E7 C37D 
07E8 F355 
07E9 1 4018 0705 

07EB 1 7401 OEFC 
07ED 6120 

07EE 1 6000 0D6A 
07F0 0331 
07F1 1 4400 OADB 
07F3 7001 

07F4 1 4400 085F 

07F6 1 ODAA 

07F7 1 4400 OBIA 

07F9 1 4000 0A58 



GO CK RETRY 



NAKRC LDX 1 /IB 

LDX 2 2 

BSI L CKRTR 

MDX CTINU+1 

* 

* TRANSMIT TEST MESSAGES 

****!jt!JC*#***#««**************** ************** 

* 



XMTM LD 
STO 
LD 
STO 
BSI 

TSMSG LD 
BSO 

« 

S 

STO 

LD 

OR 

STO 

BSI 

DO 

BSI 



LD 

EOR 

BSO 

MDX 
LDX 
MDX 

LD 

EOR 

BSO 

HOX 
LDX 
MDX 

LD 

EOR 

BSO 

LD 

EOR 

BSO 

MDX 
LDX 

STX 
LD 
BSI 
MDX 

BSI 
DC 
BSI 
BSO 



* 
CKY 



EX 



* 
3 TMXMI-T 
L TABLEt6 
3 YONT-T 

ALTNT 
3 YONT-T 
L EX,+ 

3 HOOOl-T 
3 YONT-T 
3 TMPNT-T 
3 H8000-T 
*£>2 
L XMROV 

*-* 
L EOTCK 

3 BUFFR-T 
3 HFFFF-T 
L *&4,Z 



SET TEST MSG XMIT IND 
GET Y VALUE 
SET Y COUNT 
ALTERNATE AOKS 

BR IF Y=00 

DEORE Y COUNT BY ONE 



XMIT TEST MSG AND 

RECEIVE RESPONSE 
GO CK FOR EOT RECVD 



BR IF NO TIMEOUT 



L TABLEe7fei ADD ONE TO TMOUT COUNT 
1 /IE 
CKY 



3 RAREA61-T 
3 NAK-T 
L *£4,Z 



BR IF NOT NAK ROVD 



L TABLE68t61 ADD ONE TO NAK COUNT 
1 /ID 
CKY 

3 RAREA£1-T 
3 P0SAK61-T 
L TSMSG-lf+- BR IF AOK 

3 RAREA61-T 
3 POSAK-T 
L TSMSG-lf+- BR IF CORRECT AOK 

L TABLE69,61 ADD 1 TO INVALID RESP ONT 
1 /20 



LI ERRNO 

3 MSG4-T 
L STALP 
TSMSG-1 



XMROV 
EOTOT 
STMON 
ENPRT 



STORE ERROR NUMBER 



TRANSMIT EOT 



GO PRINT END MSGS 
******************************************** 



31A05460 

31A05470 

31A05480 

31A05490 

31A05500 

31A05510 

31A05520 

31A05530 

31A05540 

31A05550 

31A05560 

31A05570 

31A05580 

31A05590 

31A05600 

31A05610 

31A05620 

31A05630 

31A05640 

31A05650 

31A05660 

31A05670 

31A05680 

31A05690 

31A05700 

31A05710 

31A05720 

31A05730 

31A05740 

31A05750 

31A05760 

31A05770 

31A05780 

31A05790 

31A05800 

31A05810 

31A05820 

31A05830 

31A05840 

31A05850 

31A05860 

31A05870 

31A05880 

31A05890 

31A05900 

31A05910 

31A05920 

31A05930 

31A05940 

31A05950 

31A05960 

31A05970 

31A05980 

31A05990 

31A06000 

31A06010 

31A06020 

31A06030 

31A06040 

31A06050 

31A06060 

31A06070 

31A06080 

31A06090 

31A06100 

31A06110 

31A06120 

31A06130 





* 




RECEIVE 


TEST MESSAGES 


31A06140 




***************#*****#**!> 


:****************«** 


31A06150 




* 










31A06160 


07FB 1 0400 0EF9 


RCVTM 


LD 


L TABLE&6 




GET Y VALUE 


31A06170 


07FD 0320 




STO 


3 YCNT-T 




STORE IN Y COUNTER 


31A06180 


07FE COOO 




LD 


* 






31A06190 


07FF D31C 




STO 


3 TMRCI-T 




SET TEST MSG RECV IND 


31A06200 


0800 1 4400 076B 




BSI 


L INITL 




INITIALIZE ACKO/ACKl 


31A06210 


0802 1 4400 085F 




BSI 


L XMROV 




RECEIVE 


31A06220 


0804 8000 




DC 


/8000 






31A06230 


0805 C326 




LD 


3 POLLC-T 






31A06240 


0806 F328 




EOR 


3 SELCT-T 






31A06250 


0807 1 4018 081F 


* 


BSC 


L RTMSGS2, 


£- 


BR IF SELECT RECVD 


31A06260 
31A06270 


0809 C37D 




LD 


3 RAREACl- 


•T 




31A06280 


080A F362 




EOR 


3 EOT-T 






31A06290 


080B 1 4018 0802 


* 


BSC 


L RCVTM&7, 


e- 


BR IF EOT RECEIVED 


31A06300 
31A06310 


0800 6121 




LDX 


1 /21 






31A06320 


OBOE 1 6D00 0D6A 


RTM 


STX 


LI ERRNO 




STORE ERROR NUMBER 


31A06330 


0810 1 4400 0773 




BSI 


L ALTNT 




ALTERNATE ACKS 


31A06340 


0812 0331 




LD 


3 MSG4-T 






31A06350 


0813 1 4400 OADB 




BSI 


L STALP 






31A06360 


0815 0320 




LD 


3 YCNT-T 






31A06370 


0816 1 4008 084A 


* 


BSC 


L ENDltS 




BR IF Y COUNT ZERO 


31A06380 
31A06390 


0818 9367 




S 


3 HOOOl-T 




DECRE Y COUNT BY ONE 


31A06400 


0819 D320 




STO 


3 YCNT-T 






31A06410 


081A 4044 




BSI 


XMROV 




RECEIVE 


31A06420 


081B 8000 




DC 


/8000 






31A06430 


0810 7009 


* 


MDX 


*+9 






31A06440 
31A06450 


081D 1 4400 0773 


RTMSG 


BSI 


L ALTNT 




ALTERNATE ACKS 


31A06460 


081F 0320 




LD 


3 YCNT-T 






31A06470 


0820 1 4008 084D 


* 


BSC 


L END2,6 




BR IF Y COUNT ZERO 


31A06480 
31A06490 


0822 9367 




S 


3 HOOOl-T 




DECRE Y COUNT BY ONE 


31A06500 


0823 0320 




STO 


3 YCNT-T 






31A06510 


0824 403A 




BSI 


XMROV 




XMIT CURRENT ACK AND 


31A06520 


0825 1 80AE 




DC 


LSTAK&/8000 RECEIVE TEST MSG 


31A06530 


0826 C30B 




LD 


3 BUFFR-T 






31A06540 


0827 F372 




EOR 


3 HFFFF-T 






31A06550 


0828 1 4020 082E 


* 


BSC 


L *£4,Z 




BR IF NO TIMEOUT 


31A06560 
31A06570 


082A 1 7401 OEFA 




MDX 


L TABLEe7. 


r&l 




31A06580 


0820 6122 




LDX 


1 /22 






31A06590 


082D 70E0 


* 


MDX 


RTM 






31A066Q0 
31A06610 


082E 1 7400 0D49 




MDX 


L MDSWT 






31A06620 


08 30 7006 




MDX 


*£6 




BR IF TEXT WAS RCVD 


31A06630 


0831 1 4400 0770 




BSI 


L EOTCK 




GO CK FOR EOT RCVD 


31A06640 


0833 6123 




LDX 


1 /23 






31A06650 


0834 1 7401 OEFB 




MDX 


L TABLE£8 


»G1 




31A06660 


0836 70D7 


* 


MDX 


RTM 






31A06670 
31A06680 


0837 0301 




LD 


3 ERR-T 






31A06690 


0838 1 4018 0847 


* 


BSC 


L GDMSGtfi- 


- 


BR IF NO ERRORS IN TEXT 


31A06700 
31A06710 


083A 1 4400 0773 




BSI 


L ALTNT 






31A06720 


0830 C364 




LD 


3 NAK-T 




SET UP TO 


31A06730 


083D D366 




STO 


3 LSTAK+1 


-T 


XMIT NAK 


31A06740 


083E 1 7401 OEFB 




MDX 


L TABLEC8 


,£1 




31A06750 


0840 0331 




LO 


3 MSG4-T 






3IA06760 


0841 1 4400 OADB 




BSI 


L STALP 






31A06770 


0843 6124 




LDX 


1 /24 






31A06780 


0844 1 6D00 0D6A 




STX 


LI ERRNO 






31A06790 


0846 7008 


* 


MDX 


RTMSGS2 






31A06800 
31A06810 
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0847 


1 


7401 


OEFC 


GOMSG 


MDX 


L 


TABLE£9,ei 


0849 





70D3 




* 
ENDl 


MDX 




RTMSG 


084A 





4014 




BSI 




XMRCV RECEIVE EOT 


084B 





8000 






DC 




/8000 


08 4C 





7002 




* 
END2 


MDX 




*62 


084D 





4011 




BSI 




XMRCV XMIT CURRENT ACK AND 


084E 


1 


8DAE 






DC 




LSTAKS/8000 RECEIVE EOT 


084F 





C37D 






LD 


3 


RAREA61-T 


0850 





F362 






EOR 


3 


EOT-T 


0851 


1 


4C18 


0859 


* 


BSC 


L 


*£6,e- BR IF EOT RECEIVED 


0853 





6125 




* 


LDX 


1 


/25 


0854 


1 


6000 


0D6A 




STX 


LI 


ERRNO 


0856 





C331 






LD 


3 


MSG4-T 


0857 


1 


4400 


OADB 




BSI 


L 


STALP 


0859 


1 


4400 


OBIA 




BSI 


L 


STMON 


08 5B 


1 


4400 


090A 




BSI 


L 


DIAGP 


085D 


1 


4C00 


0A58 




BSC 


L 


ENPRT 



085F 
0860 
0862 
0863 
0864 
0865 



0000 

C480 085F 
D315 
E378 
D30D 
7401 085F 



0867 1 4400 0889 
0869 1 4400 090A 

086B C378 
086C 0313 



08 60 C309 
086E 1 4CA0 085F 
0870 1 6700 0876 
0872 1 6F00 05E5 
0874 4480 0161 

0876 1 6700 0D49 

0878 0B4F 

0879 1007 
087A 1 4C28 087F 

087C 6201 
0870 1 4400 09 IE 

08 7F 1 74FF 0D5C 

0881 70EB 

0882 1 4400 OBIA 

0884 6208 

0885 1 4400 091 E 
0887 1 4C00 0A58 



0889 0000 
088A 4029 
088B 630C 
088C 1010 



* PROCESS TRANSMIT/RECEIVE CALL 

* AND WAIT FOR COMPLETION OF OPERATION 



XMRCV 



* 
WAIT 



DC 

LD 

STO 

AND 

STO 

MDX 

BSI 

BSI 

LD 
STO 

LO 

BSC 

LDX 

STX 

BSI 



RETRN LDX 
XIO 
SLA 
BSC 

LDX 
BSI 

MDX 
MDX 
BSI 
LDX 
BSI 
BSC 



*-« 

XMRCV 

REO-T 

H7FFF-T 

FCODE-T 

XMRCV, +1 

GO 

DIAGP 

H7FFF-T 
WTCNT-T 



3 MSEND-T 
I XMRCV, Z 
L3 RETRN 
L3 MLSCF 
I START 



GET XMIT/RECV REQUEST 

REMOVE BIT 

SET FUNCTION FOR XMIT/REC 

START XMIT OR RECV 



SET INT WAIT COUNT 

CK FOR END XMIT/RECV 
BR IF MSG END 

SET MONITOR RETURN 
GO TO MONITOR 



L3 
3 



T 

SENSE-T 
7 
*+3,Z+ 

1 

ERPRT 

WTCNT,-! 
WAIT62 

STMON 
8 

ERPRT 
ENPRT 



RESTORE XR3 
SENSE SCA DSW 



PRINT ERROR MSG 

DECRE WAIT CNT BY ONE 
BR IF COUNT NOT ZERO 



PRINT ERROR MSG 
END ROUTINE 



* START TRANSMIT/RECEIVE OPERATION 

* 

GO DC *-* 

BSI CKOPN 

LDX 3 12 RESET 

SLA 16 TWELVE 



31A06820 

31A06830 

31A06840 

31A06850 

31A06860 

31A06870 

31A06880 

31A06890 

31A06900 

31A06910 

31A06920 

31A06930 

31A06940 

31A06950 

31A06960 

31A06970 

31A06980 

31A06990 

31A07000 

31A0701Q 

31A07020 

31A07030 

31A07040 

31A07050 

31A07060 

31A07070 

31A07080 

31A07090 

31A07100 

31A07110 

31A07120 

31A07130 

31A07140 

31A07150 

31A07160 

31A07170 

31A07180 

31A07190 

31A07200 

31A07210 

31A07220 

31A07230 

31A07240 

31A07250 

31A07260 

31A07270 

31A07280 

31A07290 

31A07300 

31A07310 

31A07320 

31A07330 

31A07340 

31A07350 

31A07360 

31A07370 

31A07380 

31A07390 

31A07400 

31A07410 

31A07420 

31A07430 

31A07440 

31A07450 

31A07460 

31A07470 

31A07480 

31A07490 



088D I D700 0D48 
088F 73FF 

0890 70FC 

0891 1 6700 0049 

0893 D37D 

0894 0B39 

0895 C30D 

0896 1 4C20 08A6 

0898 C330 

0899 1 4400 OADB 
0898 1 6600 0DC5 
089D 7201 
089E 1 6E00 0057 
08A0 COOO 
08A1 D30F 
08A2 0B3B 
08A3 0845 
08A4 1 4C80 0889 



08A6 
08A7 
08A8 
08A9 
08AA 
08AB 
08AC 
08AE 
08AF 



D31E 
8367 
D30E 
C345 
D30C 
C32F 
4400 OADB 



COOO 

D30F 
08B0 0B3B 
0881 0B3D 
08B2 1 4C80 0889 



08B4 0000 

08B5 1 6700 0D49 

08B7 1 C400 05E1 

08B9 lOOC 

OBBA 1 4C28 08BF 

08BC C32D 
08BD 1 4C20 08C2 

08BF C31B 
08C0 D32C 
08C1 7002 

08C2 C32C 
08C3 D3IB 

08C4 1010 
08C5 1 D480 0064 
08C7 1 4C80 08B4 



08C9 
08CA 
08CC 
08CE 
0800 
08D2 



0000 

6E00 0EF3 
C600 08D9 
0400 0EF6 
4480 0163 
0EF3 



* 
XMIT 



STO 
MDX 
MDX 

LDX 

STO 

XIO 

LD 

BSC 

LD 

BSI 

LDX 

MDX 

STX 

LD 

STO 

XIO 

XIO 

BSC 

STO 

A 

STO 

LD 

STO 

LD 

BSI 

LD 

STO 

XIO 

XIO 

BSC 



L3 T-I 
3 -1 

*-4 



L3 
3 
3 
3 

L 



RAREA+1-T 
SYNRG-T 
FCODE-T 
XMIT.Z 



3 MSG3-T 
L STALP 
L2 RAREA 

2 £1 

L2 POINT 
* 

3 RTBSY-T 
3 ENDOP-T 
3 STRED-T 

I GO 

3 lOAR-T 
3 HOOOl-T 
3 POINT-T 
3 H0004-T 
3 SYNC-T 
3 MSG2-T 

L STALP 
* 
3 RTBSY-T 
3 ENDOP-T 
3 STSYN-T 

I GO 



INDICATORS 



XR3#C0NSTANT TABLE ADORS 

SYN TO SYNC REG 

CK FUNCTION 

BR IF XMIT FUNCTION 



POINT TO RECEIVE AREA 

SET RTN BUSY IND 
END SCA OPERATION 
START READ 
RETURN TO CALLING RTN 



POINT TO XMIT AREA 
SET XMIT SYNS IND 



SET RTN BUSY IND 
END SCA OPERATION 
START WRITE 
RETURN TO CALLING RTN 



SAVE OR DELETE LAST MESSAGE 

!|!** ***«#***!!:«***********««* ******* 



* 

* 

********** 

* 

CKOPN DC 
LDX 
LD 
SLA 
BSC 

* 

LD 
BSC 

LD 
STO 
MDX 
* 

LD 
STO 



*-* 
L3 T 
L SW2 

12 
L *£3,ZG 

3 NOERR-T 
L *£3,Z 

3 ENPNT-T 
3 ENPT2-T 
*£2 

3 ENPT2-T 
3 ENPNT-T 



CK OPTION SWITCH 

BR IF PRINT ALL TEXT ON 

BR IF NO ERROR 

SAVE LAST MESSAGE 

DELETE LAST MESSAGE 



* 

***** 
* 
***** 



SLA 16 
STO I ENPNT 
BSC I CKOPN 

PRINT STATUS MESSAGE 

********************* ********#:l=***:^sj:5;;«sj! 



TYPIT DC 
STX 
LD 
STO 
BSI 
DC 



*-* 
L2 TABLE 
L2 AMSGS-1 
L TABLE&3 
I LOG 

TABLE 



STORE MSG NUMBER 
GET MSG ADDRS 
STORE MSG ADORS 
PRINT MESSAGE 



31A07500 
31A07510 
31A07520 
31A07530 
31A07540 
31A07550 
31A07560 
3IA07570 
31A07580 
3IA07590 
31A07600 
31A07610 
31A07620 
31A07630 
3IA07640 
3IA076S0 
31A07660 
31A07670 
31A07680 
31A07690 
31A07700 
3IA07710 
31A07720 
3IA07730 
31A07740 
31A07750 
31A07760 
31A07770 
3IA07780 
3IA07790 
31A07800 
31A07810 
31A07820 
31A07830 
31A07840 
31A07850 
• 31A07860 
31A07870 
31A07880 
31A07890 
31A07900 
31A07910 
31A07920 
31A07930 
31A07940 
31A07950 
31A07960 
31A07970 
31A07980 
31A07990 
31A08000 
31A08010 
31A08020 
31A08030 
31A08040 
31A08050 
31A08060 
31A08070 
31A08080 
31A08090 
31A08100 
31A0B110 
31A08120 
31A08130 
31A08140 
31A08150 
31A08160 
31A08170 
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08D3 


1 


6700 0D49 




LDX 


L3 T 


RESTORE XR3 


08D5 





1010 




SLA 


16 




08D6 


1 


0400 0EF6 




STO 


L TABLE&3 




08D8 


1 


4C80 08C9 


^ 


BSC 


I TYPIT 


RETURN 


08DA 


1 


08DE 


AMSGS 


DC 


A1701 


MON POLL 


08DB 


1 


08E3 




DC 


A1702 


MON SEL 


08DC 


1 


08E8 




DC 


A1703 




08DO 


1 


08F9 


4: 


DC 


A1704 




08DE 





7252 


A1701 


DC 


/7252 


MO 


08DF 





7621 




DC 


/7621 


N 


08E0 





5652 




DC 


/5652 


PO 


08E1 





5E5E 




DC 


/5E5E 


LL 


08E2 





FFFF 


* 


DC 


/FFFF 


TERMINATOR 


08E3 





7252 


A1702 


DC 


/7252 


MO 


08 E4 





7621 




DC 


/7621 


N 


08E5 





9A36 




DC 


/9A36 


SE 


08E6 





5E21 




DC 


/6E21 


L 


08E7 





FFFF 


^ 


DC 


/FFFF 


TERMINATOR 


08E8 





9621 


A 1703 


DC 


/9621 


X 


08E9 





2121 




DC 


/2121 




08EA 





2121 




DC 


/2121 




08EB 





A621 




DC 


/A621 


Y 


08EC 





2121 




DC 


/2121 




08ED 





2121 




DC 


/2121 




08EE 





9E72 




DC 


/9E72 


TM 


08EF 





52 B2 




DC 


/52B2 


OU 


08F0 





9E21 




DC 


/9E21 


T 


08F1 





763E 




DC 


/763E 


NA 


08F2 





5A21 




DC 


/5A21 


K 


08F3 





2121 




DC 


/2121 




08F4 





2276 




DC 


/2276 


IN 


08F5 





B621 




DC 


/B621 


V 


08F6 





6236 




DC 


/6236 


RE 


08F7 





9A56 




DC 


/9A56 


SP 


08F8 





FFFF 


;fr 


DC 


/FFFF 


TERMINATOR 


08F9 





9621 


A 1704 


DC 


/9621 


X 


08 FA 





2121 




DC 


/2121 




08FB 





2121 




DC 


/2121 




08FC 





A621 




DC 


/A621 


Y 


08F0 





2121 




DC 


/2121 




08FE 





2121 




DC 


/2121 




08FF 





9E72 




DC 


/9E72 


TM 


0900 





52B2 




DC 


/52B2 


OU 


0901 





9E21 




DC 


/9E21 


T 


09 02 





9221 




DC 


/9221 


W 


0903 





3662 




DC 


/3662 


ER 


09 04 





6221 




DC 


/6221 


R 


0905 





92BC 




DC 


/92BC 


W/ 


09 06 





5221 




DC 


/5221 





0907 





3662 




DC 


/3662 


ER 


0908 





6221 




DC 


/6221 


R 


0909 





FFFF 




DC 


/FFFF 


TERMINATOR 



PRINT DIAGNOSTIC MESSAGE 



090A 





0000 




090B 


1 


C400 


05E1 


090D 





lOOE 




09 OE 


1 


4C90 


090A 



OIAGP DC *-« 

LD L SW2 CK OPTION SWT 

SLA 14 

BSC I DIAGPt- BR IF NOT DIAG PRNT 



0910 C321 



LD 



3 ERRNO-T 



GET ERROR NUMBER 



31A08180 
31A08190 
31A08200 
31A08210 
31A08220 
31A08230 
31A08240 
31A08250 
31A08260 
31A08270 
31A08280 
31A08290 
31A08300 
31A08310 
31A08320 
31A08330 
31A08340 
31A08350 
31A08360 
31A08370 
31A08380 
31A08390 
31A08400 
31A08410 
31A08420 
31A08430 
31A08440 
31A08450 
31A08460 
31A08470 
31A08480 
31A08490 
31A08500 
31A08510 
31A08520 
31A08530 
31A08540 
31A08550 
31A08560 
31A08570 
31A08580 
31A08590 
31A08600 
31A08610 
31A08620 
31A08630 
31A08640 
31A08650 
31A08660 
31A08670 
31A08680 
31A08690 
31A08700 
31A08710 
31A08720 
31A08730 
31A08740 
31A08750 
31A08760 
31A08770 
31A08780 
31A08790 
31A08800 
31A08810 
31A08820 
31A08830 
31A08840 
31A08850 



0911 


1 


4C9 8 


090A 


* 


BSC 


I 


DIAGP, 


i + - 


BR IF NO ERROR 


31A08860 
31A08870 


0913 


1 


D400 


0EF3 




STO 


L 


TABLE 






31A08880 


0915 





4480 


0162 




BSI 


I 


ERROR 




GO PRINT ERROR MSG 


31A08890 


0917 


1 


0EF3 






DC 




TABLE 






31A08900 


09 18 





0000 






DC 











31A08910 


0919 


1 


6700 


0049 




LDX 


L3 


T 




RESTORE XR3 


31A08920 


091B 





1010 






SLA 




16 






31A08930 


091C 





D321 






STO 


3 


ERRNO- 


-T 


SET ERROR NO. TO ZERO 


31A0B940 


09 ID 





70F3 




4 


MDX 




*-13 






31A0B950 
31A0896G 










*«*«**=!=*««: 


***: 


******;! 


:** 


:*****«*****:;:** St**** **!i 


31A08970 










« 






PRINT 


ERROR MESSAGE 


31A08980 










******** IS *#**: 


********^ 


;********************** 


31A08990 










* 












31A09000 


09 IE 





0000 




ERPRT 


DC 




*-* 






31A09010 


09 IF 




6E00 


0EF3 




STX 


L2 


TABLE 




STORE MSG NUMBER 


31A09020 


0921 




C600 


092F 




LD 


L2 


EMSGS- 


•1 


GET MSG ADDRS 


31A09030 


092 3 




0400 


0EF6 




STO 


L 


TABLE£3 


STORE MSG ADDRS 


31A09040 


0925 




4480 


0162 




BSI 


I 


ERROR 




PRINT MSG 


31A09050 


0927 




0EF3 






DC 




TABLE 






31A09060 


09 28 




0000 






DC 











31A09070 


0929 




6700 


0D49 




LDX 


L3 


T 




RESTORE XR3 


31A09080 


092B 




1010 






SLA 




16 






31A09090 


092C 




0400 


0EF6 




STO 


L 


TABLES3 




31A09100 


092E 




4C80 


091E 


* 


BSC 


I 


ERPRT 






31A09110 
31A09120 


09 30 




09 38 




EMSGS 


DC 




E1701 




DATA SET NRDY 


31A09130 


0931 




0940 






DC 




E1702 




7 TRIES T 


31A09140 


09 32 




0946 






DC 




E1703 




7 TRIES R 


31A09150 


0933 




094C 






DC 




E1704 




INV X 


31A09160 


09 34 




09 50 






DC 




E1705 




INV Y 


31A09170 


0935 




0954 






DC 




E1706 




INV RFT RCVD 


31A09180 


09 36 




095B 






DC 




E1707 




EOT RCVD 


31A09190 


0937 




0960 




* 


DC 




E1708 




NO INTRP 


31A09200 
31A09210 


0938 





323E 




E1701 


DC 




/323E 




DA 


31A09220 


09 39 





9E3E 






DC 




/9E3E 




TA 


3'lA09230 


093A 





219A 






DC 




/219A 




S 


31A09240 


09 3B 





369E 






DC 




/369E 




ET 


31A09250 


093C 





2176 






DC 




/2176 




N 


31A09260 


09 3D 





62 32 






DC 




/6232 




RD 


31A09270 


093E 





A621 






DC 




/A621 




Y 


31A09280 


09 3F 





FFFF 




* 


DC 




/FFFF 




TERMINATOR 


31A09290 
31A09300 


0940 





D421 




E1702 


DC 




/D421 




7 


31A09310 


0941 





9E62 






DC 




/9E62 




TR 


31A09320 


0942 





2236 






DC 




/2 236 




IE 


31A09330 


0943 





9A21 






DC 




/9A21 




S 


31A09340 


09 44 





9E21 






DC 




/9E21 




T 


31A09350 


0945 





FFFF 




* 


DC 




/FFFF 




TERMINATOR 


31A09360 
31A09370 


0946 





D421 




El 703 


DC 




/D4 21 




7 


31A09 380 


0947 





9E62 






DC 




/9E62 




TR 


31A09390 


0948 





2236 






DC 




/2236 




IE 


31A09400 


09 49 





9A21 






DC 




/9A21 




S 


31A09410 


094A 





6221 






DC 




/6221 




R 


31A09420 


09 4B 





FFFF 




* 


DC 




/FFFF 




TERMINATOR 


31A09430 
31A09440 


09 4C 





2276 




El 704 


DC 




/2276 




IN 


31A09450 


0940 





B621 






DC 




/B621 




V 


31A09460 


09 4E 





9621 






DC 




/9621 




X 


31A09470 


094F 





FFFF 




* 


DC 




/FFFF 




TERMINATOR 


31A09480 
31A09490 


0950 





2276 




E1705 


DC 




/2276 




IN 


31A09500 


0951 





B621 






DC 




/B621 




V 


31A09510 


0952 





A621 






DC 




/A621 




Y 


31A09520 


09 53 





FFFF 






DC 




/FFFF 




TERMINATOR 


31A09530 
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PART NO. 
PAGE 



2243974 
8A 



09 54 





2276 


0955 





B621 


09 56 





6212 


0957 





9E21 


09 58 





621E 


0959 





B632 


09 5A 





FFFF 


09 5B 





3652 


095C 





9E21 


09 5D 





621E 


095 E 





B632 


09 5F 





FFFF 


09 60 





7652 


0961 





2122 


09 62' 


p 


769E 


0963 





62^6 


09 64 





FFFF 



09 65 9E22 
0966 7236 
09 67 52B2 
0968 b 9E21 
09 69 FFFF 

09 6A 303 

096b 9672 

0960 229E 

096D FFFF 

096E O 0303 
09 6F 6236 
0970 IEB6 
09 71 FFFF 

09,72 3662 
0973 ^221 
09 74 FFFF 

0975:0 IE 52 
0976 6236 
09 77 FFFF 



0978 0000 

0979 1 D40G 0EF8 
097B 1 4C28 09C1 
097D 9351 
097E 1 4C30 09C1 

09 80 8351 

0981 4046 

0982 1 D400 0E5E 

0984 1 C400 05E2 

098(£> 1 D400 0EF9 

0988 1 4C08 09C3 

098A 9351 

098B 1 4C30 09C3 

098D 8351 



E1706 


DC 


/2276 


IN '' " 






DC 


/B621 


V - 






DC 


/6212 


RF ' ■ 






DC 


/9E21 


T 






DC 


/621E 


RC 






DC 


7B632 


vb 




* 


DC 


, /FFFF 


TERMINATOR 




E1707 


DC 


/3652 


EO 






DC 


/9E21 


T ■ "^ 






DC 


/621E 


RC 






DC 


/B632 


VD 




# 


DC 


/FFFF 


TERMINATOR 




E1708 


DC 


/765Z 


NO 






DC 


/2122 


I 






DC . 


/769E 


NT 






DC 


/6256 


RP 




* 
***** 


DC 


/FFFF 


TERMINATOR 




)!******#************#«******«**** 


***** 


TOMSG 


DC 


/9E22 


TI 






DC 


/7236 


ME 






PC 


/52B2 


OU 






DC 


/9E21 


T 




4^ 


DC 


/FFFF 


TERMINATOR 




XMMSG 


DC 


/0303 








DC 


/9672 


XM 






DC 


/229E 


IT 




4c 


DC 


/FFFF 


TERMINATOR 




RCMSG 


DC 


/0303 








DC .- 


/6236 


RE 






DC 


/1EB6 


CV . 




Jjr 


DC 


/FFFF 


TERMINATOR 




ERMSG 


DC 


/3662 


ER 






DC 


/6221 


R 




^ 


DC 


/FFFF 


TERMINATOR 




ENCOR 


DC, 


/1E52 


CO. 






DC 


/6236 


RE 






DC 


/FFFF 


TERMINATOR 





***********#******#*«***:» .ic*:(tij!* ****!;! j)t#S|t**jJc*:(c* 

* GENERATE REQUEST FOR TEST MESSAGE 

**************:(t**:»!:(i:»:**:(.:ji^:([j!c***J!t:}:*)!t));*:j:^!;::jt^«#:(t 
* 



GNRFT DC 
STO 
BSC 
S 
BSC 

* 

A 

BSI 

STO 

* 

LD 
STO 
BSC 
S 

BSC 



*-* 

TABLE65 

XERR,Z+ 

D99-T 

XERR,-Z 

D99-T 

BTD 

RFTTM+2 

SW3 

TABLE66 

YERR,+ 

D99-T 

YERR,-Z 



STORE 
BR IF 



X VALUE 
INVALID 



X VALUE 



BR IF INVALID X VALUE 



CONVERT TO EBCDIC 
PUT IN RFT MSG 



GET Y VALUE 



BR IF INVALID Y VALUE 



BR IF INVALID Y VALUE 



3 D99-T 



31A0.9'540 

31A09 550 

31A09 560 

31A09 570 

31A09 580 

31A09590 

31A09600 

31A09610 

31AX19620 

31A09,630 

31A09 640 

31A09650 

31AQ9660 

31A09670 

31A09 680 

31A09690 

31A.09t00 

31A09710 

31A09720 

31A09730 

31A0^740 

31A0975b 

31A09760 

31A09770 

31A09 780 

31A09790 

31A09800 

31A09810 

31A09820 

31A09830 

31A09 840 

31A09850 

31A09860 

3IA09870 

31A098B0 

31A09890 

31Ab99dO 

31A09910 

31A09920 

31Ab9930 

31A09940 

31A09950 

31A09960 

31A09970 

31A09980 

31A09990 

31A10000 

31A10010 

31A10020 

31AiO030 

31A10040 , 

31A10050 : 

31A10060 

31A10076 

31A10080 

31A10090 

31A10100 

31A10110 

31A10120 

31A10130 

31A1G140 

31A10150 

31A10i60 

31A10170 

31A10180 

31A10190 

31A10200 

31A10210 



098E 





4039 




09eF 


1 


D400 


0E5F 


0991 





C35E 




0992 


1 


D400 


0E5D 


0994 





C3^9 




0995 





8367 




0996 





D316 




099 7 


1 


C400 


0628 


0999 





1008 




099A 





1808 




099,B 





EB6F 




099C 


1 


D400 


OE60 



099E 1 C400 0EF8 

09A0 9367 

09 A 1 1 4C18 09 AC 

09,A3 C35D 

09A.4 1808 

09A5 EB5C 

09A6 1 D400 0E61 

09AB 1 7402 0D5F 

09'aA C316 

09;AB 7011 



09 AC 
09AE 
09 A F 
09 BO 
09B2 
09 B4 
09B5 



09B7 



C400 05E9 
D317 
6300 

C700 05EA 
D700 0E61 
7301 

74FE OD60 
70F8 



09B8 1 6700 0049 

09BA 1 C400 05E9 
09 BG 8316 

09BP 1 D400 0E5C 

09BF 1 4C80 0978 

09Ci 6204 , 

0902 700 1 ; 

09G3 620 5 
09C4 1 4400, 091 E 

09C6 4480 0164 



BSI 
1 v: STO 
LD 
STO 
* 

LD 

-. : A 

STO 

La 

SLA 
SRA 
OR , 
STO 

* : : 

LD 

S . 
BSC 
* 

LD 

SRA 

OR 

STO 

MDX 

LD 

MDX 

XONE LD 
STO 
LDX 
LD ; 



MDX 
MDX 
MDX 

* 

EXITA LDX 
LD 
A 

^, . STO 
BSC 
* 

XERR LDX 
MDX 
* 

YERR LDX 
BSI' 
BSI 



BTD 
L RFTTM+3 
3 SOHPC-T 
L RFTTM+l 

3 H0007-T 
3 HOOOl-T 
3 CNTA-T 
L EDIT 

8 . ; \ ■: 
8 
3 HFIOO-T 
L RFTTMS4 

L TABLES5 

3 HOOQl-T 

L XONEfS- 

3 ETX-T 

8 

3 STX-T 

L RFTTM£5 

L CNT.A,62 

3 CNTA-T 

EXITAtS 

L XSPEC+1 
3 CNTB-T. 
3 

L3 XSPEC+2 



STO L3 RFTTM&5 



3 1 
L CNTB,-2 
XONE £4 

L3 T ■ 

L XSPEC+1 

3 CNTA-T 
L RFTTM. 
I GNRFT 

2 4 

YERR+1 

2 5 
L ERPRT 
I END 



CONVERT TO EBCDIC 
PUT IN RFT MSG 

PUT SQH % IN RFT 



SET RFT CHARACTER 
COUNT TO 8 



SET N AND TO FIELDS 
GET X VALUE 
BR IF X=01 



PUT STX ETX IN RFT MSG 
ADD 2 TO COUNT 



GET CHAR COUNT 



GET 2 CHARACTERS 
PUT IN RFT 
ADD ONE TO XR3 
DECRE COUNT BY TWO 
BR IF COUNT NOT ZERO 

RESTORE XR3 



STO RFT CHAR COUNT 
RETURN 

XR2=MESSAGE NUMBER 



XR2=MESSAGE NUMBER 
GO PRINT MSG 
END PROGRAM 



******************************************** 

* CONVERT BINARY TO 2 EBCDIC 

* DECIMAL DIGITS 

************:(!«*******:(;****#*********«!!<**«*!}:« 
* 



09C8 





0000 




BTD 


DC 




*-* 




09C9 





1890 






SRT 




16 




09 C A 





AB6E 






D 


3 


HOOOA-T 


DIVIDE BY DEC 10 


09CB 





1088 






SLT 




8 


PUT HI ORDER DIGIT IN 


09 CC 





1808 






SRA 




8 


ACC 4-7 AND LOW ORDER 


09CD 





1088 






SLT 




8 


DIGIT IN ACC 12-15 


09CE 





EB70 






OR 


■ 3 


HFOFO-T 


ADO ZONE BITS 


09CF 


1 


4C80 


09C8 




BSC 


I 


BTD 


RETURN 



09D1 0000 
09D2 1 4C20 09D9 



******* *****************X" ********* ********** 
* GENERATE TEST MESSAGE 

* 

GNTM DC *-* 

BSC L XNOTZ.Z BR IF X NOT ZERO 



31A1022Q 
31A10230 
31A10240 
31A10250 
3 lA 10260 
31A10270 
31A10280 
31A10290 
31A10300 
31A10310 
31A10320 
31A10330 
31A10340 
31A10350 
31A10360 
31 A 10370 
31A10380 
31A10390 
31A10400 
31A10410 
31A10420 
31A10430 
31A10440 
31A10450 
31A10460 
31A10470 
31A10480 
31 A 10490 
31A10500 
31A10510 
31A10520 
31A10530 
3 lA 10540 
31A1O550 
31A10560 
31A10570 
31A1058a 
31A10590 
3 lA 10600 
31A10610 
3 lA 10620 
31A10&30 
31A10640 
31A10650 
31A10660 
31A10670 
31A10680 
31A10690 
31A10700 
31A10710 
31A10720 
31A10730 
31A10740 
31A10750 
31A10760 
31A10770 
31A1078O 
31 Al 0790 
31A10800 
31A10810 
31A10820 
31A10830 
31A10840 
31A10850 
31A10860 
31A10870 
31A10880 
31A10890 
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* 








31A10900 


09 D4 


1 


6700 


05E9 


LDX 


L3 


XSPEC+1 


SET TEST MESSAGE 


31A10910 


0906 


1 


6F00 


0061 


STX 


L3 


TMPNT 


LOCATION INDICATOR 


31A10920 


09 D8 





707B 




MDX 

* 




EXITB£4 




31A10930 
31A10940 


09 09 





D314 




XNOTZ STO 


3 


TEMP-T 


SAVE X VALUE 


31A10950 


09DA 





9367 




S 


3 


HOOOl-T 




31A10960 


09 DB 


1 


4C20 


09F5 


BSC 
* 


L 


XNOTl, Z 


BR IF X NOT ONE 


31A10970 
31A10980 


09 DO 





C302 




LD 


3 


COUNT-T 


GET CHAR RECVD COUNT 


31A10990 


09DE 





9349 




S 


3 


H0007-T 


SUBTRACT 7 


31A11000 


09 OF 





D316 




STO 


3 


CNTA-T 


STORE IN COUNTER A 


31A11010 


09E0 


1 


0400 


0E5C 


STO 


L 


RFTTM 


STORE IN TEST MSG AREA 


31A11020 


09 E2 


1 


6700 


0E5C 


LDX 


L3 


RFTTM 


SET TEST MESSAGE 


31A11030 


09E4 


1 


6F00 


0061 


STX 


L3 


TMPNT 


LOCATION INDICATOR 


31A11040 


09E6 





6300 




LDX 


3 







31A11050 


09E7 


1 


C700 


0DC9 


LD 


L3 


RAREA+4 


GET 2 CHARACTERS 


31A11060 


09 E9 





1890 




SRT 




16 


PUT IN Q 


31A11070 


09EA 


1 


C700 


ODCA 


LD 


L3 


RAREA+5 


GET NEXT 2 CHARACTERS 


31A11080 


09 EC 





I8C8 




RTE 




8 




31A11090 


09ED 


I 


0700 


0E5D 


STO 


L3 


RFTTM&l 


STO 2 CHAR IN TEST MSG 


31A11100 


09EF 





1888 




SRT 




8 




31A11110 


09F0 





7301 




MDX 


3 


1 




31A11120 


09F1 


1 


74FE 


0D5F 


MDX 


L 


CNTA,-2 


DECRE COUNT BY 2 


31A11130 


09F3 





70F6 




MDX 




*-10 




31A11140 


09 F4 





7058 




MDX 

* 




EXIT8 


EXIT IF LAST CHAR 


31A11150 
31A11160 


09 F5 





9367 




XNOTl S 


3 


HOOOl-T 




31A11170 


09F6 


1 


4C20 


OAOF 


BSC 

* 


L 


XN0T2,Z 


BR IF X NOT 2 


31A11180 
31A11190 


09F8 





C33D 




LD 


3 


D260-T 


SET TEST MESSAGE 


31A11200 


09 F9 


I 


0400 


0E5C 


STO 


L 


RFTTM 


CHAR COUNT TO 260 


31A11210 


09 FB 





9345 




S 


3 


H0004-T 




31A11220 


09 FC 





D316 




STO 


3 


CNTA-T 


SET COUNTER A TO 256 


31A11230 


09FD 





C35F 




LD 


3 


DLSTX-T 


GET OLE STX CHARACTERS 


31A11240 


09 FE 


1 


0400 


0E5D 


STO 


L 


RFTTM+1 


PUT IN TEST MESSAGE 


31A11250 


OAOO 





C367 




LD 


3 


HOOOl-T 


GET 1ST 2 TEXT CHARS 


31A11260 


OAOl 





6300 




LDX 


3 







31A11270 


0AO2 


1 


D700 


0E5E 


STO 


L3 


RFTTM+2 


STORE IN TEST MSG 


31A11280 


0A04 


1 


8400 


ODBD 


A 


L 


H0202 


ADD TWO TO EACH CHAR 


31A11290 


0A06 





7301 




MDX 


3 


1 




31A11300 


0A07 


1 


74FE 


0D5F 


MDX 


L 


CNTA,-2 


DECRE COUNT BY TWO 


31A11310 


0A09 





70F8 




MDX 




*-8 


BR IF NOT LAST CHAR 


31A11320 


OAOA 


I 


C400 


0DA9 


LD 


L 


DLETX 


GET OLE ETX CHARS 


31A11330 


OAOC 


I 


0700 


0E5E 


STO 


L3 


RFTTM+2 


STORE IN TEST MSG 


31A11340 


OAOE 





7041 




MDX 
* 




EXITS 




31A11350 
31A11360 


OAOF 





933B 




XN0T2 S 


3 


D14-T 




31A11370 


OAIO 


1 


4C20 


0A2D 


BSC 
* 


L 


XNT16,Z 


BR IF X NOT 16 


31A11380 
31A11390 


0A12 





C333 




LD 


3 


STXAA-T 




31A11400 


0A13 


1 


D400 


0E5D 


STO 


L 


RFTTM61 


PUT STX AA IN TEST MSG 


31A11410 


0A15 





C335 




LD 


3 


HAA55-T 


PUT HEX AA55 IN 


31A11420 


0A16 


1 


D400 


0E71 


STO 


L 


RFTTM621 


CENTER OF TEST MSG 


31A11430 


0AI8 





C337 




LD 


3 


H5ETX-T 


PUT 55 EXT AT 


31A11440 


0A19 


1 


D400 


0E85 


STO 


L 


RFTTM641 


END OF TEST MESSAGE 


31A11450 


OAIB 





C334 




LD 


3 


HAAAA-T 


PUT 19 HEX AAAA 


31A11460 


OAIC 





6313 




LDX 


3 


19 


CHARACTERS 


31A1147Q 


OAID 


1 


0700 


0E5D 


STO 


L3 


RFTTM61 


IN TEST MESSAGE 


31A11480 


OAIF 





73FF 




MDX 


3 


-1 




31A11490 


0A20 





70FC 




MDX 




*-4 




31A11500 


0A21 





6313 




LDX 


3 


19 


PUT 19 HEX 5555 


31A11510 


0A22 


1 


C400 


0D7F 


LD 


L 


H5555 


CHARACTERS 


31A11520 


0A24 


1 


0700 


0E71 


STO 


L3 


RFTTMt21 


IN TEST MESSAGE 


31A11530 


0A26 





73FF 




MDX 


3 


-1 




31A11540 


0A27 





70 FC 




MDX 




*-4 




31A11550 


0A28 





6700 


0054 


LDX 


L3 


84 


PUT CHAR COUNT 


31A11560 


0A2A 


1 


6F0O 


0E5C 


STX 


L3 


RFTTM 


IN TEST MESSAGE 


31A11570 
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0A2C 7023 



MDX 



EXITB 



0A2D 





933F 




XNT16 


S 


3 


H0003-T 


0A2E 


1 


4C20 


0A49 


-Jt 


BSC 


L 


XNT19,Z 


0A30 





C35F 






LD 


3 


DLSTX-T 


0A31 


1 


D400 


0E5D 




STO 


L 


RFTTM&l 


0A33 





C360 






LD 


3 


DLETX-T 


0A34 


1 


0400 


OEEF 




STO 


L 


RFTTM&147 


0A36 





6700 


008C 




LDX 


L3 


140 


0A38 





1010 






SLA 




16 


0A39 


1 


D700 


0E5D 




STO 


L3 


RFTTM£1 


0A3B 





73FF 






MDX 


3 


-1 


0A3C 





70 FC 






MDX 




*-4 


0A3D 





630 5 






LDX 


3 


5 


0A3E 


1 


C400 


0D81 




LD 


L 


SYSYN 


0A40 


1 


0700 


0EE9 




STO 


L3 


RFTTM&141 


0A42 





73FF 






MDX 


3 


-1 


0A43 





70FC 






MDX 




*-4 


0A44 





6700 


0126 




LDX 


L3 


294 


0A46 


1 


6F00 


0E5C 




STX 


L3 


RFTTM 


0A48 





7007 




4^ 


MDX 




EXITB 


0A49 





C314 




XNT19 


LD 


3 


TEMP-T 


0A4A 


1 


F400 


05E8 




EOR 


L 


XSPEC 


0A4C 





6113 






LDX 


1 


/13 


0A4D 


1 


4C20 


073A 




BSC 


L 


BDRFT,Z 


0A4F 





7084 




# 


MDX 




GNTM&3 


0A50 


1 


6700 


0E5C 


EXITB 


LDX 


L3 


RFTTM 


OA52 


1 


6F00 


0D61 




STX 


L3 


TMPNT 


0A54 


1 


6700 


0D49 




LDX 


L3 


T 


0A56 


1 


4C80 


09D1 




BSC 


I 


GNTM 



BR IF X NOT 19 

PUT DLE STX 
IN TEST MESSAGE 

PUT OLE ETX AT 
END OF TEST MESSAGE 

PUT 140 HEX 0000 
CHARACTERS 
IN TEST MESSAGE 



PUT 5 SYN SYN 
CHARACTERS 
IN TEST MESSAGE 



PUT CHAR COUNT 
IN TEST MSG 



GET X VALUE 

CK EQUAL TO SPECIAL X 

BR IF NOT EQUAL 



SET TEST MESSAGE 

LOCATION INDICATOR 
RESTORE XR3 

RETURN 

* 

« PRINT END OF TEST MESSAGE 



BR IF TEST MSG XMIT IND ON 
BR IF TEST MSG REC IND ON 

CK OPTION SWITCH 

BR IF PRINT TEXT NOT ON 



GET WORD FROM END MSG TBI 
BR IF ZERO 

BR IF ALPHA MSG ADDRS 

SAVE HEX CHAR COUNT 

GET 2 HEX BYTES 

PUT HEX WORD IN PRINT TBL 
DECRE CHAR COUNT BY ONE 
BR IF COUNT EXHAUSTED 



0A58 




7400 


0D66 


ENPRT 


MDX 


L 


TMXMI 


0A5A 




70 5D 






MDX 




PRTXM 


0A5B 




7400 


0D65 




MDX 


L 


TMRCI 


0A5D 




705C 






MDX 




PRTRC 


0A5E 




4400 


08B4 


^ 


BSI 


L 


CKOPN 


0A60 




C400 


05E1 




LD 


L 


SW2 


0A62 





lOOC 






SLA 




12 


0A63 




180E 






SRA 




14 


0A64 




4C18 


0AC8 


* 


BSC 


L 


ENDIT,e- 


0A66 




6700 


0F07 




LDX 


L3 


ENTBL 


0A68 




6F00 


0D5F 


* 

GTCNT 


STX 


L3 


CNTA 


0A6A 




C480 


0D5F 


LD 


I 


CNTA 


0A6C 




4C18 


0AC8 


^ 


BSC 


L 


END1T,£- 


0A6E 




4C08 


0A8D 




BSC 


L 


ALPH,+ 


0A70 




D400 


0D60 


T^ 


STO 


L 


CNTB 


0A72 




63F2 






LDX 


3 


-14 


0A73 




7401 


0D5F 


GTHEX 


MDX 


L 


CNTA,+1 


0A75 




C480 


0D5F 




LD 


I 


CNTA 


0A77 




1888 






SRT 




8 


0A78 




1008 






SLA 




8 


0A79 




D700 


0F06 




STO 


L3 


TABLE&19 


0A7B 





7301 






MDX 


3 


£1 


0A7C 




74FF 


0D60 




MDX 


L 


CNTB,-1 


0A7E 





7001 






MDX 




*61 


0A7F 





701F 






MDX 




HEX 



31A11580 
31A11590 
31A11600 
31A11610 
31A11620 
31A11630 
31A11640 
31A11650 
31A11660 
31A11670 
31A11680 
31A11690 
31A11700 
31A11710 
31A11720 
31AI1730 
31A11740 
31A11750 
31A11760 
31A11770 
31A11780 
31A11790 
31A11800 
31A11810 
31A11820 
31A11830 
31A11840 
31A11850 
31A11860 
31A11870 
31A11880 
31A11890 
31A11900 
31A11910 
31A11920 
31A11930 
31A11940 
31A11950 
31A11960 
31A11970 
31A11980 
31A11990 
31A12000 
31A12010 
31A12020 
31A12030 
31A12040 
31A12050 
31A12060 
31A12070 
31A12080 
31A12090 
31A12100 
31A12110 
31A12120 
31A12130 
31A12140 
31A12150 
31A12160 
31A12170 
31A12180 
31A12190 
31A12200 
31A12210 
31A12220 
31A12230 
31A12240 
31A12250 
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lOA 



OA80 
0A81 
OA82 
0A84 
OA8 6 
0A87 



1088 
1008 

0700 0F06 
74FF 0060 
7003 
7301 



0A88 1000 
0A89 7015 

0A8A 7301 
0A8B 70E7 
0A8C 7012 



0A80 
0A8F 
0A91 
0A93 
0A95 
0A97 
0A98 
0A99 
0A9A 
0A9C 
0A9E 

0A9F 
OAAl 
0AA3 
0AA5 
0AA6 
0AA8 
0AA9 
OAAB 
OAAD 
OAAF 
OABO 
OABl 
0AB3 



E400 ODCl 
D400 0EF6 
C400 ODBF 
D400 0EF5 
4480 0163 
0EF3 
403B 
1010 

0400 0EF6 
7401 0D5F 
70CB 



C400 
F400 
8400 
D002 
C400 
1800 
FCOO 
D400 
4480 
1 0EF3 

4023 

1 C400 
1 4C20 



0003 
ODBB 
0DC3 

ODCl 

ODBF 

0EF5 
0163 



0D60 
0A72 



0AB5 1 7401 0D5F 
0AB7 70B2 

0A88 6203 
0AB9 7001 



OABA 
OABB 
OABO 
OABF 
OACl 
0AC3 
0AC4 
0AC5 
0AC7 



6204 

C400 0DC2 
D400 0EF4 
0400 0EF5 
4400 08C9 
4010 
1010 

D400 0EF4 
709 6 



0AC8 1 C400 0D6B 
OACA 1 4C28 0629 
OACC 1 4C08 0640 

OACE 1 9400 0681 
OADO 1 4C18 0629 

0AD2 4480 0164 



ALPH 



* 
HEX 



SLT 
SLA 
STO 
MDX 
MDX 
MDX 
NOP 
MDX 

MDX 
MDX 
MDX 

AND 

STO 

LD 

STO 

BSI 

DC 

BSI 

SLA 

STO 

MDX 

MDX 

LD 

EOR 

A 

STO 

LD 

SRA 

OR 

STO 

BSI 

DC 

BSI 

LD 

BSC 

MDX 
MDX 



PRTXM LDX 
MDX 

PRTRC LDX 
LD 
STO 
STO 
BSI 
BSI 
SLA 
STO 
MDX 

ENDIT LD 
BSC 
BSC 

S 

BSC 



8 

8 
L3 TABLE&19 
L CNTB,-1 

*£3 
3 61 

HEX 

3 £1 
GTHEX 
HEX 



PUT 2ND WD IN PRINT TBL 
DECRE COUNT BY ONE 
BR IF CNT NOT ZERO 



GO PRINT IF CNT ZERO 



GO STO NEXT CHAR IF ROOM 
GO PRT IF 14 CHARS 



GO PRINT MSG 



H7FFF 

TABLE+3 

H8000 

TABLES2 

LOG 

TABLE 

CKMON 

16 

TABLE63 

CNTA,tl 

GTCNT 



3 

HFFFF 

H1802 

*e2 

H7FFF 
*-* 

H8000 

TABLES2 

LOG 

TABLE 

CKMON 

CNTB 

GTHEX-1,Z BR IF MORE HEX CHARACTERS 



SET UP 
NUMBER OF 
CHARACTERS 
TO BE 
PRINTED 



PRINT MSG 



L CNTA,£1 
GTCNT 

2 3 
*61 

2 4 



HOOIF 

TABLESl 

TABLE62 

TYPIT 

CKMON 

16 

TABLECl 

ENPRT&6 



L OPTIN 

L STRT,Z+ 

L CNTRL,+ 

L RIDCK 

L STRT,+- 



GO PRINT MSG 



BR IF OPTION SW 15 ON 
BR IF NO RTN SEL ECTED 



BSI I END 



0AD4 





0000 




CKMON DC 


*-* 


0AD5 


1 


6780 


0AD4 


LDX 


13 CKMON 


0AD7 


1 


6F00 


05E5 


STX 


L3 MLSCF 



31A12260 

31A12270 

31A12280 

31A12290 

31A12300 

31A12310 

31A12320 

31A12330 

31A12340 

31A12350 

31A12360 

31A12370 

31A12380 

31A12390 

31A12400 

31A12410 

31A12420 

31A12430 

31A12440 

31A12450 

31A12460 

31A12470 

31A12480 

31A12490 

31A12500 

31A12510 

31A12520 

31A12530 

31A12540 

31A12550 

31A12560 

31A12570 

31A12580 

31A12590 

31A12600 

31A12610 

31A12620 

31A12630 

31A12640 

31A12650 

31A12660 

31A12670 

31A12680 

31A12690 

31A12700 

31A12710 

31A12720 

31A12730 

31A12740 

31A12750 

31A12760 

31A12770 

31A12780 

31A12790 

31A12800 

31A12810 

31A12820 

31A12830 

31A12840 

31A12850 

31A12860 

31A12870 

31A12880 

31A12890 

31A12900 

31A12910 

31A12920 

31A12930 



0AD9 4480 0161 



OADB 
OADC 
OADO 
OADE 
OADF 
OAEO 
OAEl 
0AE2 
0AE4 
0AE5 
0AE6 
0AE8 
0AE9 



0000 
D314 
F331 
D32D 
COFB 

DOOD 

C324 

4CA0 OADB 

C31B 

D31A 

7401 0063 

9319 

4C30 0B15 



OAEB 1 4C10 OBIO 
OAED 7020 



OAEE 0000 
OAEF D314 
OAFO C324 
OAFl 1 4CA0 OAEE 
0AF3 C31B 
0AF4 9319 
OAFS 1 4C30 0B15 

0AF7 1 4C10 OBIO 

0AF9 C31A 
OAFA F31B 
OAFB 1 4C20 OBOO 



OAFD 


1 


7401 


0D64 


OAFF 





70F0 




OBOO 


1 


C480 


0D63 


0B02 





8367 




0B03 


1 


0480 


0D63 


0B05 


1 


4C04 


OBOE 


0B07 


1 


74FF 


0D64 


0B09 





C314 




OBOA 





1808 




OBOB 


1 


EC80 


0D64 


OBOO 





700 3 





OBOE C314 
OBOF 7001 
OBIO C332 
OB 11 1 D480 0D64 

7401 0D64 

1010 

0480 0064 

4080 OAEE 



0B13 1 
0B15 
0B16 
0B18 



BSI I START 
* STORE ALPHA MSG IN PRINT TABLE 

* 



STALP DC 
STO 
EOR 
STO 
LD 
STO 
LO 
BSC 
LD 
STO 
MDX 
S 
BSC 

BSC 
MDX 



*-* 

3 TEMP-T 

3 MSG4-T 

3 NOERR-T 

STALP 

STOIT 

3 MONIT-T 

I STALP, Z 

3 ENPNT-T 

3 CNTPT-T 

L CNTPT,+1 

3 TOP-T 
L 0UT£7,Z- 

L 0UTf;2,- 
OUT 



SAVE MSG ADDRS 



SET UP 
RETURN 



BR IF NO MORE CORE 

BR IF ONE ADDRS LEFT 
BR TO STORE MSG ADDRS 



* STORE HEX CHARACTER IN PRINT TABLE 

**************************#**********«****** 

* 



STOIT DC 
STO 
LD 
BSC 
LD 
S 
BSC 



*-« 

3 TEMP-T 

3 MONIT-T 
I STOIT, Z 

3 ENPNT-T 

3 TOP-T 
L 0UTe7,Z- 



BSC L 0UTe2,- 



LO 

EOR 

BSC 

MDX 
MDX 
LD 
A 



3 CNTPT-T 
3 ENPNT-T 
L *£3,Z 

L ENPNT,£1 

ST0IT£2 
I CNTPT 
3 HOOOl-T 



STO I CNTPT 



* 
OUT 



BSC 

MDX 

LD 

SRA 

OR 

MDX 

LD 

MDX 

LD 

STO 

MDX 

SLA 



L OUT,E 

L ENPNT,-1 
3 TEMP-T 
8 
1 ENPNT 
0UT£3 

3 TEMP-T 
*£1 

3 MSG5-T 
I ENPNT 
L ENPNT, £1 
16 



SAVE HEX CHARACTER 

BR IF NO MORE CORE 

BR IF ONE ADDRESS LEFT 

BR IF ALPH MSG WAS LAST 

INCRE POINTER 
BRANCH 

ADD 1 TO HEX CHAR CNT 

BR IF COUNT ODD 

DECRE POINTER BY ONE 



PACK TWO HEX CHARACTERS 
BRANCH 

GET CHARACTER 
SKIP 

STO ALPH OR HEX MSG 
INCRE POINTER BY ONE 



STO I ENPNT 
BSC I STOIT 



RETURN 



OBIA 0000 



*************************************;• 

* START MONITOR OPERATION 

*************************«***********^ 

* 

STMON DC *-* 



31A12940 
31A12950 
31A12960 
31A12970 
31A12980 
31A12990 
31A13000 
31A13010 
31A13020 
31A13030 
31A13040 
31A13050 
31A13060 
31A13070 
31A13080 
31A13090 
31A13100 
31A13110 
31A13120 
31A13130 
31A13140 
31A13150 
31A13160 
31A13170 
31A13180 
31A13190 
31A13200 
31A13210 
31A13220 
31A13230 
31A13240 
31A13250 
31A13260 
31A13270 
31A13280 
31A13290 
■ 31A13300 
31A13310 
31A13320 
31A13330 
31A13340 
31A13350 
31A13360 
31A13370 
31A13380 
31A13390 
31A13400 
31A13410 
31A13420 
31A13430 
31A13440 
31A13450 
31A13460 
31A13470 
31A13480 
31A13490 
31A13500 
31A13510 
31A13520 
31A13530 
31A13540 
31A13550 
31A13560 
31A13570 
31A13580 
31A1359Q 
31A13600 
31A13610 
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OBIB 
OBIC 
OBIO 
OBIE 
OBIF 
0B20 
0B22 



0B24 
0B25 
0B27 
0B29 
0B2A 
0B2B 
0B2C 



COOO 

D324 

1010 

D329 

D30D 

4400 08 89 

4C80 OBI A 



0000 

6E00 0D46 
6700 0D49 
0B4D 
D310 
C30F 
4C18 0D41 



LD 
STO 
SLA 
STO 
STO 
BSI 
BSC 
* 

* 



3 MONIT-T 

16 
3 REQ2-T 
3 FCODE-T 

L GO 

I STMON 



SET MONITOR IND 

RESET REQUEST IND 
SET RECEIVE FUNCTION 
START RECEIVE 



INTERRUPT SERVICE ROUTINE 



INT 



0B2E C378 
0B2F D313 

0B30 C30D 
0B31 1 4C18 0B6F 



0833 C310 
0B34 1003 
0B35 1 4C10 0B41 



0B37 
0B38 
OB 39 
0B3A 
0B3B 
0B3C 
0B30 
0B3E 
0B3F 



C300 
933F 
4818 
0B3F 
C365 
030C 
C310 
1001 
4C10 0045 



0B41 C304 
0B42 1 4C20 0B5F 

0B44 C300 
0B45 933F 
0B46 1 4C30 0B5F 

0B48 C30C 
0B49 1 4C08 0B5F 

0B4B 9367 
0B4C D30C 
0B4D 1 4C18 0B59 

0B4F C300 
OB50 933F 
0B51 1 4C20 0B59 

0B53 C358 
0B54 1 4400 OAEE 
0B56 0B41 
0B57 1 4C00 0D45 

0B59 C357 
0B5A 1 4400 OAEE 



DC 

STX 

LDX 

XIO 

STO 

LD 

BSC 

LD 
STO 

LD 
BSC 



*-* 

L2 EXIT+1 

L3 T 
3 SNSRS-T 
3 DSW-T 
3 RTBSY-T 

L EXITl,e- 

3 H7FFF-T 
3 WTCNT-T 

3 FCODE-T 
L RECV,6- 



SAVE XR2 

XR3#C0NSTANT TBL 
SENSE SCA DSW 
SAVE DSW 

BR IF RTN NOT BUSY 
RESTORE WAIT COUNT 
BR IF RECV FUNCTION 



TRANSMIT FUNCTION 



LD 

SLA 

BSC 

* 

LD 

S 

BSC 

XIO 

LO 

STO 

LD 

SLA 

BSC 

* 

WRESP LO 
BSC 

LD 

S 

BSC 

LD 
BSC 

S 

STO 

BSC 

LD 
S 

BSC 
* 

LD 
BSI 
XIO 
BSC 

WSYNC LD 
BSI 



3 DSW-T 
3 
L WRESP, - 

3 MDSWT-T 
3 H0003-T 

e- 

3 TIMER-T 
3 H0002-T 
3 SYNC-T 
3 DSW-T 
1 
L EXIT,- 

3 LSDLE-T 
L CKCNTfZ 

3 MDSWT-T 

3 H0003-T 

L CKCNT.Z- 

3 SYNC-T 
L CKCNT,e 

3 HOOOl-T 
3 SYNC-T 

L WSYNC, &- 

3 MDSWT-T 

3 H0003-T 

L WSYNC, Z 

3 DLE-T 
L STOIT 

3 WRDLE-T 
L EXIT 

3 SYN-T 
L STOIT 



BR IF NO TIMEOUT 



SKIP NOT TRANS MODE 
START PROG TIMER 

XHIT SYNS IND TO 2 



RETURN IF NOT WR RESP 
BR IF LAST CHAR WAS DLE 

8R IF BCC TIME 

BR IF SYNS IND ZERO 
DECRE SYNS IND BY ONE 
BR IF SYNS IND ZERO 

BR IF NOT TRANS MODE 



STORE DLE IN PRINT TBL 

XMIT DLE 

RETURN 



STO SYN IN PRINT TBL 



31A13620 

31A13630 

31A13640 

31A13650 

31A13660 

31A13670 

31A13680 

31A13690 

31A13700 

31A13710 

31A13720 

31A13730 

31A13740 

31A13750 

31A13760 

31A13770 

31A13780 

31A13790 

31A13800 

31A13810 

31A13820 

31A13830 

31A13840 

31A13850 

31A13860 

31A13870 

31A13880 

31A13890 

31A13900 

31A13910 

31A13920 

31A13930 

31A13940 

31A13950 

31A13960 

31A13970 

31A13980 

31A13990 

31A14000 

31A14010 

31A14020 

31A14030 

31A14040 

31A14050 

31A14060 

31A14070 

31A14080 

31A14090 

31A14100 

31A14110 

31A14120 

31A14130 

31A14140 

31A14150 

31A14160 

31A14170 

31A14180 

31A14190 

31A14200 

31A14210 

31A14220 

31A14230 

31A14240 

31A14250 

31A14260 

31A14270 

31A14280 

31A14290 



0B5C 0B43 






XIO 


3 WRSYN-T 


XMIT SYN 


31A1 4300 


0B5D 1 4C00 


0045 




BSC 


L EXIT 


RETURN 


31A14310 


0B5F C302 




CKCNT LD 


3 COUNT-T 




31A14320 
31A14330 
31A14340 


0B60 1 4C04 


0B69 




BSC 


L ODD,E 


BR IF CHAR COUNT ODD 


0B62 1 C480 
0B64 E371 


0057 




LD 


I POINT 


GET WORD FROM I/O AREA 


31A14350 
31A14360 






AND 


3 HFFOO-T 


MASK OUT BITS 8-15 


31A14370 


0B65 D30B 




STBFP 


t STO 


3 BUFFR-T 


PUT CHAR IN BUFFER 


31A143ftO 


0B66 1 7401 


0D4B 




MDX 


L COUNT, £1 


INCRE CHAR COUNT £1 


^J ^ r^ i 1^ ^ \J \^ 

31A14390 


0B68 7015 






MDX 


MDXMD 


GO TO CK MODE 


31A14400 


0B69 1 C480 
0B6B 1008 


0D57 


ODD 


LD 
SLA 


I POINT 
8 


GET WORD FROM I/O AREA 
BITS 8-15 TO WRITE POSIT 


31A14410 
31A14420 
31A14430 


0B6C 1 7401 
0B6E 70F6 


0D57 


« 


MDX 

MDX 


L POINT, 61 
STBFR 


INCRE ADDR POINTER &1 


31A14440 
31A14450 












31A14460 












31A14470 




0B7A 






RECEIVE FUNCTION 


31A14480 


0B6F C310 
0B70 1003 
0B71 1 4C10 


RECV 


LD 

SLA 

BSC 


3 DSW-T 
3 
L READB, - 


BR IF NOT TIMEOUT 


31A14490 
31A14500 
31A14510 
31A14520 


0B73 C372 
0B74 D30B 




* 


LO 
STO 


3 HFFFF-T 
3 BUFFR-T 


SET TIMEOUT END 


31A14530 
31A14540 
31A14550 


0B75 C32E 
0B76 1 4400 


OADB 




LD 
BSI 


3 MSGl-T 
L STALP 


STORE TIMEOUT MSG 
IN PRINT TBL 


31A14560 
31A14570 


0878 1 4C00 


0D12 


* 
READB 

* 


BSC 


L RCEXT 




31A14580 


0B7A 0847 
0B7B C30B 

0B7C 1 4400 


OAEE 


XIO 

LD 

BSI 


3 REAO-T 
3 BUFFR-T 
L STOIT 


READ SCA BUFFER 

STO CHAR IN PRINT TBL 


31A14590 
31A14600 
31A14610 
31A14620 












31A14630 












31A14640 






* 




BRANCH TO 


PROPER MODE 


- 31A14650 


0B7E C300 


MDXMD 


LD 


3 MDSWT-T 


GET MODE INDICATOR 


31A14660 
31A14670 


0B7F EB77 
0B80 DOOO 
0B81 7000 






OR 

STO 

MDX 


3 H7000-T 
* 

* 


SET UP MDX TO 
PROPER MODE 


31A14680 
31A14690 
31A14700 


0B82 7008 




^ 


MDX 


NOMOD 


NO MODE SET 


31A14710 
31A14720 


0B83 7021 






MDX 


HEADG 


XMIT/REC HEADING 


31A14730 


0B84 7028 
0B85 7038 

^\ r\ t~\ ^ ^\ ^ ^tk —r ^^ 






MDX 


NORML 


XMIT/REC NORMAL TEXT 


31A14740 






MDX 


TRANS 


XMIT/REC TRANSPARENT TEXT 


31A14750 


0B86 7078 






MDX 


BCCl 


XMIT/REC LOW ORDER BCC 


31A14760 


0B87 1 4C00 


0C12 




BSC 


L BCC2 


XMIT/REC HIGH ORDER BCC 


31A14770 


0B89 1 4C00 


0C3E 


* 


BSC 


L ITBMD 


INT BLK CK MODE 


31A14780 
31A14790 












31A14800 




0D4F 


# 




NO MODE SET 


31A14810 


0B8B C306 
0B8C 1 6C00 


NOMOD 


LD 
STX 


3 FIRST-T 
L FIRST 


SET FIRST CHAR IND 


31A14820 
31A14830 
31A14840 


0B8E 1 4C20 


0B93 




BSC 


L NFST.Z 


BR IF IND WAS ON 


"' ^ '^ JU ^ \J ^T \^ 

31A14850 


0B90 C30B 
0B91 D326 




* 


LD 
STO 


3 BUFFR-T 
3 POLLC-T 




31A14860 
31A14870 
31A14880 


0B92 0B49 






XIO 


3 RETIM-T 


RESTART TIMER 


31A14890 


0893 C30B 




* 
NFST 


LD 


3 BUFFR-T 




31A14900 
31A14910 


0B94 F368 
0B95 4820 






EOR 
BSC 


3 ENO-T 
Z 


SKIP IF ENO 


31A14920 
31A14930 


0B96 F36A 






EOR 


3 EQEOT-T 




31A14940 


0B97 1 4C18 ( 


3B9D 




BSC 


L *+4,+- 


BR IF ENQ OR EOT 


31A14950 


0899 C30B 




* 


LO 


3 BUFFR-T 




31A14960 
31A14970 
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0B9A F364 
0B9B 1 4C20 0C48 



0B9D 1010 
0B9E D30F 









1 



DONE 



0B9F 
OBAO 
OBAl 
0BA2 
0BA3 



C30B 
1808 
EB26 
0326 
4C00 OCDl 



0BA5 1 4400 0C8E 
0BA7 1 4400 0C47 
0BA9 1 4400 0CA2 
OBAB 1 4C00 OCBF 



OBAD 
OBAF 



4400 0C8E 
C30B 



OBBO F358 
OBBl 4820 







1 

1 

1 



0BB2 
0BB3 
0BB4 

0BB5 
0BB7 
0BB9 



F35F 
4820 
F35A 

4C18 OBBB 
4400 0CA2 
4C00 OCBF 



OBBB COOO 
OBBC D301 
OBBD 70FB 



OBBE C304 
OBBF 1 4C20 0BC9 

OBCl C30B 
0BC2 F358 
0BC3 1 
0BC5 
0BC6 



4C20 OCBF 
COOO 
0304 
0BC7 1 4C00 OCDl 

0BC9 1010 

OBCA D304 

OBCB C30D 

OBCC 1 4C20 OBDF 

OBCE C30B 
OBCF F357 
OBDO 1 4C18 0BE8 

0BD2 F35B 
0BD3 1 4C20 0BD9 

0BD5 1 4400 OCCl 
0BD7 1 4C00 0D45 

0BD9 1 4400 0CA2 
OBDB COOO 
OBDC D301 



EOR 
BSC 

SLA 

STO 

LD 

SRA 

OR 

STO 

BSC 

* 

* 

* 

HEADG BSI 
BSI 
BSI 
BSC 

* 

« 



3 NAK-T 
L CKSTX+1,Z 

16 
3 RTBSY-T 
3 BUFFR-T 

8 
3 POLLC-T 
3 POLLC-T 
L RDWRT 



BR IF NOT NAK 



RESET RTN BUSY IND 



TRANSMIT/RECEIVE HEADING TEXT 

L CKSYN GO CHECK FOR SYN CHAR 

L CKSTX GO CHECK FOR START CHAR 

L CKEND GO CHECK FOR END CHAR 

L BLKCK CALC BCC AND XMIT OR STO 



* 

NORML BSI 
LD 
EOR 
BSC 
EOR 
BSC 
EOR 
BSC 
BSI 
BSC 

LD 

STO 

MDX 

* 



TRANSMIT/RECEIVE NORMAL TEXT 
GO CK FOR SYN CHAR 



L CKSYN 
3 BUFFR-T 
3 DLE-T 

Z 
3 DLSTX-T 

Z 
3 SXSOH-T 
L *+4,+- 
L CKEND 
L BLKCK 

* 
3 ERR-T 

*-5 



SKIP IF OLE CHAR 

SKIP IF OLE OR STX 

BR IF OLE STX OR STX 

GO CK FOR END CHAR 

GO TO XMIT OR STO CHAR 

SET ERROR INDICATOR 



TRANSMIT/RECEIVE TRANSPARENT TEXT 



TRANS LD 
BSC 

LD 
EOR 
BSC 
LD 
STO 
BSC 
* 

DLESQ SLA 
STO 
LD 

BSC 

* 

LD 

EOR 

BSC 

EOR 
BSC 

BSI 

BSC 

NOTDL BSI 
LD 
STO 



3 LSDLE-T 
L DLESQ, Z 

3 BUFFR-T 
3 DLE-T 
L BLKCK, Z 
* 

3 LSDLE-T 
L RDWRT 

16 
3 LSDLE-T 
3 FCODE-T 
L XMTOP,Z 

3 BUFFR-T 
3 SYN-T 
L DCRCT, e- 

3 DLSYN-T 
L NOTDL, Z 

L CALBC 
L EXIT 

L CKEND 

3 ERR-T 



BR IF LAST CHAR WAS DLE 

BR IF NOT OLE IN BUFFER 
SET LAST OLE IND 

RESET LAST CHAR DLE IND 
BR IF XMIT FUNCTION 

BR IF SYN RECVD 

BR IF NOT DLE RECVD 
GO CALCULATE BCC 

GO CK FOR END CHAR 



31A14980 

31A14990 

31A15000 

3IA15010 

31A15020 

31A15030 

31A15040 

31A15050 

3IA15060 

31A15O70 

31A15080 

31A15090 

31A15100 

31A15110 

31A15120 

31A15130 

31A15140 

31A15150 

31A15160 

31A15170 

31A15180 

31A15190 

31A15200 

31A15210 

31A15220 

31A15230 

31A15240 

31A15250 

31A15260 

31A15270 

31A15280 

31A15290 

31A15300 

31A15310 

31A15320 

31A15330 

31A15340 

31A15350 

31A15360 

31A15370 

31A15380 

31A15390 

31A15400 

31A15410 

31A15420 

31A15430 

31A15440 

31A15450 

31A15460 

31A15470 

31A15480 

31A15490 

31A15500 

31A15510 

31A15520 

31A15530 

31A15540 

31A15550 

31A15560 

31A15570 

31A15580 

31A15590 

31A15600 

31A15610 

31A15620 

31A15630 

31A15640 

31A15650 



OBDD 1 4C00 OCBF 



BSC 



BLKCK 



OBDF 


1 


C480 


0D56 


XMTOP 


LD 


I 


FCODE 


OBEl 





9302 






S 


3 


COUNT-T 


0BE2 


1 


4C30 


0BE8 




BSC 


L 


DCRCT, Z- 


0BE4 


1 


4400 


0CA2 




BSI 


L 


CKEND 


0BE6 


1 


4C00 


ODOA 


DCRCT 


BSC 


L 


XMEXT 


0BE8 





C302 




LD 


3 


COUNT-T 


0B69 


1 


4C04 


OBED 




BSC 


L 


*£2,E 


OBEB 


1 


74FF 


0D57 




MDX 


L 


POINT, -1 


OBED 


1 


74FF 


0D4B 




MDX 


L 


COUNT, -1 


OBEF 





C30D 






LD 


3 


FCODE-T 


OBFO 


1 


4C20 


DBFS 




BSC 


L 


WRF.Z 


0BF2 





0B49 






XIO 


3 


RETIN-T 


0BF3 


1 


4C00 


0D45 




BSC 


L 


EXIT 


0BF5 





0B41 




WRF 


XIO 


3 


WRDLE-T 


0BF6 





C358 






LD 


3 


DLE-T 


0BF7 





D30B 






STO 


3 


BUFFR-T 


0BF8 


1 


4400 


OCCl 




BSI 


L 


CALBC 


OBFA 





C358 






LD 


3 


DLE-T 


OBFB 


1 


4400 


OAEE 




BSI 


L 


STO IT 


OBFD 


1 


4C00 


0D45 




BSC 


L 


EXIT 



BR IF NOT LAST CHAR XMIT 
GO CK FOR END CHAR 

BR IF COUNT ODD 
DECRE ADDR POINTER -1 
OECRE COUNT -1 

BR IF XMIT FUNCTION 

RESTART TIMER 

XMIT DLE CHAR 



OBFF 6205 

OCOO 1 6E00 0D49 

0C02 C30D 

0C03 1 4C20 OCOA 

0C05 C30B 
0C06 1808 
0C07 D311 
0C08 1 4C00 0D45 

OCOA C303 

OCOB 1008 

OCOC D30B 

OCOD 1 4400 OAEE 

OCOF 0B4B 

OCIO 1 4C00 0D45 

0C12 C30D 
0C13 1 4C20 0C23 

0C15 C30B 
0C16 EBll 
0C17 D311 
0C18 9303 
0C19 4820 
OCIA D301 
OCIB D303 
OCIC C30A 
OCID 1 4C18 0D12 

OCIF 6207 
0C20 1 6E00 0D49 
0C22 70ED 

0C23 C308 
0C24 1 4C20 0C37 

0C26 C303 



TRANSMIT/RECEIVE BCC CHARACTERS 



BCCl LDX 
STX 
LD 
BSC 

LD 

SRA 

STO 

BSC 

XMBCC LD 
SLA 
STO 
BSI 
XIO 
BSC 



BCC2 



LD 
BSC 

LD 

OR 

STO 

S 

BSC 

STO 

STO 

LD 

BSC 

LDX 

STX 
MDX 



XMLST LD 
BSC 

LD 



2 5 

L2 MDSWT 

3 FCODE-T 
L XMBCC, Z 

3 BUFFR-T 

8 
3 BCCR-T 
L EXIT 

3 BCCA-T 
8 

3 BUFFR-T 
L STOIT 

3 WRBUF-T 
L EXIT 

3 FCODE-T 
L XMLST, Z 

3 BUFFR-T 
3 BCCR-T 
3 BCCR-T 
3 BCCA-T 

Z 
3 ERR-T 
3 BCCA-T 
3 MDSAV-T 
L RCEXT,+- 

2 7 

L2 MDSWT 
BCC2-2 

3 PAO-T 

L XMPADfZ 

3 BCCA-T 



SET BCC2 IN MODE IND 
BR IF XMIT FUNCTION 



SAVE LOW ORDER 8 BITS 
OF BLOCK CK CHAR 



GET LOW 8 BITS BCCA 
PUT IN BUFFER 

XMIT BUFFER 



BR IF XMIT FUNCTION 



SAVE RECVD BCC CHAR 

SKIP IF NO BCC ERROR 
SET ERROR IND 



BR TO XMIT PAD 



31A15660 
31A15670 
31A15680 
31A15690 
31A15700 
31A15710 
31A15720 
31A15730 
31A15740 
31A15750 
31A15760 
31A15770 
31A15780 
31A15790 
31A15800 
31A15810 
31A15820 
31A15830 
31A15840 
31A15850 
31A15860 
31A15870 
31A15880 
31A15890 
31A15900 
31A15910 
31A15920 
31A15930 
31A15940 
31A15950 
31A15960 
31A15970 
31A15980 
31A15990 
31A16000 
31AI6010 
31A16020 
31A16030 
31A16040 
31A16050 
31A16060 
31A16070 
31A16080 
31A16090 
31A16100 
31A16110 
31A16120 
31A16130 
31A16140 
31A16150 
31A16160 
31A16170 
31A16180 
31A16190 
31A16200 
31A16210 
31A16220 
31A16230 
31A16240 
31A16250 
31A16260 
31A16270 
31A16280 
31A16290 
31A16300 
31A16310 
31A16320 
31A16330 
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0C27 E371 




AND 


3 HFFOO-T 




31A16340 




0C28 D30B 




STO 


3 BUFFR-T 


PUT BCC CHAR IN BUFFR 


31A16350 




0C29 1 4400 OAEE 




BSI 


L STO IT 




31A16360 




0C2B 0B4B 




XIO 


3 WRBUF-T 


WRITE BUFFER 


31A16370 




0C2C C30A 




LD 


3 MDSAV-T 




31A16380 




0C2D 1 4C18 0C33 




BSC 


L *e4,£- 


BR IF NO ITB 


31A16390 




0C2F 6207 


* 


LDX 


2 7 




31A16400 
31A16410 




0C30 1 6E00 0D49 
0C32 7002 
0C33 1 6C00 0051 




STX 
MDX 
STX 


L2 MDSWT 

*E,2 
L PAD 


SET ITB MODE 
SET XMIT PAD INO 


31A16420 
31A16430 
31A16440 




0C35 1 4C00 0D45 




BSC 


L EXIT 




31A16450 




0C37 C371 


XMPAD LD 


3 HFFOO-T 




31A16460 
31A16470 




0C38 D30B 




STO 


3 BUFFR-T 


SET PAD IN BUFFR 


31A16480 




0C39 0B4B 
0C3A 1010 
0C3B D30B 




XIO 
SLA 
STO 


3 WRBUF-T 

16 
3 BUFFR-T 


XMIT PAD 


31A16490 
31A16500 
31 AlhS 1 




0C3C 1 4C00 ODOA 


* 


BSC 


L XMEXT 




31A16520 
31A16530 




0C3E 1 4400 0C8E 
0C40 C30A 
0C41 0300 
0C42 1010 
0C43 0303 
0C44 030A 


ITBMD BSI 
LD 
STO 
SLA 
STO 
STO 


L CKSYN 
3 MDSAV-T 
3 MOSHT-T 

16 
3 BCCA-T 
3 MOSAV-T 




31A16540 
31A16550 
31A16560 
31A16570 
31A16580 
31A16590 




0C45 1 4C00 OCBF 


« 


BSO 


L BLKCK 




31A16600 
31A16610 










31A16620 




0C47 0000 


* 




CHECK FOR 


START OF TEXT 


31A16630 




OKSTX 


; DC 


«-* 




31A16640 
31A16650 




0048 C304 
0C49 1 4C20 0C5E 




LD 
BSC 


3 LSDLE-T 
L STXCK, Z 


BR IF LAST CHAR OLE 


31A16660 
31A16670 




00 4B 0306 
0040 F358 


^ 


LD 
EOR 


3 BUFFR-T 
3 DLE-T 




31A16680 
31A16690 
31A16700 
31A16710 




004D 1 4018 0C7D 




BSC 


L BFDLE.e- 


BR IF OLE IN BUFFER 




004F 0307 


* 


LD 


3 SECND-T 




31A16720 
31A16730 
31A16740 




0050 1 4020 0078 




BSC 


L WTEXTtZ 






0052 C30B 

0053 F35C 

0054 1 4018 0080 


* 


LD 

EOR 

BSC 


3 BUFFR-T 
3 STX-T 
L BFSTX.e- 


BR IF STX IN BUFFER 


31A16750 
31A16760 
31A16770 
31A16780 




0056 F35A 
0C57 1 4018 0084 


* 


EOR 
BSC 


3 SXSOH-T 
L BFSOH,E- 


BR IF SOH IN BUFFER 


31A16790 
31A16800 
31A16810 




0C59 0306 
005A 1 409 8 0047 




LD 
BSC 


3 FIRST-T 
I CKSTX.S- 


BR IF SEOND WO IND ZERO 


31A16820 

31A16830 
31A16840 




0050 D307 


STO 


3 SECND-T 


SET SECOND WORD IND 


31A16850 
31A16860 




0050 70 lA 


* 

STXCK 


MDX 


WTEXT 




31A16870 




00 5E 1010 
0C5F 0304 


SLA 
STO 


16 
3 LSDLE-T 


RESET LAST CHAR OLE INO 


31A16880 
31A16890 
31A16900 




0060 0307 

0061 I 4020 0B9D 


* 
* 


LD 
BSC 


3 SECND-T 
L DONE.Z 




31A16910 
31A16920 
31A16930 




00 63 030B 

0064 F350 

0065 1 4020 0C72 


LD 

EOR 

BSC 


3 BUFFR-T 
3 STX-T 
L NOSTX.Z 


BR NOT STX IN BUFFER 


31A16940 
31A16950 
31A16960 
31A16970 




0067 6203 

0068 1 6E00 0049 
00 6A 030D 


LDX 
STX 
LD 


2 3 

L2 MDSWT 

3 FOODE-T 


SET TRANSPARENT MODE 


31A16980 
31A16990 
31A17000 
31A17010 


DATE 


01APR68 15SeP68 










n r% £~i f^ T i*tk 


EC NO. 


420411 420416 










PROG ID 

n A r* c 



0C6B 4820 

0C6C 0B3F 

0C6D C306 

0C6E 1 4C18 OCBF 

0C7O 1 4C00 OCDl 

0C72 C306 
0C73 1 4C20 0B9D 

0C75 COOO 
0C76 0301 
0C77 70F5 

0C78 C30D 
0C79 1 4C18 0045 

0C7B 1 4C00 OCDl 

0C7D COOO 
0C7E D304 
0C7F 70ED 

0C80 6202 
0C81 1 6E00 0D49 
0C83 70E9 

0C84 0306 



0C85 
0087 



4018 0C75 
1010 



0C88 D306 

0C89 0307 

0C8A 6201 

0C8B 1 6E00 0049 

0C8D 70E2 



0C8E 0000 

0C8F C30B 

0C90 F357 

0C91 1 4020 0C9E 

0C93 D304 
0C94 C30D 
0C95 1 4020 OCDl 

0097 C305 
0C98 4820 
0C99 0B49 
0C9A COOO 
0C9B D305 
0C9C 1 4C00 0D45 

0C9E 1010 
0C9F D305 
OCAO 1 4C80 0C8E 



BSC 
XIO 
CKFST LD 
BSC 
BSC 

NOSTX LD 
BSC 

* 

SETER LD 
STO 
MDX 

WTEXT LD 

BSC 

* 

BSC 

BFDLE LD 
STO 
MDX 

BFSTX LDX 
STX 
MDX 

* 

BFSOH LD 
BSC 
SLA 
STO 
STO 
LDX 
STX 
MDX 



3 TIMER-T 
3 FIRST-T 

L BLKCK, £- 

L RDWRT 

3 FIRST-T 
L DONE,Z 



3 ERR-T 
CKFST 

3 FCODE-T 
L EXIT,+- 

L RDWRT 



3 LSDLE-T 
CKFST 

2 2 

L2 MDSWT 
CKFST 

3 FIRST-T 
L SETER, £- 

16 
3 FIRST-T 
3 SECND-T 
2 1 
L2 MDSWT 
CKFST63 



SKIP IF RECV FUNCTION 
START PROG TIMER 

BR IF NOT FIRST CHAR 



SET ERROR IND 



SET LAST CHAR OLE IND 



SET NORMAL TEXT MODE 



BR IF NOT FIRST CHAR 

RESET FIRST CHAR IND 
RESET SECOND CHAR IND 

SET HEADING MODE 



CHECK FOR SYN CHARACTER 



CKSYN DC 
LD 
EOR 

BSC 

* 

STO 

LD 

BSC 

LD 
BSC 
XIO 
LD 
STO 
BSC 
* 

NOSYN SLA 

STO 

BSC 
* 



3 BUFFR-T 
3 SYN-T 
L NOSYN, Z 

3 LSDLE-T 

3 FCODE-T 

L RDWRT, Z 

3 LSYN-T 

Z 
3 RETIM-T 

* 
3 LSYN-T 
L EXIT 

16 
3 LSYN-T 
I CKSYN 



BR IF NOT SYN IN BUFFER 
RESET LAST CHAR DLE IND 
BR IF XMIT FUNCTION 

SKIP IF LAST CHAR NOT SYN 
RESTART TIMER 

SET LAST CHAR SYN IND 
RESET LAST CHAR SYN IND 



CHECK FOR END CHARACTER 



0CA2 0000 


CKEND 


DC 




*-* 


0CA3 C30B 
0CA4 F36B 
0CA5 4820 




LD 

EOR 

BSC 


3 
3 


BUFFR-T 

ETB-T 

Z 


0CA6 F36C 
0CA7 1 4C18 OCBA 




EOR 
BSC 


3 
L 


EBETX-T 
SETBCS 



SKIP IF ETB IN BUFFER 

BR IF ETX OR ETB IN BUFFR 



PAGE 



03IA-0 
13 



DATE 
EC NO. 



01APR68 
420411 



15SEP68 
420416 



31A17020 

31A17030 

31A17040 

31A17050 

31A17060 

31A17070 

31A17080 

31A17090 

31A17100 

31A17110 

31A17120 

31A17130 

31A17140 

31A17150 

31A17160 

31A17170 

31A17180 

31A17190 

31A17200 

31A17210 

31A17220 

31A17230 

31A17240 

31A17250 

31A17260 

31A17270 

31A17280 

31A17290 

31A17300 

31A17310 

31A17320 

31A17330 

31A17340 

31A17350 

31A17360 

31A17370 

31A17380 

31A17390 

31A17400 

31A17410 

31A17420 

31A17430 

31A17440 

31A17450 

31A17460 

31A17470 

31A17480 

31A17490 

31A17500 

31A17510 

31A17520 

31A17530 

31A17540 

31A17550 

31A17560 

31A17570 

31A17580 

31A17590 

31A17600 

31A17610 

31A17620 

31A17630 

31A17640 

31A17650 

31A17660 

31A17670 

31A17680 

31A17690 



PROG ID 
PAGE 



031A-0 
13A 
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0CA9 





C30B 






LD 


3 


BUFFR-T 




31A17700 






OCAA 





F368 






EOR 


3 


ENO-T 




31A17710 






OCAB 





4820 






BSC 




Z 


SKIP IF ENQ IN BUFFR 


31A17720 






OCAC 





F36A 






EOR 


3 


EQEOT-T 




31A17730 






OCAD 


1 


4C20 


0CB4 


* 


BSC 


L 


*-t-5,Z 




31A17740 
31A17750 






OCAF 





030 F 






STO 


3 


RTBSY-T 


RESET BUSY INO 


31A17760 






OCBO 





COOO 






LD 




* 




31A17770 






OCBl 





0301 






STO 


3 


ERR-T 


SET ERROR INO 


31A17780 






0CB2 


1 


4C00 


OCDl 


♦ 


BSC 


L 


RDWRT 




31A17790 
31A17800 






0CB4 





C30B 






LD 


3 


BUFFR-T 




31A17810 






0CB5 





F360 






EOR 


3 


ITB-T 




31A17820 






0CB6 


1 


4CA0 


0CA2 


* 


BSC 


I 


CKEND.Z 




31A17830 
31A17840 






0CB8 





C300 






LD 


3 


MDSWT-T 




31A17850 






0CB9 





030A 




* 


STO 


3 


MDSAV-T 




31A17860 
31A17870 






OCBA 





6204 




SETBC 


LOX 


2 


4 




31A17880 






OCBB 


1 


6E00 


0D49 




STX 


L2 


MDSHT 


SET MODE INO FOR BCCl 


31A17890 






eCBD 


1 


4C00 


OCBF 


* 


BSC 


L 


BLKCK 




31A17900 
31A17910 






OCBF 





4001 




BLKCK 


BSi 




CALBC 


GO CALCULATE BCC 


31A17920 






OCCO 





7010 




« 


MDX 




RDMRT 




31A17930 
31A17940 
31A17950 
31A17960 
31A17970 
31A17980 














* 






CALCULATE 


BLOCK CHECK CHARACTER 






OCCl 





0000 




CALBC 


DC 




*-* 








0CC2 





6208 






LOX 


2 


8 


SET SHIFT COUNT TO 8 


31A17990 




, 


0CC3 





C30B 






LD 


3 


BUFFR-T 


GET CHAR FROM BUFFER 


3IA18000 






0CC4 





1808 






SRA 




8 




31A18010 






0CC5 





F303 






EOR 


3 


BCCA-T 


ADD REMAINDER 


31A18020 






0CC6 


1 


4C04 


OCCA 


BITCK 

* 


BSC 


L 


ADPLY.E 




31A18030 
31A18040 






0CC8 





1801 






SRA 




1 




31A18050 






0CC9 





7002 




« 


MOX 




DEC RE 




31Ai8060 
31A18070 






OCCA 





1801 




AOPLY 


SRA 




I 




31A18080 






OCCB 





F37B 






EOR 


3 


PGLYN-T 


ADO POLYNOMIAL 


31A18090 






OCCC 





72FF 




OECRE 


MDX 


2 


-1 


SKIP IF LAST SHIFT 


31A18100 






OCCO 





70 F8 






MDX 




BITCK 




31A18110 






OCCE 





0303 






STO 


3 


BCCA-T 


STORE NEW REMAINDER 


31A18120 






OCCF 


1 


4C80 


OCCl 


* 


BSC 


I 


CALBC 




31A18130 
31A18140 
31A18150 
31A18160 














* 






STORE RECEIVED CHARACTER OR 














« 
#—.«.. 






TRANSMIT 


CHARACTER IN BUFFER 


31A18170 
31A18180 
31A18190 






OCDl 





C30D 




RDWRT 


LD 


3 


FCODE-T 








0CD2 


1 


4C20 


0CD6 


* 


BSC 


L 


*62tZ 




31A18200 
31A18210 






0CD4 





C37C 






LD 


3 


RAREA-T 




31A18220 






DC 05 





7002 




* 


MDX 




*62 




3IA18230 
31A18240 






0CD6 


1 


C480 


0D56 




LD 


I 


FCOOE 




31A18250 






0CD8 





9302 






S 


3 


COUNT-T 




31A18260 






DC 09 


1 


4C28 


OCFC 


* 


BSC 


L 


CKBC1,+Z 


BR ON FULL COUNT 


31A18270 
31A18280 






OCDB 





C30D 




STOWR 


LD 


3 


FCODE-T 




31 Al 8290 






OCDC 


1 


4C20 


OCEE 


* 


BSC 


L 


WRITE, Z 


BR IF XMIT FUNCTION 


31A18300 
31A18310 






OCDE 





C302 






LD 


3 


COUNT-T 




31A18320 






OCDF 


1 


4C04 


0CE5 


« 


BSC 


L 


NEVEN.E 


BR IF COUNT ODD 


31A18330 
31A18340 






OCEl 





C30B 






LD 


3 


BUFFR-T 


PUT RECEIVED CHARACTER 


31A18350 






0CE2 


1 


0480 


0057 




STO 


I 


POINT 


IN I/O AREA 


31A18360 






0CE4 





701F 






MDX 




INCNT 




31A18370 




DATE 


01APR68 15SEP68 












PROG ID 


031A-0 


EC NO. 


420411 


420416 
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EC NO. 











* 








31A18380 




0CE5 





C30B 




NEVEN 


LD 


3 BUFFR-T 




31A18390 




0CE6 





1808 






SRA 


8 




31A18400 




0CE7 


1 


EC 80 


0057 




OR 


I POINT 


PACK TWO CHARACTERS 


31A18410 




0CE9 


1 


D480 


0057 




STO 


I POINT 


PUT IN I/O AREA 


31A18420 




OCEB 


1 


7401 


0D57 




MOX 


L POINT, 61 


INCRE ADDR POINTER &1 


31A18430 




OCEO 





7016 




* 


MDX 


INCNT 




31A18440 
31A18450 




OCEE 





C30B 




WRITE 


LD 


3 BUFFR-T 




31A18460 




OCEF 


1 


4400 


OAEE 




BSI 


L STOIT 




31A18470 




OCFl 





0B4B 






XIO 


3 WRBUF-T 


WRITE BUFFER 


31A18480 




0CF2 





C30F 






LD 


3 RTBSY-T 




31A18490 




0CF3 


1 


4C20 


0045 


* 


BSC 


L EXIT,Z 




31A18500 
31A18510 




0CF5 





6205 






LOX 


2 5 




31A18520 




0CF6 


1 


6E00 


0049 




STX 


L2 MDSWT 


SET MODE IND FOR BCC2 


31A18530 




0CF8 





COOO 






LD 


* 




31A18540 




0CF9 





0308 






STO 


3 PAD-T 


SET XMIT PAD IND 


31A18550 




OCFA 





D30F 






STO 


3 RTBSY-T 


SET RTN BUSY INO 


31A18560 




OCFB 





7049 




« 


MDX 


EXIT 




31A18570 
31A18580 




OCFC 





C300 




CKBCl 


LD 


3 MDSWT-T 




31A18590 




OCFD 





9345 






S 


3 H0004-T 




31A18600 




OCFE 


1 


4C18 


OCDB 


* 


BSC 


L STOWR, 6- 


BR IF MODE IND BCCl 


31A18610 
31A18620 




0000 





D301 






STO 


3 ERR-T 




31A18630 




ODOl 





C30D 






LO 


3 FCODE-T 




31A18640 




0D02 


1 


4C20 


OOOA 


* 


BSC 


L XMEXT, Z 


BR IF XMIT MODE 


31A18650 
31A18660 




0D04 


1 


7401 


0D4B 


INCNT 


MDX 


L COUNT, £1 


INCRE COUNT 61 


31A18670 




0D06 





C30F 






LD 


3 RTBSY-T 




31A18680 




0D07 


1 


4C20 


0045 




BSC 


L EXIT.Z 




31A18690 




0D09 





7008 




♦ 


MOX 


RCEXT 




31A18700 
31A18710 
31A18720 






























* 




END TRANSMIT/RECEIVE 


.31A18730 












jj. 








31A18740 
















ODOA 





C315 




XMEXT 


LD 


3 REO-T 


GET XMIT/REC REQ 


31A18750 




ODOB 


1 


4C10 


0012 


* 


BSC 


L RCEXT, - 


BR IF XMIT ONLY 


31A18760 
31A18770 




ODOO 





1010 






SLA 


16 




31A18780 




ODOE 





D30D 






STO 


3 FCODE-T 


SET RECEIVE FUNCTION 


31A18790 




ODOF 


1 


4400 


0889 




BSI 


L GO 


START RECEIVE 


31A18800 




ODll 





70 33 




« 


MDX 


EXIT 




31A18810 
31A18820 




0012 





COOO 




RCEXT 


LD 


* 




31A18830 




0013 





0309 




* 


STO 


3 MSEND-T 


SET MSG END IND 


31A18840 
31A18850 




0D14 





COS 8 






LD 


MONIT 




31A18860 




0015 


1 


4Ci8 


0D41 


* 


BSC 


L EXIT1,6- 


BR IF MONITOR OPERATION 


31AI8870 
31A18880 




0017 





C37D 






LD 


3 RAREA61-T 




31A18890 




0018 


1 


7400 


006E 




MOX 


L CNTMO 


SKIP IF NOT CONTROL MODE 


31A18900 




OOIA 





7O06 




* 


MDX 


PLSEL 




31A18910 
31A18920 




OOIB 





F362 






EOR 


3 EOT-T 




31A18930 




OOIC 


1 


4C20 


0020 


* 


BSC 


L *C2,Z 


BR IF NOT EOT RECVD 


31A18940 
31A18950 




OOIE 





COOO 






LO 


* 




31A18960 




ODIF 





0325 




* 


STO 


3 CNTMD-T 


SET CONTROL MODE 


31A18970 
31A18980 




0020 





70EC 




* 


MDX 


XMEXTt3 




31A18990 
31A19000 




0021 





C326 




PLSEL 


LO 


3 POLLC-T 




31A19010 




0022 





F327 






EOR 


3 POLL-T 




31A19020 




0023 


1 


4C18 


0D2E 


* 


BSC 


L POLRCe- 


BR IF POLL RECVD 


31A19030 
31A19040 




0025 





C326 






LD 


3 POLLC-T 




31A19050 




01APR68 15SEP68 
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0026 





F328 






EOR 


3 


SELCT-T 


0D27 


1 


4C18 


0034 


* 


BSC 


L 


SELRC, 6- 


0D29 





1010 




SLA 




16 


0D2A 


1 


7400 


0D49 




MDX 


L 


MDSWT 


0D2C 





D325 






STO 


3 


CNTMD-T 1 


0D2D 





70DF 




4: 


MDX 




XMEXT63 


0D2E 





C329 




POLRC 


LD 


3 


RE02-T 


0D2F 


1 


4C30 


0D41 


* 


BSC 


L 


EXITl, Z- 1 


0D31 


1 


6600 


8DAA 




LDX 


L2 


EOTCT£,/8000 


0D33 





7005 




# 


MDX 




*65 


0D34 





C329 




SELRC 


LO 


3 


REQ2-T 


0035 


1 


4C28 


0D41 


Tt 


BSC 


L 


EXITl, Z£ 


0D37 


1 


6600 


8DAC 




LDX 


L2 


NAKCT£./8000 


0D39 


1 


6E00 


0D5E 




STX 


L2 


REQ 


0D3B 





7600 


8000 




MDX 


L2 


/8000 


0D3D 





1000 






NOP 






0D3E 


1 


6E00 


0056 




STX 


L2 


FCODE 


0040 





70CE 




Jt. 


MDX 




XMEXT65 


0041 





0B3B 




f 

EXITl 


XIO 


3 


ENDOP-T 


0D42 





0B45 






XIO 


3 


STRED-T 


0D43 





1010 






SLA 




16 


0D44 


e 


D30F 






STO 


3 


RTBSY-T 


0045 





6600 


0000 


EXIT 


LDX 


L2 


*-* 


0047 


1 


4C80 


0B24 




BSC 


I 


INT 



BR IF SELECT RECVD 



SKIP IF NO TEXT RECVD 
RESET CONTROL MODE 



BR IF TRANSMIT OP 



0049 




0000 


T 


BSS 




0D49 





0000 


MDSWT 


DC 


*-* 


0D4A 





0000 


ERR 


DC 


*-« 


0D4B 





0000 


COUNT 


DC 


*-« 


0D4C 





0000 


BCCA 


DC 


*-* 


0D4D 





0000 


LSDLE 


DC 


*-* 


0D4E 





0000 


LSYN 


DC 


*-* 


004F 





0000 


FIRST 


DC 


#-« 


0050 





0000 


SECND 


DC 


*-« 


0051 





0000 


PAD 


DC 


*-« 


0052 





0000 


HSEND 


DC 


«-* 


0053 





0000 


MDSAV 


DC 


*-* 


0D54 





0000 


BUFFR 


DC 


*-* 


0055 





0000 


SYNC 


DC 


*-* 


0056 





0000 


FCODE 


DC 


*-* 


0057 





0000 


POINT 


DC 


*-* 


0058 





0000 


RTBSY 


DC 


*-* 


0D59 





0000 


OSW 


DC 


*-« 


005A 





0000 


BCCR 


DC 


*-* 


0D5B 





0000 


RETRY 


DC 


*-« 


005C 





0000 


WTCNT 


DC 


♦ -# 


0D5O 





0000 


TEMP 


DC 


*-* 


0D5E 





0000 


REQ 


DC 


*-* 


0D5F 





0000 


CNTA 


DC 


*-* 


0D60 





0000 


CNTB 


DC 


«-* 


0D61 





0000 


TMPNT 


DC 


*-* 


0062 





0000 


TOP 


DC 


*-* 


0D63 





0000 


CNTPT 


DC 


*-* 


0064 





0000 


ENPNT 


DC 


*-* 


0D65 





0000 


TMRCI 


DC 


«-* 


0066 





0000 


TMXMI 


DC 


*-« 


0D67 





0000 


lOAP 


DC 


*-* 


0D68 





0000 


TOIND 


DC 


*-* 



END SCA OPERATION 
START READ 



* INDICATORS, CONSTANTS, lOCCS 

* 



MODE I NO 
ERROR IND 
CHARACTER COUNT 
BCC ACCUMULATION 
LAST CHAR DLE IND 
LAST CHAR SYN IND 
FIRST CHARACTER IND 
SECOND CHARACTER IND 
XMIT PAD INDICATOR 
END OF MSG IND 

XMIT/REC BUFFER 

XMIT SYNS IND 

FUNCTION CODE 

I/O AREA POINTER 

ROUTINE BUSY IND 

DSW STORAGE 

BLOCK CHECK CHAR STORAGE 

RETRY COUNTER 

INTERRUPT WAIT COUNT 

TEMPORARY STORAGE 

XMIT/REC REQUEST IND 

COUNTER A 

COUNTER B 

TEST MESSAGE LOCATOR 

HIGHEST ADORS TO BE USED 

TEXT TABLE POINTER 
TEST MSG RECV IND 
TEST MSG XMIT IND 
I/O AREA ADDRESS 
TIMEOUT INDICATOR 



31A19060 
31A19070 
31A19080 
31AI9090 
31A19100 
31A19110 
31A19120 
31A19130 
31A19140 
31Ai9150 
31A19160 
31A19170 
31A19180 
31A19190 
31A19200 
31A19210 
31A19220 
31A19230 
31A19240 
31A19250 
31A19260 
31A19270 
31A19280 
31A19290 
31A19300 
31A19310 
31A19320 
31A19330 
31A19340 
31A19350 
31A19360 
31A19370 
31A19380 
31A19390 
31A19400 
31A19410 
31A19420 
31A19430 
31A19440 
31A19450 
31A19460 
31A19470 
31A19480 
31A19490 
31A19500 
31A19510 
31A19520 
31A19530 
31A19540 
31A19550 
31A19560 
31A19570 
31A19580 
31A19590 
31A19600 
31A19610 
31A19620 
31A19630 
31A19640 
31A19650 
31A19660 
31A19670 
31A19680 
31A19690 
31A19700 
31A19710 
31A19720 
31A19730 



0D69 





0000 


YCNT 


DC 


*-* 


TEST MSG COUNT 


31A19740 


0D6A 





0000 


ERRNO 


DC 


*-* 


ERROR 


NUMBER 


31A19750 


0D6B 





0000 


OPTIN 


DC 


*-* 






31A19760 


0D6C 





0000 


TYPE 


DC 


*-* 






31A19770 


0D6D 





0000 


MONIT 


DC 


*-* 






31A19780 


0D6E 





0000 


CNTMD 


DC 


*-* 






31A19790 


0D6F 





0000 


POLLC 


DC 


*-« 






31A19800 


0D70 





0000 


POLL 


DC 


*-* 






31A19810 


0071 





0000 


SELCT 


DC 


*-« 






31A19820 


0D72 





0000 


RE02 


DC 


*-« 






31A19830 


0D73 





0000 


DLYCT 


DC 


*-* 






31A19840 


0D74 


1 


0F07 


ENADR 


DC 


ENTBL 






31A19850 


0D75 





0000 


ENPT2 


DC 


*-* 






31A19860 


0076 





0000 


NOERR 


DC 


*-« 






31A19870 


0D77 




8965 


MSGl 


DC 


T0MSG6/8000 




31A19880 


0D78 




89 6A 


MSG2 


DC 


XMMSG6/8000 




31A19890 


0079 




896E 


MSG3 


DC 


RCMSG&/8000 




31A19900 


0D7A 




89 72 


MSG4 


DC 


ERMSG6/8000 




31A19910 


0D7B 




8975 


MSG5 


DC 


ENCOR6/8000 




31A19920 


0D7C 





02AA 


STXAA 


DC 


/02AA 






31A19930 


0D7D 





AAAA 


HAAAA 


DC 


/AAAA 






31A19940 


0D7E 





AA55 


HAAS 5 


DC 


/AA55 






31A19950 


0D7F 





5555 


H5555 


DC 


/5555 






31A19960 


0D80 





5503 


H5ETX 


DC 


/5503 






31A19970 


0081 





3232 


SYSYN 


DC 


/3232 






31A19980 


0D82 




0000 




BSS 1 


E 


lOCC TABLE 




31A19990 


0082 


1 


OOAO 


SYNRG 


DC 


SYN 


WR SYN TO SYNC REG 


31A20000 


0D83 





5104 




DC 


/5104 


lOCC 




31A20010 


0D84 





OOOE 


END OP 


DC 


14 


END OPERATION 


31A20020 


0D85 





5404 




DC 


/5404 


lOCC 




31A20030 


0D86 





0104 


STSYN 


DC 


260 


START 


SYNC 


31A20040 


0D87 





5410 




DC 


/5410 


lOCC 




31A20050 


0D88 





0003 


TIMER 


DC 


3 


START 


PROG TIMER 


31A20060 


0D89 





5420 




DC 


/5420 


lOCC 




31A20070 


0D8A 


1 


ODAl 


WRDLE 


DC 


DLE 


WRITE 


DLE 


31A20080 


0D8B 





5100 




DC 


/5100 


lOCC 




-31A20090 


ODBC 


1 


OOAO 


WRSYN 


DC 


SYN 


WRITE 


SYN 


31A20100 


0D8D 





5100 




DC 


/5100 


lOCC 




31A20110 


0D8E 





0004 


STRED 


DC 


4 


INITIATE READ 


31A20120 


0D8F 





5600 




DC 


/5600 


lOCC 




31A20130 


0D90 


1 


0054 


READ 


DC 


BUFFR 


READ CHAR TO BUFFER 


31A20140 


0D91 





5200 




DC 


/5200 


lOCC 




31A20150 


0D92 





0007 


RETIM 


DC 


7 


RESTART TIMER 


31A20160 


0D9 3 





5702 




DC 


/5702 


lOCC 




31A20170 


0D94 


1 


0054 


WRBUF 


DC 


BUFFR 


WRITE 


BUFFER 


31A20180 


0D9 5 





5100 




DC 


/5100 


lOCC 




31A20190 


0D96 





0010 


SNSRS 


DC 


16 


SENSE 


AND RESET DSW 


31A20200 


0D9 7 





5701 




DC 


/5701 


lOCC 




31A20210 


0D9 8 





0013 


SENSE 


DC 


19 


SENSE 


DSW 


31A20220 


0D99 





5700 




DC 


/5700 


lOCC 




31A20230 


0D9A 





0063 


RESET 


DC 


99 


RESET 


SCA 


31A20240 


0D9B 





5540 




DC 


/5540 


lOCC 




31A20250 


009 C 





1070 


ACKS 


DC 


/1070 


DLE ACKO 


31A20260 


0D9D 





1061 




DC 


/1 061 


DLE ACKl 


31A20270 


0D9E 





0000 


POSAK 


DC 


*-* 






31A20280 


0D9F 





0000 




DC 


*-* 






31A20290 


OOAO 





3200 


SYN 


DC 


/3200 


SYN CHARACTER 


31A20300 


ODAl 





1000 


DLE 


DC 


/lOOO 


DLE CHARACTER 


31A20310 


0DA2 





1200 


OLSTY 


DC 


/1200 


DLE STX EXCLUSIVE OR 


31A20320 


0DA3 





300 


SXSOH 


DC 


/0300 


STX SOH EXCLUSIVE OR 


31A20330 


0DA4 





2200 


OLSYN 


DC 


/2200 


DLE SYN EXCLUSIVE OR 


31A20340 


0DA5 





0200 


STX 


DC 


/0200 


STX CHARACTER 


31A20350 


0DA6 





0300 


ETX 


DC 


/0300 


ETX CHARACTER 


31A20360 


0DA7 





016C 


SOHPC 


DC 


/016C 


SOH % 


CHARACTERS 


31A20370 


0DA8 





1002 


DLSTX 


DC 


/1002 


DLE STX CHARACTERS 


31A20380 


0DA9 





1003 


DLETX 


DC 


/1003 


DLE ETX CHARACTERS 


31A20390 


ODAA 





0001 


EOTCT 


DC 


/OOOl 


COUNT 


FOR XMIT EOT 


31A20400 


ODAB 





3 700 


EOT 


DC 


/3700 


EOT CHARACTER 


31A20410 
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ODAC 

ODAO 

ODAE 

ODAF 

ODBC 

OOBl 

O0B2 

0DB3 

0DB4 

O0B5 

0DB6 

ODBO 

ODAE 

0088 

0D8E 

0D92 

0D84 

009 6 

0098 

009A 

0D86 

0DB7 

00B8 

0DB9 

OOBA 

OOBB 

ODBC 

OOBD 

ODBE 

OOBF 

ODCO 

ODCl 

GDC 2 

0DC3 

0DC4 



0001 
3000 
0002 
0000 
0001 
2D00 
1037 
lAOO 
2600 
2500 
IFOO 



NAKCT 

NAK 

LSTAK 



OOOA 
FlOO 
FOFO 
FFOO 
FFFF 
OOFF 
0202 
OFOF 
8000 
7000 
7FFF 
OOIF 
1802 
AOOl 



0DC5 0120 
00C6 0096 

0E5C 0097 

0EF3 0014 

OF07 OOFO 
0FF7 0000 
0FF8 061C 
MO STATEMENTS 



ENQCT 

ENO 

DLEOT 

EOEOT 

ETB 

EBETX 

ITB 

HOOOl 

H0002 

H0003 

H0004 

H0007 

D14 
D16 
019 
099 
0260 
HOOOA 
HFIOO 
HFOFO 
HFFOO 
HFFFF 
HOOFF DC 
H0202 DC 
HOFOF DC 
H8000 DC 
H7000 DC 
H7FFF DC 
HOOIF DC 
HI 802 DC 
POLYN DC 



DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

DC 

DC 

DC 

DC 

DC 



/OOOl 
/3D00 
/0002 

*-* 

/OOOl 

/2000 

/1037 

/lAOO 

/2600 

/2500 

/IFOO 

ENQCT 

LSTAK 

TIMER 

STRED 

RETIM 

ENDOP 

SNSRS 

SENSE 

RESET 

STSYN 

/OOOA 

/FlOO 

/FOFO 

/FFOO 

/FFFF 

/OOFF 

/0202 

/OFOF 

/8000 

/7000 

/7FFF 

/OOIF 

/1802 

/AOOl 



NAK CHARACTER 
COUNT PCS ACK 

COUNT FOR XMIT ENQ 

ENQ CHARACTER 

DLE EOT CHARACTERS 

ENQ EOT EXCLUSIVE OR 

ETB CHARACTER 

ETB ETX EXCLUSIVE OR 



RAREA DC 300 
BSS 150 

******************************************** 
RFTTM BSS 151 

******************************************** 
TABLE BSS 20 

ENTBL BSS 240 
LSTWD DC *-« 
END BGIN 

FLAGGED IN THE ABOVE ASSEMBLY 



31A20420 

31A20430 

31A20440 

31A20450 

31A20460 

31A20470 

31A20480 

31A20490 

31A2O500 

31A20510 

31A20520 

31A20530 

31A20540 

31A20550 

31A20560 

31A20570 

31A2O580 

31A20590 

31A20600 

31A20610 

31A20620 

31A20630 

31A20640 

31A20650 

31A20660 

31A20670 

3IA20680 

31A20690 

31A20700 

31A20710 

31A20720 

31A20730 

31A20740 

31A20750 

31A20760 

31A20770 

31A20780 

31A20790 

31A20800 

31A20810 

31A20820 

31A20830 

31A20840 

31A20850 

31A20860 

31A20870 



C R 

NAME 

ACKS 

ADPLY 

ALPH 

ALTNT 

AMSGS 

A1701 

A1702 

A1703 

A1704 

BCCA 

BCCR 

BCCl 

BCC2 

BDRFT 

BEGIN 

BFDLE 

BFSOH 

BFSTX 

BGIN 

BITCK 

BITSW 

BLKCK 

BTD 

BUFFR 



CALBC 

CKBCl 

CKCNT 

CKEND 

CKFST 

CKMON 

CKOPN 

CKRDY 

CKRTR 

CKSTX 

CKSYN 

CKY 

CLEAR 

CNTA 

CNTB 

CNTMD 

CNTPT 

CNTRL 

CNOO 

CNIO 

CN20 

CN30 

COUNT 

CTINU 

DCRCT 

DECRE 

DELAY 

OIAGP 

DLE 

DLEOT 

DLESQ 

DLETX 

DLSTX 

DLSTY 

OLSYN 

DLYCT 

DONE 

OSW 

TB 



SS REFERENCE 
VALUE REFERENCES 
076E 
0CC6 
0A6E 

077A,0793,07C5,0810,081D,083A 

08CC 

080A 

08DB 

08DC 

08DD 

0C0A,0C18,0C1B,0C26,0C43,0CC5,0CCE 

0C07,0C16,0C17 

0B86 

0B87,0C22 

0721, 072A, 0734, 0A40 

0622 

0C4D 

0C57 

0C54 

0FF8 

OCCD 

0620 



0D9C 

OCCA 

0A80 

0773 

08DA 

08DE 

08E3 

08E8 

08F9 

0D4C 

0D5A 

OBFF 

0C12 

073A 

0160 

0C7D 

0C84 

0C80 

061C 

0CC6 

0626 

OCBF 

09C8 

0D54 



OCCl 
OCFC 
0B5F 
0CA2 
0C60 
0AD4 
0884 
06A9 
0748 
0C47 
0C8E 
07EE 
0683 
0D5F 

0D60 
0D6E 
0D63 
0640 
0656 
065A 
0664 
066B 
0D4B 
0793 
0BE8 
OCCC 
06A1 




O,0B9 3,0B99,0B9F,OBAF,OBCl 
B.0C4B,0C52,OC63,OC8F,OCA3 



)20 

0BAB,0BB9,0BC3,0BDD,0C45,0C6E,0CBD 
0981,098E,09CF 

06F6,0798 

0BCE,0BF7 

0CA9,0CB4,ui,L5,OCtl 

0BD5,0BF8,0CBF,0CCF 

0CD9 

0842,0846,0849 

0BA9,OBB7,OBD9,OBE4,0CB6 

0C77,0C7F,0C83,0C8D 

0A98,0AB0,0AC3,0AD5 

088A,08C7,0A5E 

06A3 

0705, 0713, 0730, 0755, 07AA,07BD 
0B9Bt0BA7,0C5A 

0BA5,0BAD,OC3E,0CA0 

07DA,07E2 

0673 

0996,O9A8,09AA,09BC,09DF,09Fl,09FC,0AO7,OA68,0A6A,OA73,0A75,OA9C 
0AB5 

09AE,09B5,OA7O,0A7C,0A84,0ABl 

0D18,001F,0D2C 

0695,OAE5,OAE6,0AF9,0B00,0BO3 

OACC 

0650 

0658 



0655,0650 

O9DD,OB5F,OB66,0BEl,OBE8,OBED,0CD8,OCDE,OD04 
07AF,07BF 

0BD0,0BE2 

0CC9 
06A1 06B1 
090A 0759,0856, 0869, 090E, 0911 
ODAl 0B53,0BB0,0BC2,0BF6,0BFA,0C4C,0D8A 
0DB2 

OBBF 

OAOA,OA33 

09FD,0A30,0BB2 



0BC9 
00A9 
0DA8 
00A2 
00A4 
0D73 
0890 
0059 
0761 



0BD2 

06A2,06AF 

0C61,0C73 

0B2 A ,0B33 , 0B3D, 0B6F 

0723,0720,0769 
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D14 

D16 

D19 

0260 

099 

EBETX 

EDIT 

EMSGS 

ENAOR 

ENCOR 

END 

END IT 

ENDOP 

ENDl 

END2 

ENPNT 

ENPRT 

ENPT2 

ENQ 

ENOCT 

ENORC 

ENTBL 

EOT 

EOTCK 

EOTCT 

EQEOT 

ERLCK 

ERMSG 

ERPRT 

ERR 

ERREX 

ERRNO 

ERROR 

ERRTO 

ETB 

ETX 

EX 

EXIT 

EXITA 
EXITS 
EXITl 
EXITS 
E1701 
E1702 
E1703 
E1704 
E1705 
E1706 
E1707 
E1708 
FCODE 

FIRST 

GDMSG 

GNRFT 

GNTM 

GO 

GTCNT 

GTHEX 

GTROY 

HAAAA 

HAA55 

HEADG 

HEX 

HFFFF 

HFFOO 

HFOFO 



0D84 
0D96 
0D98 
0D86 
0D9A 
0085 
0628 
0930 
0074 
0975 
0164 
0AC8 
0084 
084A 
0840 
0D64 
0A58 
0D7 5 
0081 
ODBC 
0711 
0F07 
ODAB 
077C 
ODAA 
0DB3 
0166 
0972 
091E 
0D4A 
0757 
0D6A 
0162 
07B0 
0084 
0DA6 
07F4 
0D45 

0988 
0A50 
0D41 
741 
0938 
0940 
0946 
09 4C 
0950 
0954 
095B 
09 60 
0D56 

0D4F 
0847 
0978 
0901 
0889 
0A6A 
0A73 
0696 
007D 
0D7E 
0BA5 
0A9F 
ODBB 
ODBA 
0DB9 



OAOF 

06C2, 

06C9, 

09F8 

0726, 

0CA6 

061C, 

0921 

0692 

0078 

0669* 

0A64, 

08A2, 

0816 

0820 

069 3, 

075F, 

0694, 

0629, 

07AE 

06FF 

0A66, 

077E, 

0701, 

0609, 

0B96, 



06D0 
0602 

0730, 0970,0980, 098 A, 098D 

0626, 062C, 0997 



09C6,0AD2 

0A6C 

08B0,0D41 



08BF, 08C3,O8C5,0AE4,0AF3,0AFA, OAF D, 0807,0608, OBI 1, OB 13, OB 16 

07F9, 0850, 0887, 0AC7 

08CO,08C2 

06FE,070A,OB94,OCAA 



0074 

080A,0850,0D1B 

070D,077F, 0797, 0701, 0831 

07F6,0D31 

OCAC 



0D7A 
06B3 
0717 
0752 
068F 
0915 
079A 
0CA4 
09A3 
07C7 
0825 
OCFB 
09AB 
09D8 
0B2C 
0738 
0930 
0931 
0932 
0933 
09 34 
0935 
09 36 
0937 
069E 
OCDl 
0B8B 
0838 
0687 
06CA 
069F 
0A9E 
0A8B 
06B5 
OAIB 
0A15 
0883 
0A7F 
06F7 
0B64 
09CE 



, 0750,0870, 0885, 092E,09C4 

,0837,OBBC,OBDC,OC1A,OC76,OCB1,ODOO 

,0784 

, 0749, 07EE, OBOE, 0844, 0854, 0910, 09 IC 

,0925 



,OB3F,OB57,OB5D,OBD7,OBF3,OBFD,OC08,OClO,OC35,OC79,0C9C,OCF3 
,0007,0011 



,09F4,0A0E,0A2C,0A48 
,0D15,0D2F,0D35 



,O864,O895,OBlF,0B3O,OBCB,0BDF,0BEF,OCO2,0C12,OC6A,0C78,OC94 

,0CD6,0C0B,0D01,0D0E,0D3E 

,0B8C,0C59,0C6D,0C72,0C84,0C88 

,06BE,06C5,06D3,06EO,09BF 

,0A4F,0A56 

,0867,08A4,08B2,0B20,0D0F 

,0AB7 

,0AB3 



,0A89,0A8C 

,0799, 0704, 0827, 0AA1,0B73 

,0C27,0C37 



HFIOO 

HOFOF 

HOOFF 

HOOOA 

HOOOl 

H0002 

H000 3 

H0004 

H0007 

HOOIF 

H0202 

H1802 

H5ETX 

H5555 

H7FFF 

H7000 

H8000 

ILO 

ILl 

IL2 

IL3 

IL4 

INCNT 

INITL 

INT 

I OAR 

ITB 

ITBMD 

LOG 

LOGBY 

LRTN 

LSDLE 

LSTAK 

LSTWD 

LSYN 

MOSAV 

MDSWT 

MDXMD 

MLSCF 

MONIT 

MSEND 

MSGl 

MSG2 

MSG3 

MSG4 

MSG5 

NAK 

NAKCT 

NAKRC 

NEVEN 

NFST 

NOERR 

NOMOD 

NORML 

NOSTX 

NOSYN 

NOTDL 

NRTN 

ODD 

OPTIN 

OUT 

PAD 

PID 

PLSEL 

POINT 

POLL 

POLLC 



00B8 
ODBE 
ODBC 
0DB7 
ODBO 
ODAE 
0088 
ODBE 
0D92 
0DC2 
ODBD 
0DC3 
0D80 
0D7F 
ODCl 
ODCO 
ODBF 
017A 
018A 
019A 
OlAA 
OIBA 
0004 
076B 
0B24 
0D67 
0DB6 
0C3E 
0163 
0167 
0680 
0D4D 
ODAE 
0FF7 
0D4E 
0D53 
049 

0B7E 
05E5 
0D6D 
0D52 
0077 
0D78 
0D79 
0D7A 
0D7B 
ODAD 
ODAC 
07BB 
0CE5 
0B93 
0D76 
0B8B 
OBAD 
0C72 
0C9E 
0BD9 
067E 
0B69 
0D6B 
OBOE 
0D51 
050C 
0D21 
0057 
0D70 
006F 



099B 
0762 
0768 
0765 
0751 
06BB 
0A2D 
08A9 
76C 
OABB 
0A04 
0AA3 
0A18 
OA22 
0863 
06A1 
06E9 

0637 



,09CA 

,0 789,0 7C9,O818,O822,08A7,099 5,09A0,O9DA,09F5,0A0O,0B02,0B4B 

,06CE,0B3B 

,0B38,0B45,0B50 

,09FB,0CFD 

,0778, 0994, 09DE 



,086B,0A8D,OAA6,0B2E 

,0B7F 

,07CC,0A91,0AA9 



0CE4,0CED 

0685,0771,0800 

0635,0047 

08A6 

0CB5 

0889 

08D0,0A95,0AAD 



0681 
0B41 
06F5 
0647 
0C97 
OCIC 
06FA 
0CB8 
0B68 
0675 
063E 
0860 
0875 
08AB 
0898 
0740 
OBIO 
073E 
0D37 
07A6 
OCDF 
0B8E 
08BC 
0B82 
0B84 
0C65 
0C91 
0BD3 
0682 
OB 60 
064E 
0AE9 
0C23 
0624 
ODIA 
089E 
0633 
0805 



,0BBE,0BC6,0BCA,0C48,0C5F,0C7E,0C9 3 
,073F,0770,077 7,082 5,083D,084E 

,0C9B,0C9F 

,0C2C,0C40,OC44,OCB9 

,O82E,0B3 7,OB44,0B4F,0B7E,0C0O.0C20,OC30,OC41,0C68,OC81,0C8B 

,0CBB,0CF6,0CFC,0D2A 

,06A5,0872,0AD7 

, 6F2, 0792, 0AE1,0AF0, OB IC, 0014 

,0013 



,07F0, 08 12, 0840, 0856,0 ADD 
,07A5,07DC,08 3C,OB9A 

,OADE 



,0AC8 

,OAEB,0AED,0AF5,OAF7,OB05,OBOD 

,0C33,0CF9 



,O8A8,OB62,0B69,OB6C,0BEB,0CE2,0CE7,0CE9,OCEB 

,0022 

, 0B91, OB Al, 08 A2, 0021,0025 
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POLRC 

POLYN 

POSAK 

PRTRC 

PRTXM 

RAO 

RAREA 

RCENO 

RCEXT 

RCMSG 

RCVTM 

RDWRT 

READ 

READB 

RECV 

REQ 

RE02 

RESET 

RETIH 

RETRN 

RETRY 

RFTTM 



RIO 

RIDCK 

RLCF 

RQKB 

RQTY 

RTBSY 

RTM 

RTMSG 

RTNOM 

RTNSW 

RTNl 

RTN2 

RTN3 

RTNA 

RTN5 

RTN6 

RTN7 

RTN8 

RTTBL 

SECND 

SELCT 

SELRC 

SENSE 

SETBC 

SETER 

SNSRS 

SOHPC 

STALP 

START 

STBFR 

STMON 

STOIT 

STOWR 

STRED 

STRT 

STSYN 

STX 

STXAA 

STXCK 

SVKB 

SNO 

SWl 

SW2 



002E 
00C4 
0D9E 
OABA 
0AB8 
05DE 
0DC5 

0706 
0D12 
096E 
07FB 
OCDl 
0D90 
0B7A 
0B6F 
0D5E 
0072 
0D9A 
0D92 
0876 
0D5B 
0E5C 



050D 

0681 

0168 

DISC 

OIBB 

0D58 

OBOE 

081D 

0682 

0165 

06B6 

06BD 

06C4 

06CE 

0600 

06D2 

06DC 

06E6 

0679 

0D50 

0071 

0D3A 

009 8 

OCBA 

0C75 

0D96 

0DA7 

OADB 

0161 

0B65 

OBIA 

OAEE 

OCDB 

0D8E 

0629 

0D86 

0DA5 

0D7C 

0C5E 

OIBD 

05DF 

05E0 

05E1 



0D23 
OCCB 

076F, 0774, 0776, 079D,07A1,07E4,07E8 
0A5D 

0A5A 
066F,069B,06AD 

06FD, 0709, 071C, 0722, 072B,077D,079C,07AO,07A4, 0706, 07E3,07E7, 0809 

084F,0893,089B,09E7,09EA,0CD4,0017 

0710,0716 

0B78,0ClD,0D09,OD0B 

0079 

06DA,080B 

0BA3,0BC7,0C70,0C7B,0C95,0CB2,0CC0 
0B7A 

0B71 

0B31 

O862,0DOA,0D39 

063C,06EA,078A,OB1E,002E,OD34 

OB92,OBF2,0C99 

0870 

0750,0754,0760,0779 

0796,0982,098F,0992,099C,09A6,09B2,09BD,09EO,09E2,09ED,09F9,09FE 

OA02,OA0C,OA13,0A16,0A19,OAlD,0A24,0A2A,0A31,OA34,0A39,0A40,0A46 
OA 50 

063A, 0653, 065A, 0662, 0664, 0666,0666 
065C,0ACE 



08Al,O8AF,0B2B,0B9E,0CAF,0CF2,0CFA, 0006,0044 
0820,0836 

0746,0807,0846,0849 

0668 

0671 

0679 

067A 

067B,06BC,06C3,06E5 

067C 

0670 

067E,06CF,06D1,06DE 

067F 

0680 

0660,0681,0682 

0C4F,0C5C,0C60,0C89 

062E, 0806,0026 

0D27 

0696, 06AB, 0878 

0CA7 

0C85 

0B29 

0710,0991 

074E,07F1, 0813, 0841, 0857, 0899, 08AC,0ADF,0AE 2, 0B76 

0677, 06A7, 0874, 0AD9 

0B6E 

0757, 07F7, 08 59, 0882,0622 

OAEO,OAFl,OAFF,OB18,0B54,OB5A,OB7C,0BFB,0CO0,0C29,OCEF 

08A3,0D42 

05E3,05E4,OACA,OADO 
08B1 

09A5,0C53,0C64 

0A12 

0C49 



SW3 


05E2 


SXSOH 


0DA3 


SYN 


ODAO 


SYNC 


OD55 


SYNRG 


0082 


SYSYN 


0081 


T 


0D49 



TABLE 0EF3 



064C, 0656, 0660 
0640,088 7, 0906, OA60 



TEMP 


0050 


TEXTR 


0717 


TIMER 


0088 


TMOT 


0715 


TMPNT 


0061 


TMRCI 


0065 


TMXMI 


0066 


TOINO 


0068 


TOMSG 


0965 


TOP 


0D62 


TRANS 


OBBE 


TSMSG 


07C6 


TYPE 


0D6C 


TYPIT 


08C9 


WAIT 


086B 


WRACK 


0764 


WRBUF 


0094 


WRDLE 


0D8A 


WRESP 


0B41 


WRF 


0BF5 


WRITE 


OCEE 


WRSYN 


008C 


WSYNC 


0B59 


WTCNT 


0D5C 


WTEXT 


0C78 


XEN02 


7A9 


XERR 


09C1 


XMACK 


06F3 


XMBCC 


OCOA 



0984 
0BB4,0C56 

0B59,0BCF,0C90,0082,0D8C 

08AA,0B3C,0B48,0B4C 

0894 

0A3E 

0683, 068D,068F, 0690,0691, 0692, 0693, 0694, 0695, 0696, 069E,06A1,06A2 

06A9,06AB,06BB,06C2,06C9,06CE, 0600, 0602, 06E9,06EA,06F2,06F6,06F7 

06FD,06FE, 0709, 070A, 0717, 07 IC, 07 ID, 0722, 0726, 0730, 073E,073F, 0743 

0745, 0740, 0750, 0751, 07^4,0762, 0763, 0765, 0767, 0768, 076C, 0760, 076E 

076F, 0770, 0774, 0776, 0777, 0778, 0779, 077D,077E, 0789, 078A, 0792, 079 8 

0799, 079C, 0790, 07AO,07A1,07A4,07A5,07B5,07B9,07C1,07C4,07C6,07C9 

n3^c'SI^c'°""-^'°''°^'°''°'''°''°^'°"'DC.07E3,07E4,07E7,07E8,07F0,07FD 

07FF,0805,O806,0809,O80A,0Bl:?,0815,0818,O819,O81F,0822,08 23,O826 

Sf!J'2®^'''°^^^'''^^°'°^''°'°^'*'''°S50'08 56,0862,0863,0864,086B,086C 

no»^'2!I^'°^^^'°^^'^'°^''^'°'^^3, 0894, 0895, 0898, 08A1,08A2,08A3,08A6 

08A7,08A8,08A9,08AA,08AB,08AF,08BO,08B1,08B5,08BC,08BF,08CO,08C2 

08C 3, 0803,0910, 09 19, 0910,0929, 09 70, 0980, 098A, 0980,099 1,0994, 099 5 

0996,099B,09AO,09A3,09A5,09AA,09AE,09B8,09BC,09CA,09CE,0909,09DA 

09DD,09DE,09DF,09F5,09F8,09FB,09FC,09FD,0A00,0A0F,0A12,0A15,0A18 

nAPc'nAco'n!c?'^^P'°'^'''''°*^'''°*°^'°'^°D,0ADE,0AEl,0AE4,0AE5,0AE8 

OAEF,OAFO,OAF3,OAF4,OAF9,OAFA,OB02,OB09,OBOE,OB10,OB1C,OB1E,OB1F 

0B2 7, 0829,062 A, OB2B,OB2E,0B2F,0B30,OB33,0B37,0B38,0B3A,OB3B,OB3C 

2!l^'^^^^'°^'''"°^''^'°^''^'°'^''^'°B4C,084F,OB5O,OB53,OB56,0B59,OB5C 

^„^^'2S^t'°^'^^'°^^'''°'^''^'°^"''*''^^''5'0t^''A.0B7B,0B7E,0B7F,0B8B,0B90 

OB91,0B92,OB93,OB94,OB96,0B99,OB9A,OB9E,O89F,0BAl,OBA2,OBAF,OBBO 

0BB2,0BB4,0BBC,OBBE,0BCl,0BC2,OBC6,OBCA,0BCB,OBCE,0BCF,0BO2,OBDC 

nrnc'n?^o'^rfc'2^''^'°^''^'°^'''^'°^f'^'°'*f^'^'OC02,OC05,OC07,OCOA,OCOC 

0COF,0C12,OC15,OC16,0C17,0C18,0ClA,0ClB,OClC,OC23,0C26,0C27,OC28 




OC9B,OC9F,OCA3,OCA4,0CA6,0CA9,OCAA,0CAC,0CAF,0Cbl,OCB4,0CB5,0CB8 
OCB9,0CC3,OCC5,OCCB,0CCE,0CDl,0CD4,0CO8,OCDB,0CDE,0CEl,0CE5,OCEE 
0CFl,0CF2,OCF9,0CF A, OCFCOCFD, 0000,0001, 0006, ODOA,ODOE,OD1 3, 0D17 
ODIB, 001 F, 0021,0022,0025, 0026, 002C,0D2E, 0034, 0041, 0042, 0044 
0689, 0724, 072E, 0736, 0741, 07C2, 0707, 07DF,07EB,07FB,082A, 0834, 083E 
0847, 08CA, 08CE, 0802, 0806, 091 3, 09 17, 09 IF, 09 23, 0927, 092C, 09 79,00 86 
O99E,0A79,0A82,OA8F,OA93,0A97,OA9A,0AAB,0AAF,0ABD,OABF,0AC5 
0763, 0767, 0909, 0A49,0A0C,0AEF,0B09,0S0F 
06FC 

0B3A,0C6C 

06F8 

07CB,09D6,09E4,0A52 

0691, 0745, 07FF,0A5B 

0690,07C1,0A58 

0781,0785,0769 

0077 

0649,0AE8,0AF4 

0B85 

07E5,07E9,07F3 

0748,0756,0782 

06E7, 0787, 0808, OACl 

06EF,078F,0881 

07A2 

0COF,0C2B,0C39,0CFl 

0656, 0BF5 

0B35 

OBFO 

OCDC 

0B5C 

0640,0651 

086C,087F,062F 

OC50,OC5D 

0763,0766 

0976, 097E 

0706,0714,0740 

0C03 
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XMEXT 


ODOA 


0BE6,0C3C,0D02,0D20,0D2D,0D40 


XMIT 


08A6 


0896 


XMLST 


0C23 


0C13 


XMMSG 


096A 


0D78 


XMNAK 


073C 


071B,073B 


XMPAD 


0C37 


0C24 


XMRCV 


085F 


06D7,06ED,06F3, 0706, 0780,0794, 07 AC, 07CE,07F4, 0802, 081 A, 0824, 084A 
0840,0860, 0865, 08 6E 


XMRFT 


0785 


06B9,0 6CO,0 6C7,06D5,06E2,079E 


XMTM 


07C0 


06CC 


XMTOP 


OBDF 


OBCC 


XNOTZ 


09 D9 


0902 


XNOTI 


09F5 


09DB 


XN0T2 


OAOF 


09F6 


XNT16 


0A2D 


OAIO 


XNT19 


0A49 


0A2E 


XONE 


09AC 


09A1,09B7 


XSPEC 


05E8 


06DC,09AC,09B0,09BA,09D4,0A4A 


YCNT 


0D69 


0743,07C4,07C6,07CA,07FD,0815,0819,081F,0823 


YERR 


09C3 


0988,098B,09C2 
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PURPOSE 

THE PURPOSE OF THE SCA TRANSMIT/RECEIVE BSC POINT-TO-POINT PROGRAM IS TO 
PROVIDE PROGRAM ABILITY TO OPERATE THE 1130 SCA ON-LINE WITH ANOTHER 
BSC TERMINAL IN A POINT-TO-POINT CONTENTION DATA LINK. THE MODE OF 
OPERATION IS BINARY SYNCHRONOUS- THE PROGRAM IS PRIMARILY A TEST OF 
SYSTEM INTEGRITY RATHER THAN A FAULT ISOLATING DIAGNOSTIC, HOWEVER, 
A DIAGNOSTIC CAPABILITY IS PROVIDED BY PROGRAM OPERATING OPTION. 

»*NOTE** 

THERE ARE TWO VERSIONS OF THIS PROGRAM. PID 316 IS THE 8K VERSION AND HILL 
AUTOMATICALLY PROCESS ALL X VALUES FROM X=00 THRU X=99. IT ALSO PROVIDES 
NECESSARY MANUAL INTERVENTION DELAYS FOR OPERATION WITH 2770/2780 TERMINALS. 

PID 317 IS THE 4K VERSION IN WHICH ONLY X VALUES 00,01,02.12.16, C 19 
ARE PROVIDED AUTOMATICALLY. X VALUES 13,14,15,20.21. C 22 REQUIRE PATCH CARD 
INSERTION. PIO 317 DOES NOT PROVIDE MANUAL INTERVENTION DELAYS FOR 2770/2780 
OPERATION. IPID 317 DOES NOT SUPPORT X=99 MESSAGES) 

PREREQUISITES 

**CAUTION** 

READ SECTIONS 3.1 AND 3.5 FOR SPECIAL OPERATING PROCEDURES BEFORE TAKING 

THE 1130 OFF-LINE FOR LOADING OF THE DIAGNOSTIC PROGRAM. 

2.1 PROGRAM PREREQUISITES 

1. THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR. 
THE DIAGNOSTIC MONITOR USES 1.5 K STORAGE WORDS. 

2. THE REMOTE TERMINAL MUST HAVE THE CAPABILITY OF EITHER 
TRANSMITTING OR RECEIVING AND RESPONDING TO REQUEST-FOR-TEST 
MESSAGES AS DESCRIBED IN THIS PROGRAM DESCRIPTION. 

2.2 EQUIPMENT PREREQUISITES 



1. 
2. 
3. 
4- 
5. 



SET STR/8SC SWITCH TO BSC POSITION. 

SET BAUD SELECTION SWITCH TO MATCH REMOTE TERMINAL 

SET DATA SET CONNECTOR PLUG SWITCH TO OPER 

CE SWITCH MUST BE OFF 

REFER TO LOGIC PAGE A0003 FOR CUSTOMER OPTION JUMPERS. 

OPTION FUNCTIONS MUST MATCH THE REMOTE TERMINAL. 

SCA MUST BE CONNECTED THROUGH THE PROPER MODEM EQUIPMENT TO 

ANOTHER BSC TERMINAL. DATA SETS USED MUST BE COMPATIBLE WITH 

BAUD RATE AND CUSTOMER OPTIONS SELECTED. 

NOTE... DIAL-UP CONNECTIONS. ..AUTOMATIC LINE DISCONNECT OCCURS 
WHEN 1130 RESET KEY IS PRESSED OR WHEN SCA PROGRAM RESET IS 
EXECUTED. THIS PROGRAM WILL EXECUTE A PROGRAM RESET ONLY IF t 
DISCONNECT SIGNAL IS RECEIVED FROM THE REMOTE TERMINAL OR IF 
THE PATCH CARD DESCRIBED IN 3.1 NOTE 3 IS USED. IF IT IS 
DESIRED THAT LINE DISCONNECT BE PREVENTED REMOVE THE JUMPER 
FROM 06D05 TO M2010. 
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3. OPERATING PROCEDURE 

SEE DIAGNOSTIC MONITOR USE PROCEDURE FOR DETAILS OF PROGRAM LOADING AND 
OPERATING PROCEDURES. PROGRAM OVERLAP IS NOT RECOMMENDED DUE TO TIMING 
CONSIDERATIONS. 



3.2.1 PROGRAM CONTROL - FUNCTION 

1. SET SWITCHES 0-7 TO 01 

2. SET SWITCHES 8-15 AS DESIRED 



3.1 



3.2 



PROGRAM LOADING 

PROGRAM LOADING PROCEDURES ARE SUMMARIZED HERE. SEE DM USE 
PROCEDURE FOR ADDITIONAL DETAILS. OVERLAP IS NOT RECOMMENDED. 



1. 



2. 
3. 



NOTIFY THE OPERATOR AT THE REMOTE TERMINAL THAT THE 1130 WILL 
BE TAKEN OFF-LINE FOR LOADING OF THE DIAGNOSTIC PROGRAM. IT 
MAY BE NECCESSARY FOR THE REMOTE TERMINAL OPERATOR TO TAKE 
ACTION IN PREPARATION FOR THE TEST PROCEDURE. 
SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 
SET BIT SWITCH 15. ..OFF - FOR LOAD AND GO. JNOTE II 

...ON - TO SPECIFY OPTIONS BEFORE RUNNING. 
<N0TE2I 
LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 
SELECT PROGRAM OPTIONS AS DESIRED. 



NOTE 1.. NORMAL LOAD AND GO OPERATION ASSUMES THAT THE PROGRAM WILL 

BE INITIATING THE TEST PROCEDURE AND TEST ROUTINES 1-13 WILL 
BE EXECUTED. IF THE PROGRAM WILL NORMALLY BE REQUIRED TO 
RECEIVE AND RESPOND TO REQUEST-FOR-TEST MESSAGES ITEST 
ROUTINE 181 IT IS RECOMMENDED THAT A PATCH CARD BE INSERTED 
IN THE PROGRAM DECK TO AUTOMATICALLY SELECT ROUTINE 18. THE 
PATCH CARD SHOULD CONTAIN IN COLUMNS I-IO, G05E0 0018, ALL 
OTHER COLUMNS SHOULD BE BLANK. THE PATCH CARD SHOULD BE 
INSERTED AHEAD OF THE LAST CARD IN THE PROGRAM DECK. ROUTINE 
18 MAY BE SUBSEOUENTLV DE-SELECTED BY USING FUNCTION 1. 

NOTE 2. .IF HALTED AFTER LOADING, SELECT PROGRAM OPTIONS THEN TURN 
OFF HALT SWITCH OR FOLLOi NORMAL RESTART PROCEDURE (3.5) 

NOTE 3.. 1130 TO S/360 SWITCHED (DIAL-UP) LINES. THE S/360 PROGRAMS 
WILL DISCONNECT FROM THE COMMUNICATIONS LINE AT THE END OF 
EACH TEST. IT IS RECOMMENDED THAT THE FOLLOWING PATCH CARD 
BE PREPARED FOR 1130 TO S/360 TESTS OVER SWITCHED LINES. USE 
OF THIS CARD WILL CAUSE THE 1130 PROGRAM TO DISCONNECT AT THE 
END OF EACH TEST. THE PATCH CARD MUST BE PUNCHED AS FOLLOWS. 

COLUMNS 1-5 E061C 
COLUMN 6 BLANK 
COLUMNS 7-9 0000 
ALL OTHER COLUMNS BLANK 

THIS CARD MUST BE INSERTED IN FRONT OF THE LAST BINARY CARD 
IN THE PROGRAM DECK. 

PAPER TAPE IPL SYSTEMS. MANUALLY LOAD ALL ZEROS INTO 
CORE LOCATION /061C AFTER PROGRAM HAS BEEN LOADED. 

PROGRAM OPERATION 

PROGRAM OPERATING PROCEDURES ARE SUMMARIZED HERE. SEE DM USE 
PROCEDURE FOR ADDITIONAL DETAILS. OVERLAP IS NOT RECOMMENDED. 



SWT 

8 

9 
10 
II 
12 
13 
14 
15 



FUfCTION 



RESTART (SEE SECTION 3.51 

ROUTINE START MESSAGE 

(NOT USED) 

LOOP PROGRAM 

(NOT USED) 

BYPASS ERROR PRINTOUT 

HALT ON ERROR (USE NOT RECOMMENDED) 

HALT (SEE SECTION 3.5) 



3. PRESS INT REQ KEY ON CONSOLE 



3.2.2 ROUTINE SELECTION - FUNCTION 1 

ROUTINE SELECTION WILL BE INOPERATIVE IF THE RFT RECEIVER OPTION 
(FUNCTION 2 SWITCH 15) IS SELECTED. 

ROUTINES 1-13 WILL BE EXECUTED IN SEQUENCE IF NO ROUTINE (OR 00) IS 
SELECTED. ROUTINES 14-18 WILL BE EXECUTED ONLY IF SELECTED. 
ONLY ROUTINE 18 WILL LOOP CONTINIOUSLY IF SELECTED. ALL OTHERS WILL 
TERMINATE AT THE COMPLETION OF THE ROUTINE. 

TO LOOP A ROUTINE FIRST SELECT THE ROUTINE THEN SELECT THE LOOP 
PROGRAM OPTION (FUNCTION SWT 11). 

TO SET ROUTINE SELECTION 



A. 
B. 



SET SWITCHES 0-7 TO 41 

SET ROUTINE NUMBER IN SWITCHES 8-15 



DATE 
EC NO. 



010CT69 
571066 



01JUN70 
571097 



PROG ID 


0316-* 


DATE 


010CT69 


01JUN70 


PAGE 


2 


EC NO. 
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RTN NO. I TRANSMIT 
(HEX) I RFT WITH 



I X VALUE OF I RECEIVE 



I TRANSMIT I MESSAGE 
I (OR) I NUMBER 



01 I X=00 



-I 



02 



I TRANSMIT I 

02 I X=00 I TRANSMIT I 04 

03 I X=00 I TRANSMIT I 12 

04 I X=00 I TRANSMIT I 13 

05 I X=00 I TRANSMIT I 14 

06 I X=00 I TRANSMIT I 15 
1 , , 

07 I X=00 I TRANSMIT I 16 

08 I X=00 I TRANSMIT I 19 

09 I X=00 I TRANSMIT I 20 



-I- 



■I- 



OA I X=00 
OB I X=00 



-I- 



1 TRANSMIT I 21 
I TRANSMIT I 22 
OC I X=02 I RECEIVE I 02 



00 I X=04 I RECEIVE I 04 

OE I X=12 I RECEIVE I 12 

OF I X=13 I RECEIVE I 13 
1 , , 

10 I X=14 I RECEIVE I 14 

11 I X=15 I RECEIVE I 15 
1 , , 

12 I X=16 I RECEIVE I 16 

13 I X=19 I RECEIVE I 19 



NUMBER 

OF 

TIMES 



Y 
Y 
Y 
Y 
Y 



Y 
Y 
Y 



Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 



Y 
Y 
Y 
Y 
Y 



14 I X=20 I RECEIVE I 20 

15 I X=21 I RECEIVE I 21 

16 I X=22 I RECEIVE I 22 

1 

17 I TRANSMIT RFT WITH X>00( SEE SECTION 5.2) 
I TRANSMIT OR RECEIVE TEST MESSAGES AS 

I DEFINED BY X VALUE. 

18 I RECEIVE AND RESPOND TO RFT MESSAGES 

C. PRESS INT REQ KEY ON CONSOLE 
TO DESELECT ROUTINE AND RETURN TO NORMAL OPERATION 

A. SET SWITCHES 0-7 TO 41 

B. SET SWITCHES 8-15 OFF 

C. PRESS INT REQ KEY 

D. DESELECT LOOP OPTION IF SELECTED. 



COMMENTS 



BY SELECTION 
BY SELECTION 
BY SELECTION 

BY SELECTION 
BY SELECTION 



3.2.3 PROGRAM OPTIONS - FUNCTION 2 



1. 
2. 

SHT 



SET SWITCHES 0-7 TO 81 

SET SWITCHES 11-15 AS DESIRED 



FUNCTION 



RECEUE y TEST HESSJtES. I/ILLOW EXECUTION Of RINS 1-171 

..oEE.rs ;«^2;'=s.i;s,rE.".s!'5i5s.TEsr°" ""'™ *- 

S., »-.»--JJ,|S-ye. ._.. «SSJ. » -.. SECOENCE, 



SWT 12.. ON. 



•rSEE'sE™;!;!^ VA] ^^-^^''^TED and received. 



SWT 11..0N..TERMINAH2770/2780I MODE OF OPERATION CAU'iF'i « nc. .v o. 

IIrSJSaM' T«*NS''""D. (DELAY FOR MANUAL iSJerIeStIoJ^T 

(MUST BE ON TO OPERATE WITH 277ft/57ani 
..OFF.NORMAL MODE. NO DELAY. 2^70/27801 

SWT 10. .ON.. SEND ID HEADER WITH INITIAL ENQ OR INITIAl Am 
..OFF. DO NOT SEND ID HEADER. INITIAL ACK. 

!l^JfL"^^ IDENTIFICATION HEADER CODE IS REOUP^TPn tuc 

lz^°o5r.1%:Sc^i^l^srl^1:!r •""°«"-"- -E «Tc„ 

COLUMNS 1-5 S061E 
COLUMN 6 BLANK 

ss^sSeJ-^Sl;;;? mi'''' "" ^'^^ ^^^^^ '^--^ ^xoo 

?Sa'!5c?^r." JSI FSuTwiSG*^;rirLJSLE*'';F*iTA;rTr^?''^ 

ID OF B0CARAT0N10CT69 ... EXAMPLE OF A PATCH CARD 
e061E C2D6 C3C1 D9C1 E3D6 D5F1 06C3 E3F6 F900 

PAPER TAPE IPL SYSTEMS. MANUALLY LOAD -THE FRrnir 

/^"i'ris;;ojt'%„T"" "•""""■^" "« -""""s 

SWT 9. .ON.. PRINT LINE MESSAGES ON 1132 PRINTER. 
SWT 8..0N.. PRINT LINE MESSAGES ON 1403 PRINTER. 
''°''"IrIHtIV'" ' ^'^ " *«^ "^"^'HeSSAGES ARE PRINTED ON THE CONSOLE 



3. PRESS INT REQ KEY ON CONSOLE. 



DATE 
EC NO. 



010CT69 
571066 



01JUN70 
571097 



PROG ID 
PAGE 



0316-* 
3 
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3.2.4 PROGRAM OPTION - FUNCTION 3 

WHEN TRANSMITTING REQUEST-FOR-TEST MESSAGES {EXECUTING RTNS 1-171 
THIS OPTION ALLOWS SELECTION OF THE NUMBER OF TEST MESSAGES 
THAT ARE TO BE TRANSMITTED OR RECEIVED. THE VALUE ENTERED IN 
SWITCHES 8-15 IS USED AS A COUNT OF TEST MESSAGES AND IS ALSO 
CONVERTED TO TWO EBCDIC DECIMAL DIGITS AND ENTERED IN THE Y FIELD 
OF THE RFT MESSAGE. THIS VALUE MUST BE BETWEEN DECIMAL 01 AND 99- 

TO SELECT THE Y VALUE 



3.3.2 ERROR HALTS 



1. SET SWITCHES 1-7 TO CI 

2. SET SWITCHES 8-15 AS DESIRED 

3. PRESS INT REQ KEY ON CONSOLE 

TO RETURN TO NORMAL OPERATION 

1. SET SWITCHES 0-7 TO CI 

2. SET SWITCHES 8-15 TO 01 

3. PRESS INT REQ KEY 



3.3 PROGRAM HALTS 
3.3.1 NORMAL HALTS 



(HEX 01 TO 631 



.HALT NO. 
(B REGI. 



DESCRIPTION 



RESTART 
ACTION 



3001 . PROGRAM STOP OR ADDRESS STOP 

3002 . HALT ON ERROR 



PRESS PROGRAM START 
PRESS PROGRAM START 



.HALT NO. 
.(B REG). 

! 30F1 . 


DESCRIPTION 


CHECK SUM ERROR ON FIRST 
CARD OF LOADER 


. 30F2 . 


READER DSW ERROR WHEN 
LOADING LOADER 


. 30F3 . 


CARD 2 OF LOADER DID 
NOT LOAD 


I 30F4 . 


CAN NOT CLEAR CORE - DUE 
TO ERROR IN ADDRESSING 
UPPER CORE 


I 30F5 , 


', READER CHECK WHEN LOADING 
MONITOR OR TEST PROGRAK 


. 30F6 


'. MONITOR DID NOT LOAD 


'. 30F7 


'. CHECK SUM WHEN LOADING 
MONITOR 


I 30F8 


READER NOT READY 


. 30F9 


'. INVALID INTERRUPT WHICH 
MILL NOT RESET 


'. 30FA 


'. CONSOLE PRINTER HANG UP - 
BUSY WILL NOT GO OFF 



RESTART 
ACTION 

RELOAD PROGRAM 



RELOAD PROGRAM 



RELOAD PROGRAM 



MPRO THEN PLACE CARDS 
RON OUT IN FRONT OF 
REMAINING DECK AND PRESS 
READER START- 
PRESS PROGRAM START 

RELOAD PROGRAM 

RELOAD PROGRAM 



MAKE READER READY 
PRESS PROGRAM START 

PRESS RESET AND 
PROGRAM START 

FIX THE CONSOLE PRINTER 



DATE 
EC NO. 



010CT69 
571066 



01JUN70 
571097 



PROG ID 


0316-* 


DATE 


010CT69 


01JUN70 
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3.4 



3.5 



PROGRAM TERMINATION 

IF LOOP OPERATION HAS NOT BEEN SPECIFIED, THE PROGRAM HILL END... 

1. AT THE END OF ROUTINE 13 IF NO ROUTINE HAS BEEN SELECTED AND THE 
RFT RECEIVER OPTION {FUNCTION 2 SHT 151 IS NOT SELECTED. 

2. AT THE END OF THE SELECTED ROUTINE IF ANY ROUTINE OTHER THAN 
ROUTINE 18 IS SELECTED. 



PRINTOUTS 

ALL PRINTOUTS ARE IN THE STANDARD FORMAT EXCEPT THE TEXT PRINTOUT. ISEE 4.31 

MESSAGE 

MESSAGE IMESSAGE OMITTED FOR DIAGNOSTIC PRINTOUTSI 



APPNN DORR AAAA 

OR 
EPPNN DORR AAAA 



3. 



IF ROUTINE 18 IS SELECTED BY EITHER FUNCTION 1 OR FUNCTION 2 SWT 
15 THE PROGRAM WILL LOOP CONTINUOUSLY. 



NOTE... .AFTER NORMAL PROGRAM END THE SCA IS LEFT IN RECEIVE MODE. 
INTERRUPTS MILL CONTINUE TO OCCUR BUT MILL BE IGNORED 
BY THE PROGRAM. ISEE 3.5) 



HALTING AND RESTARTING PROGRAM 

AFTER NORMAL PROGRAM END OR AFTER SELECTION OF PROGRAM HALT 
IFUNCTION SHT 151 THE SCA IS LEFT IN RECEIVE MODE. INTERRUPTS 
MILL CONTINUE TO OCCUR BUT MILL BE IGNORED BY THE PROGRAM. THIS 
PROCEDURE PREVENTS LINE DISCONNECT WHEN THE PROGRAM IS STOPPED. 
FOR THIS REASON IT IS RECOMMENDED THAT USE OF THE PROGRAM STOP, 
IMMEDIATE STOP, AND RESET KEYS BE AVOIDED MHEN OPERATING THIS 
PROGRAM. THE PROGRAM STOP KEY MILL NORMALLY STOP THE PROGRAM 
ONLY UNTIL THE NEXT INTERRUPT OCCURS. IN DIAL-UP CONNECTIONS USE OF 
THE RESET KEY MAY CAUSE LINE DISCONNECT. 

IT IS ALSO RECOMMENDED THAT WHENEVER POSSIBLE THE PROGRAM BE 
ALLOWED TO RUN TO NORMAL COMPLETION. IF IT IS NECCESSARY TO USE 
THE PROGRAM HALT OPTION OR OTHERWISE HALT THE PROGRAM THIS SHOULD 
BE DONE DURING THE END OF TEST PRINTOUT. IF THE TEST MUST BE 
TERMINATED DURING EXECUTION OF A TEST SEQUENCE, THEN ALLOW SUFFICIENT 
TIME FOR THE REMOTE TERMINAL TO FINISH THE TEST CYCLE BEFORE 
RESTARTING THE PROGRAM — OR RESTART BOTH TERMINALS. 

TO HALT PROGRAM (SEE 3.2.11 



4.1 



AOOOO 



AOOOl 



1. TURN OFF SWITCHES 0-6 

2. TURN ON SWITCHES 7 AND 

3. PRESS INT REQ KEY 



15 



WHERE A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE PIO OF THE PROGRAM CAUSING THE MESSAGE 

THIS WILL BE EITHER 00 FOR MESSAGES ORIGINATED BY 
MONITOR OR 16 FOR MESSAGES ORIGINATED BY THIS PROGRAM 

NN IS THE MESSAGE IDENTIFICATION NUMBER 

RR IS THE ROUTINE NUMBER 

AAAA IS THE STARTING ADDRESS OF THE ROUTINE 

MESSAGE IS ANY VARIABLE INFORMATION 



STATUS MESSAGES (LOG MESSAGES) 



NUM PIO AORS RELF LD 
XXXX XXXX XXXX XXXX 

THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR). THE MESSAGE GIVES THE LOAD SEQUENCE NtMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM HAS LOADED, 
AND THE RELOCATION FACTOR. 



SWS PID 
XXXX XXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WHERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM THE WORD HALT WILL FOLLOW THE 
MESSAGE. 



TO RESTART PROGRAM (SEE 3.2.11 



A1600 OORR AAAA 



1. TURN OFF SWITCHES 0-6 

2. TURN ON SWITCHES 7 AND 8 

3. SET DESIRED CONTROL IN SWITCHES 9-14 

4. PRESS INT REQ KEY ON CONSOLE 

IF THIS DOES NOT RESTART PROGRAM THEN. 

5. PRESS IMMEDIATE STOP 

6. PRESS RESET 

7. PRESS INT REQ KEY 



ROUTINE START MESSAGE - IF SWITCH 9, FUNCTION 0. IS TURNED ON. 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 



A1600 OORR AAAA 



X»99 ABORT, NO ENQ IN 1 MIN 

THIS MESSAGE IS PRINTED WHEN AN ENQ IS NOT RECEIVED WITHIN 
ONE MINUTE AFTER RECEIVING AN X=99 RFT FROM A TERMINAL DEVICE 
SUCH AS A 2780.(R0UTINE 18) ROUTINE IB IS RESTARTED AFTER 
THIS MESSAGE. THE X=99 REQUESTOR MUST RE- INITIALIZE THE TEST 
BY SENDING A NEW X=99 RFT. 



DATE 
EC NO. 



010CT69 
571066 



01JUN70 
571097 



PROG ID 
PAGE 



03 16-* 
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A1601 OORR AAAA 



MAKE DATA SET READY 

BEFORE EACH ROUTINE IS STARTED THE PROGRAM CHECKS FOR A READY 
CONDITION IN THE OSW, AND PRINTS THIS MESSAGE IF READY IS NOT ON. 
IN A PERMANENT LINE CONNECTION THIS IS AN ERROR CONDITION. 
IN A DIAL-UP CONNECTION THIS MESSAGE IS A REQUEST THAT A 
CONNECTION BE ESTABLISHED WITH THE REMOTE TERMINAL. CONNECTION 
MAY BE ESTABLISHED BY ANY OF THE FOLLOWING MEANS.. 

1. MANUALLY ESTABLISH CONNECTION AT BOTH TERMINALS 
OR 

2. IF REMOTE TERMINAL CAN ANSWER AUTOMATICALLY THEN DIAL 

THE REMOTE TERMINAL t WAIT FOR THE ENP OF THE TONE RECEIVED 
FROM THE OTHER TERMINAL, PRESS THE DATA BUTTON ON THE 
DATA SET. 
OR 

3. PRESS THE AUTO-ANSWER BUTTON ON THE DATA SET. THE PROGRAM 
WILL THEN CONTINUE TO PRINT THIS MESSAGE UNTIL AN INCOMING 
CALL IS RECEIVED. WHEN A CALL IS RECEIVED THE PROGRAM HILL 
ANSWER AND CONDUCT THE TEST. 

THIS MESSAGE WILL BE REPEATED AT ABOUT 20 SEC INTERVALS UNTIL 
READY IS SENSED IN THE DSM. 

NOTE.. ..1130 TO S/360 DIAL-UP CONNECTIONS... 

DIALING MUST ALWAYS BE DONE AT THE SYSTEM WHICH IS TO TRANSMIT 

THE RFT MESSAGE. 

WHEN EXECUTING RTNS 1-17 DIAL FROM THE 1130 END. 

WHEN EXECUTING RTN 18 DIAL FROM THE REMOTE TKMINAL END. 

THIS MESSAGE IS PRINTED AT ANY TIME THAT LINE DISCONNECT OCCURS. 

THE PROGRAM WILL RESET THE SCA AND IF THE SYSTEM IS CONFIGURED 

FOR AUTOMATIC DISCONNECT, DISCONNECT FROM THE COMMUNICATIONS LINE 



A1605 OORR AAAA 



A1602 OORR AAAA 



HON ENQ 

THIS MESSAGE MEANS THAT TEST ROUTINE 18 IS MONITORING THE LINE 
FOR THE ENQ CHARACTER WHICH PRECEEDS THE FIRST MESSAGE. THIS 
MESSAGE WILL BE REPEATED AT INTERVALS AND ALL OTHER CHARACTERS 
RECEIVED WILL BE IGNORED UNTIL THE ENQ CHARACTER IS RECEIVED. 
WHEN ENQ IS RECEIVED AN ACKNOWLEDGEMENT (OLE ACKO> WILL BE 
TRANSMITTED AND THE RFT MESSAGE RECEIVED. 



A1603 OORR AAAA 



NO ANS ENQ 

THIS MESSAGE IS PRINTED BY ROUTINES 1-17 AFTER 7 ATTEMPTS TO 
ESTABLISH INITIAL COMMUNICATION WITH REMOTE TERMINAL HAVE FAILED. 
THE PROGRAM HAS TRANSMITTED ENQ 7 TIMES, BUT EITHER NO RESPONSE 
OR A RESPONSE OTHER THAN THE POSITIVE ACKNOWLEDGEMENT (OLE ACKOI 
WAS RECEIVED. THIS MESSAGE USUALLY INDICATES THAT THE REMOTE 
TERMINAL IS NOT YET READY TO RECEIVE. IF IT IS ESTABLISHED 
THAT THE REMOTE TERMINAL IS READY TO RECEIVE THEN THIS IS AN 
ERROR CONDITION. AFTER PRINTING THE TEST ROUTINE WILL BE 
RESTARTED. 



A 1604 OORR AAAA 



DISCONNECT 

THIS MESSAGE IS PRINTED AFTER THE 1130 HAS RECEIVED A 

DISCONNECT CHARACTER SEQUENCE (OLE EOT I FROM THE REMOTE 

STATION I SWITCHED NET>. 

(REFER TO SECTION 3.1 FOR A DEFINITION OF DISCONNECT 

OPERATIONS) 



A 1606 OORR AAAA 



X Y TNOUT NAK INV RESP 
OOOXX OOOXX OOOXX OOOXX OOOXX 

THIS IS THE NORMAL END OF TEST MESSAGE WHICH IS PRINTED BY THE 
TEST MESSAGE TRANSMITTER (RTNS 1-B, RTN 17 IF X=00, AND RTN 18 
IF X IS NOT 001. THE PRINTOUT PROVIDES THE X AND Y VALUES FROM 
THE RFT MESSAGE, THE NUMBER OF RECEIVE TIMEOUTS WHICH OCCUREO 
WHILE RECEIVING RESPONSES TO TEST MESSAGES, THE NUMBER OF 
NEGATIVE RESPONSES (NAK) TO TEST MESSAGES, AND THE NUMBER OF 
INVALID RESPONSES (ANY RESPONSE OTHER THAN ACK0,ACK1, NAK, MACK) TO 
TEST MESSAGES, AN ERROR FREE TEST IS INDICATED BY THE COUNTS 
IN THE LAST THREE FIELDS BEING ZERO. 

X Y TNOUT W ERR W/O ERR 
OOOXX OOOXX OOOXX OOOXX OOOXX 

THIS IS THE NORMAL END OF TEST MESSAGE WHICH IS PRINTED BY THE 
TEST MESSAGE RECEIVER (RTNS C-16, RTN 17 IF X NOT 00, AND RTN 18 
IF X=OOI. THE PRINTOUT PROVIDES THE X AND Y VALUES FROM THE 
RFT MESSAGE, THE NUMBER OF RECEIVE TIMEOUTS WHICH OCCURED WHILE 
RECEIVING TEST MESSAGES, THE NUMBER OF TEST MESSAGES RECEIVED 
WITH EITHER BCC OR FORMAT ERRORS, THE NUMBER OF TEST MESSAGES 
RECEIVED WITHOUT ERROR. AN ERROR FREE TEST IS INDICATED BY THE 
NUMBER OF ERROR FREE MESSAGES BEING EQUAL TO THE Y VALUE. 



A 1607 OORR AAAA 



RVI RCVD, EOT SENT 

THIS MESSAGE IS PRINTED WHEN THE SLAVE STATION REPLIES WITH AN 
RVI INSTEAD OF AN ACKNOWLEDGEMENT. RVI IS A REQUEST FOR 
TERMINATION OF THE CURRENT TRANSMISSION AS SOON AS POSSIBLE. 
TRANSMISSION IS TERMINATED WITH AN EOT AT THE END OF THE CURRENT 
TRANSMISSION BLOCK. 



A 1608 OORR AAAA 



A1614 OORR AAAA 



4.2 



EOOOl 



E0003 



TTD RCVO 

THIS MESSAGE IS PRINTED WHEN THE RESPDNOER (RTN 18) HAS RECEIVED 
A TTO SEQUENCE (STX/ENQ) DURING MESSAGE TRANSFER. 
TTD INDICATES A DELAY OF MORE THAN 2 SECONDS BEFORE THE NEXT 
XMISSION BLOCK IS SENT OR A CONTROLLED FORWARD ABORT OF THE 
CURRENT TRANSMISSION. RTN 18 WILL RESPOND TO THE TTD WITH A 
NAK CHARACTER. 

LINE PRINTER NOT READY 

THE PRINTER SELECTED BY FUNCTION 2 SWT 8 OR 9 IS NOT READY. READY 
PRINTER AND CONTINUE. 

ERROR MESSAGES 



SWS INVLD 
XXXX 

THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



OVR CORE 

THE PROGRAM, WHICH THE LOADER WAS ATTEMPTING TO LOAD, 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 



DATE 
EC NO. 



010CT69 
571066 



01JUN70 
571097 



PROG ID 
PAGE 



03 16-* 
6 
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E0004 



E0005 



CKSUM 

A CHECK SUM ERROR MAS DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 

1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 

2. THERE IS AN EXTRA CARD IN THE DECK. 

3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 

5. DUE TO A CPU MALFUNCTION THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 

WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM.' 



COON XXXX 

THIS ERROR MILL OCCUR IF AN INTERRUPT OCCURS, BUT THE ILSW WAS 
NOT CORRECT. H IS THE INTERRUPT LEVEL AND XXXX IS THE ILSW. 
THIS PRINTOUT WILL ONLY CCCUR IF THE INTERRUPT IS RESET BY 
A BOSC. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



El 604 OORR A AAA 



INV X 

THIS MESSAGE IS PRINTED BY TEST ROUTINE 17 IF AN INVALID X VALUE 

IS ENTERED BY A PROGRAM PATCH CARD. 

CORRECT THE PATCH CARD AND RELOAD THE PROGRAM. 



E1605 OORR AAAA 



INV Y 

THIS MESSAGE IS PRINTED BY ROUTINES 1-17 IF AN INVALID Y VALUE IS 
ENTERED VIA FUNCTION 3. ENTER A CORRECT VALUE CHEX 01 TO 631 
AND RESTART THE PROGRAM. 



E1606 OORR AAAA 



£1600 OORR AAAA 



25 WACKS R 

THIS MESSAGE IS PRINTED BY TEST ROUTINES 1-17 WHEN 25 CONSECUTIVE 
WAIT BEFORE ACKNOWLEDGE IWACKJ RESPONSES HAVE BEEN RECEIVED FROM 
THE REMOTE TERMINAL. THE PROGRAM WILL TERMINATE AND PRINT THE 
END OF TEST MESSAGE. 



INV RFT RCVD 

THIS MESSAGE IS PRINTED BY TEST ROUTINE 18 IF A REQUEST FOR 
TEST MESSAGE IS RECEIVED WHICH THE PROGRAM IS NOT CAPABLE 
OF RESPONDING TO. THE RFT MESSAGE CONTAINED ONE OF THE 
FOLLOWING ERRORS. 

1. THE RFT MESSAGE DID NOT BEGIN WITH SOH t 

2. THE X FIELD WAS GREATER THAN DECIMAL 99 

3. THE Y FIELD WAS GREATER THAN DECIMAL 99 

4. THE X VALUE WAS NOT ONE OF THOSE RECOGNIZED BY ROUTINE 18 

THE PROGRAM WILL TRANSMIT NAK AND ATTEMPT TO RECEIVE THE 
RFT MESSAGE FOR UP TO 7 TRYS. 



E1607 OORR AAAA 



EOT RCVD 



E16G1 OORR AAAA 



DATA SET NRDY 

THE DATA SET BECAME NOT READY WHILE THE PROGRAM WAS ATTEMPTING 
TO TRANSMIT OR RECEIVE A MESSAGE OR CONTROL SEQUENCE. IF 
INITIAL COMMUNICATION WITH THE REMOTE TERMINAL HAD NOT YET 
BEEN ESTABLISHED THE PROGRAM WILL RESTART THE TEST ROUTINE. 
IF THE EXCHANGE OF MESSAGES WITH THE REMOTE TERMINAL WAS IN 
PROGRESS AT THE TIME THE ERROR OCCUREO, THE PROGRAM WILL 
ATTEMPT TO PROCEED WITH THE TEST. 



THE END OF TRANSMISSION (EQTI CHARACTER MAS RECEIVED IN RESPONSE 
TO OR IN' PLACE OF A MESSAGE PRIOR TO THE NORMAL END OF TEST. 
THE PROGRAM WILL TERMINATE THE CURRENT TEST ROUTINE AND IF 
ANY TEST MESSAGES HAVE BEEN TRANSMITTED OR RECEIVED PRINT THE 
END OF TEST MESSAGE. 



E1608 OORR AAAA 



E1602 OORR AAAA 



7 TRIES T 

THIS MESSAGE IS PRINTED BY TEST ROUTINES 1-17 AFTER 7 ATTEMPTS 
TO TRANSMIT THE REQUEST-FOR-TEST MESSAGE HAVE FAILED. THE 
PROGRAM WILL TERMINATE THE CURRENT TEST ROUTINE AND EITHER END 
THE PROGRAM OR GO ON TO THE NEXT ROUTINE. THE NORMAL END OF 
TEST MESSAGE WILL NOT BE PRINTED SINCE NO TEST MESSAGES HAVE 
BEEN TRANSMITTED OR RECEIVED. 



DISCONNECT 

THE DISCONNECT SEQUENCE IDLE EOT I WAS RECEIVED IN RESPONSE TO OR 
IN PLACE OF A MESSAGE PRIOR TO THE NORMAL ENO OF TEST. THE 
PROGRAM WILL TERMINATE THE CURRENT TEST ROUTINE. RESET THE SCA, 
AND PRINT THE ENO OF TEST MESSAGE IF ANY TEST MESSAGES HAVE 
BEEN RECEIVED. 



E1609 OORR AAAA 



NO INTRP 

AN EXPECTED INTERRUPT FAILED TO OCCUR. THE PROGRAM MILL 
TERMINATE THE CURRENT TEST ROUTINE AND PRINT THE END OF TEST 
MESSAGE IF ANY TEST MESSAGES HAVE BEEN TRANSMITTED OR RECEIVED. 



E1603 OORR AAAA 



7 TRIES R 

THIS MESSAGE IS PRINTED BY TEST ROUTINE 18 AFTER 7 ATTEMPTS TO 
RECEIVE THE REQUEST-FOR-TEST SEQUENCE HAVE FAILED. THE PROGRAM 
WILL TERMINATE THE CURRENT TEST AND WILL RESTART ROUTINE 8. 
THE NORMAL END OF TEST MESSAGE WILL NOT BE PRINTED SINCE NO 
TEST MESSAGES HAVE BEEN TRANSMITTED OR RECEIVED. 



E160A OORR AAAA 



CONTENTION 

THIS MESSAGE IS PRINTED BY TEST ROUTINES 1-17 IF ENQ IS RECEIVED 
IN RESPONSE TO ENQ WHEN ATTEMPTING TO ESTABLISH INITIAL 
COMMUNICATION WITH THE REMOTE TERMINAL. THIS INDICATES THAT 
BOTH TERMINALS ARE ATTEMPTING TO TRANSMIT. CORRECT BY ONE 
TERMINAL GOING TO RECEIVE RFT MESSAGES. WHEN THIS ERROR OCCURS 
THE PROGRAM WILL RESTART THE TEST ROUTINE. 



DATE 
EC NO. 



010CT69 
571066 



01JUN70 
571097 



PROG ID 


0316-* 


DATE 


010CT69 


01JUN70 


PAGE 


7 


EC NO. 


571066 


571097 



PROG ID 
PAGE 



03 16-* 
7A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA TRANSMIT/RECEIVE POINT-TO-POINT 8K 



PART NO. 2243979 
PAGE 8 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA TRANSMIT/RECEIVE POINT-TO-POINT 8K 



PART NO. 22*3979 
PAGE 8A 



****NOTE-. DIAGNOSTIC ERROR MESSAGES-. THE FOLLOWING ERROR MESSAGES ARE PRINTED 
ONLY IF FUNCTION 2 SWITCH 14 IS SELECTED. EACH OF THESE MESSAGES 
INDICATES A SOFT (RECOVERABLE! ERROR CONDITION. INCLUDED IN THE 
DESCRIPTION OF EACH OF THESE PRINTOUTS IS THE ACTION THAT WILL BE 
TAKEN BY THE PROGRAM TO ATTEMPT RECOVERY FROM THE ERROR. THESE 
PRINTOUTS ARE INTENDED TO BE USED AS A GUIDE IN LOCATING THE EXACT 
POINT OF FAILURE IN THE TEXT PRINTOUT. 



E1611 DORR AAAA 



THE RFT MESSAGE RECEIVED CONTAINED AN X FIELD WHICH WAS NOT 
COMPOSED OF TWO DECIMAL DIGITS. THE PROGRAM WILL TRANSMIT NAK 
AND AGAIN ATTEMPT TO RECEIVE THE RFT. 



E1612 OORR AAAA 



E160B OORR AAAA 



TEST ROUTINE 18 HAD RECEIVED AND ACKNOWLEDGED THE INITIAL ENQ 
AND WAS EXPECTING THE RFT MESSAGE WHEN A SECOND ENQ WAS RECEIVED. 
THIS INDICATES THAT THE REMOTE TERMINAL DID NOT CORRECTLY 
RECEIVE THE ACKNOWLEDGEMENT (OLE ACKO). THE PROGRAM WILL 
RE- TRANSMIT THE ACKNOWLEDGEMENT. 



THE RFT MESSAGE RECEIVED CONTAINED A Y FIELD WHICH WAS NOT 
COMPOSED OF TWO DECIMAL DIGITS. THE PROGRAM WILL TRANSMIT NAK 
AND AGAIN ATTEMPT TO RECEIVE THE RFT MESSAGE. 



E1613 OORR AAAA 



E160C OORR AAAA 



A RECEIVE TIMEOUT OCCURED WHILE RECEIVING THE RFT MESSAGE. 
THIS INDICATES THAT EITHER CHARACTER PHASE WAS NEVER ESTABLISHED 
AND NOTHING WAS RECEIVED OR THE END OF TEXT CHARACTER 
<ETX OR ETB) WAS NOT RECEIVED CORRECTLY. THE PROGRAM WILL 
MONITOR THE LINE FOR ENQ AND WHEN ENQ IS RECEIVED RE-TRANSMIT 
THE LAST ACKNOWLEDGEMENT (ACK OR NAK). 



THE RFT MESSAGE RECEIVED CONTAINED A X VALUE WHICH THE PROGRAM 
IS NOT CAPABLE OF RESPONDING TO. THE PROGRAM WILL TRANSMIT 
NAK AND ATTEMPT TO RECEIVE THE RFT AGAIN. 



E1614 OORR AAAA 



E1600 OORR AAAA 



CHARACTER PHASE WAS ESTABLISHED WHEN ATTEMPTING TO RECEIVE 
THE RFT MESSAGE. BUT THE MESSAGE DID NOT BEGIN WITH A VALID 
START OF TEXT SEQUENCE (SDH, STX, OR OLE STXI. THIS IS AN 
INDICATION OF FALSE SYNCHRONIZATION. THE PROGRAM WILL ABORT 
SYNCHRONIZATION AFTER RECEIVING TWO CHARACTERS AND WILL THEN 
MONITOR FOR ENQ. WHEN ENQ IS RECEIVED THE LAST ACKNOWLEDGEMENT 
WILL BE RE-TRANSMITTED. 



AFTER SUCCESSFULLY RECEIVING AND ACKNOWLEDGING THE RFT MESSAGE 
THE PROGRAM WAS EXPECTING THE EOT CHARACTER, BUT THE ENQ 
CHARACTER WAS RECEIVED. THIS INDICATES THAT THE REMOTE TERMINAL 
DID NOT RECEIVE THE LAST ACKNOWLEDGEMENT. THE PROGRAM WILL 
RE-TRANSMIT THE LAST ACKNOWLEDGEMENT- 



E1615 OORR AAAA 



EOT WAS NOT RECEIVED FOLLOWING THE RFT MESSAGE. THE PROGRAM 
WILL AGAIN ATTEMPT TO RECEIVE THE EOT CHARACTER. 



E1616 OORR AAAA 



E160E OORR AAAA 



THE PROGRAM WAS MONITORING THE LINE FOR ENQ FOLLOWING A PREVIOUS 
ERROR, BUT ENQ WAS NOT RECEIVED. THE PROGRAM WILL RETURN TO 
MONITORING FOR ENQ. 



REMOTE TERMINAL HAS BEEN RESPONDING FOR APPROXIMATELY 50 SECONDS 
WITH WAIT BEFORE ACKNOWLEDGE IWACKJ COMMANDS. THE PR06RAM WILL 
TERMINATE. 



E1618 OORR AAAA 



E160F OORR AAAA 



THE RFT MESSAGE WAS RECEIVED WITH EITHER A BLOCK CHECK ERROR 
OR A FORMAT ERROR. A FORMAT ERROR OCCURS UNDER THE FOLLOWING 
CONDITIONS. 

1. SOH WAS RECEIVED IN HEADING OR NORMAL TEXT 

2. STX WAS RECEIVED IN NORMAL TEXT 

3. ENQ OR EOT WAS RECEIVED IN HEADING OR NORMAL TEXT 

4. OLE WAS RECEIVED IN TRANSPARENT TEXT AND WAS IMMEDIATELY 
FOLLOWED BY OTHER THAN OLE, SYN, ETX, ETB, OR ITB. 

THE PROGRAM WILL TRANSMIT NAK AND ATTEMPT TO RECEIVE THE 
RFT AGAIN. 



AN INVALID SEQUENCE WAS RECEIVED IN RESPONSE TO AN RFT MESSAGE 
(RESPONSE OTHER THAN ACK.NAK.OR WACKI.THE PROERAM WILL TRANSMIT 
ENQ TO REQUEST THAT ACKNOWLEDGEMENT BE REPEATED. 



E1619 OORR AAAA 



A RECEIVE TIMECRJT OCCURED AFTER TRANSMITTING THE RFT MESSAGE. 
THE PROGRAM WILL TRANSMIT ENQ TO REQUEST THAT THE ACKNOWLEDGEMENT 
BE REPEATED. 



E161A OORR AAAA 



E1610 OORR AAAA 



WHILE ATTEMPTING TO RECEIVE THE RFT MESSAGE A MESSAGE WAS 
RECEIVED WHICH WAS NOT AN RFT MESSAGE (MESSAGE DID NOT BEGIN 
WITH SOH «). THE PROGRAM WILL TRANSMIT NAK AND AGAIN TRY 
TO RECEIVE THE RFT MESSAGE. 



THE WRONG ALTERNATE POSITIVE ACKNOWLEDGEMENT WAS RECEIVED IN 
RESPONSE TO THE RFT MESSAGE. THE PROGRAM WILL RE-TRANSMIT THE 
RFT MESSAGE IF A TIMEOUT OCCURED PREVIOUSLY, IF NO TIMEOUT 
OCCURED ENQ WILL BE TRANSMITTED. 
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E161B OORR AAAA 



NAK WAS RECEIVED IH RESPONSE TO THE RFT MESSAGE. THIS INDICATES 
THAT THE RFT HAS RECEIVED BY THE REMOTE TERMINAL WITH A BCC 
ERROR. THE PROGRAM HILL RE-TRANSMIT THE RFT MESSAGE. 



E161C OORR AAAA 



EITHER NO RESPONSE OR A MACK RESPONSE HAS RECEIVED IH RESPONSE 
TO THE ENQ WHICH PRECEEDS THE TEST MESSAGES. THE PROGRAM HILL 
RE-TRANSMIT THE ENQ. 



E161D OORR AAAA 



NAK MAS RECEIVED IN RESPONSE TO A TEST MESSAGE. THIS ERROR MILL 
BE LOGGED IN THE END OF TEST MESSAGE AND THE NEXT TEST MESSAGE 
HILL BE TRANSMITTED. 



E161E OQRR AAAA 



A RECEIVE TIMEOUT OCCURED AFTER TRANSMITTING A TEST MESSAGE. 
THIS ERROR MILL BE LOGGED IN THE END OF TEST MESSAGE AND THE 
NEXT TEST MESSAGE HILL BE TRANSMITTED. 



Ei620 OORR AAAA 



AN INVALID RESPONSE INOT ACK.NAK OR WACKl RECEIVED IN RESPONSE TO 
A TEST MESSAGE- THIS ERROR HILL BE LOGGED IN THE END OF TEST 
MESSAGE AND THE NEXT TEST MESSAGE TRANSMITTED. 



E1621 OORR AAAA 



NO ENQ HAS RECEIVED PRECEEDING THE TEST MESSAGES. 
HILL REQUEST A RE-TRANSMISSION OF THE ENQ. 



THE PROGRAM 



E1622 OORR AAAA 



A RECEIVE TIMEOUT OCCURED MHILE RECEIVING A TEST MESSAGE. 
THIS ERROR WILL BE LOGGED IN THE END OF TEST MESSAGE- 



E1623 OORR AAAA 



THE TEST MESSAGE RECEIVED DID NOT START HITH A VALID START 

OF TEXT CHARACTER ISOH, STX, OR OLE STX). THE PROGRAM HILL LOG 

THIS ERROR IN THE END OF TEST MESSAGE. 



E1624 OORR AAAA 



THE TEST MESSAGE HAS RECEIVED HITH A BCC OR FORMAT ERROR. THE 
PROGRAM WILL TRANSMIT NAK AND LOG THE ERROR IN THE END OF TEST 
MESSAGE. (SEE E160F FOR DEFINITION OF FORMAT ERROR). 



E1625 OORR AAAA 



NO EOT HAS RECEIVED FOLLOHING THE TEST MESSAGES. 
HILL IGNORE THIS ERROR. 



THE PROGRAM 



4.3 TEXT PRINTOUT 

IF FUNCTION 2 SWITCH 12 IS TURNED ON ALL TEXT AND CONTROL CHARACTERS 
WHICH ARE TRANSMITTED OR RECEIVED BY THE PROGRAM HILL BE PRINTED AT 
THE COMPLETION OF THE TEST. 

IF FUNCTION 2 SWITCH 12 IS OFF BUT SWITCH 13 IS ON. ONLY THOSE 
MESSAGES OR CONTROL SEQUENCES WHICH WHERE RECEIVED WITH AN ERROR 
INDICATION HILL BE PRINTED OUT. 

ALL EBCDIC CHARACTERS WILL BE PRINTED IN HEXADECIMAL FORM. 
IN ADDITION TO THE HEX PRINTOUT, 5 ALPHA MESSAGES NAY ALSO BE 
PRINTED. 

1. XNIT....THIS IS PRINTED AT THE START OF DATA TRANSMITTED. 

2. RECV....THIS IS PRINTED AT THE -START OF DATA RECEIVED. 

3. TIMEOUT. THIS PRINTED AT THE END OF DATA RECEIVED AND INDICATES 

THAT A RECEIVE TIMEOUT OCCURED. 

4. ERR THIS IS PRINTED AT THE END OF DATA RECEIVED AND 

INDICATES THAT THE DATA RECEIVED WAS NOT AS EXPECTED. 

5. CORE.. ..THIS INDICATES THAT STORAGE OF DATA TRANSMITTED AND 

RECEIVED EXCEEDED AVAILABLE CORE STORASE AND NO FURTHER 
DATA COULD BE STORED. 

THE SCA HARDWARE AUTOMATICALLY REMOVES ALL SYNCifilONDUS IDLE 
CHARACTERS WHICH ARE RECEIVED PRECEEDING EACH MESSAGE. FOR THIS 
REASON RECEIVE PRINTOUTS WILL SHOW NO LEADING SYN CHARACTERS. 

THE SCA HAROHARO AUTOMATICALLY INSERTS TWO SYN CHARACTERS PRECEEDING 
EACH TRANSMISSION AND THE PROGRAM INSERTS FOUR. FOR THIS REASON 
TRANSMIT PRINTOUTS WILL SHOW FOUR LEADING SYN CHARACTERS. 

THE FOLLOWING IS A LIST OF POINTS TO CHECK IN THE TEXT PRINT MHICH 
MAY BE USEFUL IN DETERMINING THE CAUSE OF AN ERROR. 

1. SOH (01001 MUST NOT APPEAR IN HEADING OR NORMAL TEXT (FORMAT ERRI 

2. STX (0200 J MUST NOT APPEAR IN NORMAL TEXT (FORMAT ERROR I 

3. HEADING OR NORMAL TEXT MUST END WITH ETX (03001 OR ETB (26001 
FOLLOWED BY THE TWO BLOCK CHECK CHARACTERS. 

4. SOH (0100) INDICATES THE START OF HEADING TEXT. 

5. STX (02001 INDICATES THE START OF NORMAL TEXT (THIS MAY 
APPEAR IMMEDIATELY FOLLOWING HEADING TEXT!. 

6. OLE STX (1000 0200» INDICATES THE START OF TRANSPARENT TEXT 
(THIS NAY APPEAR IMMEDIATELY FOLLOWING HEADING TEXT}. 

7. OLE (10001 MUST NOT APPEAR IN TRANSPARENT TEXT FOLLOWED BY 
ANY CHARACTER OTHER THAN SYN (3200), OLE (1000), ETB (2600), 
ETX (0300), OR ITS (IFOO). 

8. TRANSPARENT TEXT MUST END WITH OLE ETB (1000 2600) OR OLE ETX 
(1000 0300) FOLLOWED BY THE TWO BLOCK CHECK CHARACTERES. 

9- SYN INSERTION — THE SYNCHRONOUS IDLE SEQUENCE MUST BE TRANSMITTED 
AT INTERVALS BY A TERMINAL TRANSMITTING LONG MESSAGES TO ENSURE 
THAT THE TERMINALS MAINTAIN CHARACTER SYNCHRONIZATION. THE 
SYNCHRONOUS IDLE SEQUENCE IS SYN SYN (3200 3200) FOR HEADING AND 
NORMAL TEXT AND OLE SYN (1000 3200) FOR TRANSPARENT TEXT. THE 
RATE OF INSERTION SHOULD BE NOMINALLY EVERY ONE SECOND FOR 
NORMAL TEXT AND EVERY 85 CHARACTERS FOR TRANSPARENT TEXT. 
THIS RATE HILL VARY HITH THE SETTING OF THE TRANSMIT TIMER FOR 
NORMAL TEXT AND THE PROGRAM TIMER FOR TRANSPARENT TEXT. 
THE 1130 TRANSMIT TIMER IS NORMALLY SET FOR 1.25 SECONDS AND 
THE PROGRAM TIMER FOR .35 SECONDS. 

10. OLE (1000) MUST BE INSERTED FOLLOHING EACH OLE CHARACTER n 
HHICH IS TRANSMITTED AS DATA IN TRANSPARENT TEXT. 
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5. COMMENTS 



5.1 PROGRAM PHILOSOPHY 

EACH TEST PERFORMED BY THE 1130 TRANSMIT/RECEIVE BSC PROGRAM CAN 
BE DIVIDED INTO TWO SEPARATE TEST PHASES. IN THE FIRST PHASE ONE OF 
THE TERMINALS TRANSMITS A REQUEST-FOR-TEST IRFTI MESSAGE TO REQUEST 
THAT A TEST PROCEDURE BE PERFORMED. THE RFT MESSAGE CONTAINS VARIOUS 
PARAMETERS WHICH DEFINE THE ACTION TO BE PERFORMED AND TEXT TO BE 
USED DURING THE TEST.. DURING THIS PHASE NORMAL BSC ERROR RECOVERY 
IS PERFORMED ON THE RFT MESSAGE. THE SECOND PHASE IS THE ACTUAL 
PERFORMANCE OF THE TEST AS DEFINED BY THE RFT MESSAGE. IF THE X 
FIELD IN THE RFT MESSAGE WAS 00 THEN THE RFT TRANSMITTOR ITHE 
REQUESTING TERMINAL) HILL TRANSMIT V TEST MESSAGES. IF X HAS OTHER 
THAN 00 THEN THE RFT RECEIVER HILL TRANSMIT Y TEST MESSAGES. AND 
THE TEXT CONTAINED IN THE TEST MESSAGE HILL BE DETERMINED BY THE 
X VALUE. NO ERROR RECOVERY MILL BE PERFORMED ON TEST MESSAGES. 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
SCA TRANSMIT/RECEIVE POINT-TO-POINT 8K 

5.1.2 TEST MESSAGES 

THE FOLLOWING TEST MESSAGES ARE USED BY THIS PROGRAM 

02-EBCOIC TRANSPARENT TEXT 

S TEXT DEB 
L T 256 CHARACTERS L T C 
E X THROUGH 255 E X C 

04-EeCDlC NORMAL TEXT 

S SS TEXT SAME AS 02 EXCEPT E B 
T YY CONTROL CHARACTERS ARE T C 
X NN OMITTED 245 CHARACTERS X C 

12-EBCOIC mRMAL TEXT 12780 PRINTER} 

S E TEXT E B 
T S / 36 CHARACTERS T C 
X C A-Z AND 0-9 X C 



PART NO. 2243979 
PAGE IDA 



5.1.1 REQUEST-FOR-TEST MESSAGES 

THE REQUEST FOR TEST MESSAGE HAS THE FORMAT.. 



< X Y N 



ADS DEB NOTE.. THE TEXT IS INCLUDED ONLY IF 
D L T TEXT L T C X=01, AND THE OLE CHARACTERS 

REX E X C ARE INCLUDED ONLY IF TRANSPARENT 

TEXT IS USED. 



WHERE. 



SOHX IDENTIFIES THE MESSAGE AS AN RFT MESSAGE 

X IS A FIELD OF TWO NUMERIC CHARACTERS (00-99) WHICH DEFINES THE 
ACTION TO BE PERFORMED DURING THE TEST AND/OR SPECIFIES THE 
TEST MESSAGE TO BE USED DURING THE TEST. 

IF X*00 THEN THE RFT TRANSMITTER HILL TRANSMIT THE TEST MESSAGES. 

IF X^Ol THEN THE RFT RECEIVER HILL TRANSMIT TEST MESSAGES 
CONTAINING THE TEXT RECEIVED IN THE RFT MESSAGE. 

IF X»02-98 THE RFT RECEIVER HILL TRANSMIT THE TEST MESSAGE SPECIFIED 
BY THE X VALUE. 

IF X=99 THE RFT RECEIVER HILL DELAY A MAXIMUM OF 1 MINUTE BEFORE 
RECEIVING TEXT FROM THE DATA TERMINAL (2770/2780) 

Y IS A FIELD OF TWO NUMERIC CHARACTERS (00-99) WHICH SPECIFIES THE 
NUMBER OF TEST MESSAGES TO BE TRANSMITTED. 

THE N AND ADR FIELDS ARE USED FOR COMPONENT SELECTION IN A P-T-P 
CONFIGURATION. IF THE N FIELD IS NOT ZERO. THE COMPONENT SELECT 
CHARACTERS IN THE ADR FIELD WILL BE INSERTED IN PLACE OF THE SYN/SYN 
FOLLOWING THE STX FOR NON-TRANSPARENT MESSAGES (04.14.15.16) 



13-EBCOIC NORMAL TEST (2780 PUNCH) 

S E TEXT E B 
T S 4 36 CHARACTERS T C 
X C A-Z AND 0-9 X C 

14-EBCOIC NORMAL TEXT 

S SS TEXT E B 
T YY 36 CHARACTERS T C 
X NN A-Z AND 0-9 X C 

IS-EBCDIC NORMAL TEXT 

S SS TEXT E B 

T YY 74 CHARACTERS HEX 00 T C 
X NN 6 CHARACTERS SYN X C 

16-EBCOIC NORMAL TEXT 

S SS TEXT E B 

T YY 40 CHARACTERS HEX AA T C 
X NN 40 CHARACTERS HEX 55 X C 

19-EBCOIC TRANSPARENT TEXT 



D S TEXT 

L T 280 CHARACTERS HEX 00 

EX 10 CHARACTERS SYN 

20-EBC0IC TRANSPARENT TEXT 

OS TEXT DEB 
LT 80 CHARACTERS LTC 
EX U-Z,0-9.HEX 00-3F EXC 



DEB 
LTC 
EXC 



21-E6CDIC TRANSPARENT TEXT 



22-EBCDIC TRANSPARENT TEXT 



DS TEXT DEB 
LT 120 CHARACTERS LTC 
EX A-Z, 0-9. HEX 00-53 EXC 



DS TEXT DEB 
LT 144 CHARACTERS LTC 
EX A-Z, 0-9, HEX 00-6B EXC 
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5.1.3 LINE CONTROL 



5.2 



ROUTINE DESCRIPTIONS {REFER TO SECTION 3.2.2 TABLE FOR DETAIL* 



THE FOLLOWING LINE CONTROL CHARTS SHOW THE NORMAL SEQUENCE OF CONTROL 
AND TEXT CHARACTERS TRANSMITTED BY EACH TERMINAL UNDER VARIOUS 
TEST CONDITIONS. THE EXAMPLES ALL ASSUME A Y VALUE OF ONE. THE OLE 
CHARACTERS ARE OMITTED FOR NON-TRANSPARENT TEXT- THE ACKO AND ACKl 
SHOWN IN THE CHARTS REPRESENT THE COMPLETE POSITIVE ACKNOWLEDGEMENT 
SEQUENCES. ACK 0/1 OR NAK RESPONSES TO TEXT MAY BE PRECEDED BY UP 
TO SEVEN LEADING GRAPHIC CHARACTERS. THESE CHARACTERS WILL BE 
PRINTED IN THE TEXT PRINTOUT BUT MILL OTHERWISE BE IGNORED BY THE 
PROGRAM. 



17J 



FOR X=00 

RFT 
XMITTER 
IRTNS 1- 

RFT 
RECEIVER 
(ftTN 181 



FOR X=01 

RFT 
XMITTER 
(RTNS 1-17J 

RFT 
RECEIVER 
(RTN 18) 



FOR X=02-98 

RFT 
XMITTER 
(RTNS 1-17) 

RFT 

RECEIVER 
(RTN 18) 

FOR X=99 

RFT 
XMITTER 
(2780) 

RFT 
RECEIVER 
(RTN 18) 



S A S E 

O? X Y N D T T 
H R X X 



D S D E 

L T TEXT L T 
EX EX 



E 
O 

T 



A 

CO 

K 



E 
N 
Q 



S 

0% 
H 



A 

CI 

K 



ADS D E 

X Y N D L T TEXT L T 

REX EX 



A 

CO 

K 



E 
N 
Q 



S 

0% 

H 



A S E 

X Y N D T T 

R X X 



A 

CO 

K 



A 

CI 

K 



E S (D) S (D) E 

N OS99YY0 (L) T ID T 
Q H (E) X (E) X 

A 

CO 

K 



A 

CO 

K 



E A 






A 


CO 






CI 


T K 






K 


A E 


D S 




E E 


CI N 


L T 


TEXT 


L T 


K Q 


E X 




EX T 



E A 
CO 
T K 

E 

N 
Q 



A 
CI 

K 



D S 
L T 
E X 



D 

TEXT L 

E 



E 


T 



E 
0- 

T 



OPERATOR 



INTERVENTION 



E 

-N 
Q 



D S D E 
L T TEXT L T 
EX EX 



E 


T 



A (30 SECOND ) 
CI (MINIMUM TIME ) 
K (DELAY ) 



A 
CO 

K 



A 
CI 

K 



ROUTINES 01-0B(MEXI.. TRANSMIT AN RFT MESSAGE WITH X=00 AND THEN TRANSMITS 

TEST MESSAGE 102-22) Y TIMES. 

ROUTINES 0C-16(HEX).. TRANSMIT AN RFT MESSAGE WITH X= 102-22), THEN RECEIVES 

TEST MESSAGE (02-22) Y TIMES 

RTN17..IS EXECUTED ONLY IF SELECTED BY FUNCTION 1. THIS ROUTINE NORMALLY 

WILL TRANSMIT AN RFT WITH X=00 AND THEN TRANSMIT A SCOPING PATTERN OF 
80 HEX AA CHARACTERS Y TIMES. THIS RTN HAS ASSOCIATED WITH IT A 52 
WORD TABLE IN CORE STORAGE WHICH MAY BE ALTERED TO PROVIDE RFT 
MESSAGES AND TEST MESSAGES WHICH ARE NOT PROVIDED BY ROUTINES 1-16. 
THIS TABLE IS ALTERED BY PROGRAM PATCH CARD (SEE DM DESCRIPTION). 
THE FIRST WORD OF THE TABLE CONTAINS THE X VALUE TO BE USED IN THE 
RFT MESSAGE TRANSMITTED BY ROUTINE 17. THIS VALUE IS ENTERED IN 
HEXADECIMAL FORM. THE SECOND WORD OF THE TABLE 

CONTAINS (IN HEX) THE COUNT OF ALL CHARACTERS INCLUDING CONTROL 
CHARACTERS IN THE TEXT PORTION OF THE TABLE. THE LAST 50 WORDS IM 
THE TABLE CONTAIN THE TEXT WHICH WILL BE USED IN THE TEST MESSAGES 
IF X=00 IS ENTERED, OR IN THE RFT MESSAGE IF X=01 IS ENTERED. IF 
ANY CONTROL CHARACTERS ARE TO BE USED IN THE TEXT OR IF LONG 
REPEATATIVE PATTERNS ARE USED THE TEXT MUST BE TRANSPARENT AND BEGIN 
WITH OLE STX AND END WITH OLE ETX. IF NORMAL TEXT IS USED IT MUST 
BEGIN WITH STX AND END WITH ETX. THE PROGRAM HILL SUPPLY ALL OTHER 
NECESSARY CONTROL CHARACTERS- THE STARTING ADDRESS OF THE TABLE 
IS 05E8. SEE SECTION 5.2.1 FOR SAMPLE PATCH CAROS- 

***WARNING*** ALTERATION OF TABLE WILL ALSO AFFECT OPERATION OF ROUTINE 18- 
SEE RTN 18 OESCRIPTION- 

RTN18. ROUTINE 18 IS THE RFT RECEIVER ROUTINE. THIS ROUTINE WILL, WHEN 

SELECTED, CONTINUOUSLY MONITOR THE COMMUNICATIONS LINE UNTIL AN RFT 
MESSAGE IS RECEIVED. IF THE X VALUE IN THE RFT RECEIVED MAS 00 THIS 
ROUTINE MILL THEN ACCEPT Y TEST MESSAGES FROM THE REMOTE TERMINAL. 
IF THE X VALUE WAS 01 THIS ROUTINE WILL TRANSMIT Y TEST MESSAGES 
CONTAINING THE TEXT RECEIVED IN THE RFT MESSAGE. IF THE X VALUE 
WAS 02 THRU 22 THIS ROUTINE HILL TRANSMIT THE TEST MESSAGE 
SPECIFIED Y TIMES. THIS ROUTINE HAS ASSOCIATED WITH IT A 52 WORD 
TABLE IN CORE STORAGE WHICH MAY BE ALTERED BY PROGRAM PATCH CARD TO 
ALLOW SERVICING OF RFT MESSAGES NOT NORMALLY ACCEPTED BY THE PROGRAM. 
THIS IS THE SAME TABLE WHICH IS USED BY ROUTINE 17 (SEE RTN 17 FOR 
TABLE DESCRIPTION). IF AN RFT MESSAGE IS RECEIVED MHICH CONTAINS 
AN X VALUE WHICH IS EQUAL TO THE X VALUE ENTERED IN THE FIRST WORD 
OF THE TABLE THEN THIS ROUTINE HILL TRANSMIT Y TEST MESSAGES 
CONTAINING THE TEXT ENTERED IN THE TABLE. WITH NO PATCH CARDS 
INSERTED THE TABLE CONTAINS AN X VALUE OF 00 AND A SCOPING PATTERN 
OF 80 HEX AA CHARACTERS. 
SEE SECTION 5-2.1 FOR SAMPLE PATCH CARDS- 

***HARNING*** ALTERATION OF TABLE MILL ALSO AFFECT OPERATION OF ROUTINE 17 
SEE ROUTINE 17 DESCRIPTION. 



ROUTINE 18 IS ALSO USED TO RESPOND TO A SPECIAL LINE CONTROL SEQUENCE 
(X=99) WHEN RECEIVING TRANSPARENT TEXT FROM A TERMINAL SUCH AS A 
2780. ROUTINE 18 WILL RECOGNIZE AND RESPOND TO THE X=99 RFT- 
(REFER TO SECTION 5.1.3 FOR THE X=99 LINE SEQUENCE FORMAT) 
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5.2.1 DATA PATTERN TABLE IPATCH CARDS} 

THE DATA PATTERN TABLE AT LOCATION 05E8 CAN BE MODIFIED TO PROVIDE 
DATA PATTERNS NOT FOUND IN X VALUES 02.04,12,13,14,15,16,19,20,21 AND 
22. THE TABLE IS 52 WORDS IN LENGTH AND MILL AFFECT THE OPERATION OF 
ROUTINES 17 AND 18 I SEE ROUTINE DESCRIPTIONS FOR RTNS 17 AND IBJ. 

PUNCH ALL PATCH CARDS STARTING IN COLUMN 1. THE E INDICATES A 
12 PUNCH IN COLUMN 1. PATCH CARDS MUST BE PLACED AHEAD OF THE 
LAST CARD IN THE PROGRAM DECK. 

THE FOLLOWING IS A SAMPLE PATCH CARD INPUT TO THE DATA PATTERN TABLE FOR A 
TRANSPARENT MESSAGE. 

e05E8 OOXX 0064 1002 zzzz zzzz zzzz zzzz zzzz zzzz zzzz zzzz zzzz zzzz zzzz 
£05F6 ZZZZ ZZZZ ZZZZ ZZZZ iiii iiii ZZZZ ZZZZ ZZZZ ZZZZ iiii ZZZZ ZZZZ zzzz 
£0604 ZZZZ ZZZZ ZZZZ ZZZZ ZZZZ ziii ZZZZ ZZZZ zzzz zzzz zzzz zzzz zzzz zzzz 

60612 zzzz zzzz ZZZZ ZZZZ ZZZZ ZZZZ ZZZZ ZZZZ zzzz 1003 

XX= ANY X VALUE OTHER THAN 02,04,12,13.14.15,16,19,20,21 OR 22 
ZZZZ= ANY HEX VALUE 

TO CAUSE RTN 17 TO TRANSMIT AN RFT WITH X=01 AND RECEIVE TEST MESSAGES 
CONTAINING A SCOPING PATTERN OF 80 HEX AA CHARACTERS. 

&05E8 0001 



6. APPENDIX 

6.1 BINARY SYNCHRONOUS COMMUNICATIONS CONTROL CHARACTERS 



BSC 
CHARACTER 




MEANING 



. SYNCHRONOUS IDLE 

I DATA LINK ESCAPE 

'. ENQUIRY 

I START OF HEADING 

'. START OF TEXT • 

. END OF BLOCK 

'. END OF TEXT 

! INTERMEDIATE BLOCK CHARACTER 

I END OF TRANSMISSION 

'. NEGATIVE ACKNOWLEDGEMENT 

', POSITIVE ACKNCWLEDGEMENT, EVEN RECORD (CONTROL 
. CHARACTER ONLY IF IN CONTROL SEQUENCE—SEE 6.21 

I POSITIVE ACKNOWLEDGEMENT, ODD RECORD I CONTROL 
. CHARACTER ONLY IF IN CONTROL SEQUENCE— SEE 6.2J 

I REVERSE INTERRUPT ICONTROL CHARACTER ONLY IF 
.IN CONTROL SEQUENCE — SEE 6.21 

6B I WAIT BEFORE TRANSMIT-POSITIVE ACK (CONTROL 

. CHARACTER ONLY IF IN CONTROL SEQUENCE—SEE 6.21 
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6.2 



BINARY SYNCHRONOUS COMMUNICATIONS CONTROL SEQUENCES 



BSC 
SEQUENCE 



FUNCTION 



SYN SYN . SYNCHRONOUS IDLE NORMAL 

OLE SYN . SYNCHRONOUS IDLE TRANSPARENT TEXT 

ENQ . ENQUIRY 

SOH . START OF HEADING 

STX . START OF NORMAL TEXT 

OLE STX . START OF TRANSPARENT TEXT 

ETB BCC . END OF HEADING OR NORMAL TEXT BLOCK 

1TB BCC . END OF HEADING OR NORMAL TEXT INTERMEDIATE BLOCK 

m 

ETX BCC . END OF HEADING OR NORMAL TEXT 
OLE ETB BCC. END OF TRANSPARENT TEXT BLOCK 
OLE ITB BCC- END OF TRANSPARENT TEXT INTERMEDIATE BLOCK 
OLE ETX BCC. END OF TRANSPARENT TEXT 

OLE ACKO . POSITIVE ACKNOWLEDGEMENT EVEN RECORD 

OLE ACKl . POSITIVE ACKNOWLEDGEMENT ODD RECORD 

OLE RVI . REVERSE INTERRUPT 

STX ENQ . TEMPORARY TEXT DELAY ITTOI 
NAK . NEGATIVE ACKNOWLEDGEMENT 

EOT . END OF TRANSMISSION 

OLE EOT . DISCONNECT SIGNAL 

OLE WACK . POSITIVE ACKNOWLEDGEMENT BUSY RESPONSE 
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0160 n 

0161 
016? 

0163 

0164 



0165 

0166 

0167 

0168 



017A 





018A 





019A 





OlAA 





0!8A 





OIBB 





OIRC 





OIRO 





0000 


C 


05DC 





OSDC 





0316 


0500 





0000 


05nE 





00 00 


C5nF 


n 


0000 


05E0 


(^ 


0000 


05F1 





noon 


05F2 


c 


0001 


05E3 


1 


062A 


05F4 


1 


062a 


05F5 





0000 


05F6 





0000 


OSF? 





FFFF 



* FOUATE TABLE 

* THIS TABLF EQUATES TEST PROGRAM LABELS 

* TO THFIR FOUIVALFNT DIAGNOSTIC MONITOR 

* ADDRFSSES. 
* 

* 

* MONITOR ENTRY ADDRESSES 



BEGIN 

START 

ERROR 

LOG 

END 

* 

* 



EOU /0160 BEGIN ROUTINE 

EQU BFGINEl SUPERVISOR ROUTINE 

EQU STARTEl ERROR LOG ROUTINE 

EOU FRRORtl STATUS LOG ROUTINE 

EOU LOGCl END ROUTINE 



MONITOR CONTROL WORD AODRESSFS 



RTNSW EOU 
ERLCK EOU 
LOGBY EOU 
RLCF EOU 

« 



FNDSl ROUTINE START SW 

ENDS2 LOCK ON ERROR CONTROL 

END&3 I/O BUSY SW ADDRS 

FNDS4 RELOCATION FACTOR ADORS 



« 

ILO 

ILl 

IL2 

IL3 

IL4 

RQTY 

ROKB 

SVKB 

* 

S EOU 
ORG 



INTERRUPT TRANSFER VECTOR ADDRESSES 



EQU 
EOU 
EOU 
EOU 
EQU 
EQU 
EQU 
EOU 



/017A INTERRUPT LEVEL ZERO 

IL0ei6 INTERRUPT LEVEL ONE 

ILltl6 INTERRUPT LEVEL TWO 

IL2616 INTERRUPT LFVEL THREE 

IL3E,16 INTERRUPT LEVEL FOUR 

IL4S1 CONSOLE PRINTER REQUEST 

RQTYEl USE KEYBOARD REQUEST 

ROKBei KB SERVICE REQUEST 



/OOOO 

*e/05DC 



* 
* 

* 
PIP 

RID 
RAO 
SWO 
SWl 
SW2 
SK3 



THE MONITOR USES CORE LOCATIONS 0-05DC. 
FOR CONTENTS OF THESE ADDRFSSES REFER 
TO THE DIAGNOSTIC MONITOR LISTING. 



PROGRAM CONTROL TABLF 



MLS 



* 
* 
* 



DC /0316 PROGRAM ID 

DC *-* ROUTINE ID 

OC «-* ROUTINE ADDRESS 

OC *-* PROGRAM CONTROL 

DC *-* ROUTINE SELECTION 

r>C *-* OPFRATING OPTIONS 

OC /OOOl Y VALUF FOR RFT 

OC STRT LOOP ADDRESS 

DC STRT RESTART ADDRESS 

CF DC *-* MONITOR ENTRY ONE 

OC *-* MONITOR ENTRY TWO 

DC /FFFF TERMINATOR 

TEST MESSAGE TFXT 

****** ***»«*«««:*4:^t(;*4:4:4:*4:**;«*«:<t*#«***;(t«** 

THIS TABLF DEFINES THE X VALUP TO BE 
USED IN THE RFT MESSAGE WHICH IS 
TRAMSMITTFD BY TEST ROUTINF 7. 



31600020 

31500030 

31600040 

31600050 

31600060 

31600070 

31600080 

31600090 

31600100 

31600110 

31600120 

31600130 

31600140 

316001'iO 

31600160 

31600170 

31600180 

31600190 

31600200 

31600210 

31600220 

31600230 

31600240 

31600250 

31600260 

31600270 

31600280 

31600290 

31600300 

31600310 

31600320 

31600330 

31600340 

31600350 

31600360 

31600370 

31600380 

31600390 

31600400 

31600410 

31600420 

31600430 

31600440 

31600450 

31600460 

31600470 

31600480 

31600490 

31600500 

31600510 

31600520 

31600530 

31600540 

31600550 

31600560 

31600570 

31600580 

31600590 

31600600 

31600610 

31600620 

31600630 

31600640 

31600650 

31600660 

31600670 

31600680 

31600690 





* IF 


THIS RFT MSG 


IS RECEIVED 


BY TEST 


31600700 




* ROUTINF 8, THE 


TEST MESSAGF 


" CONTAINED 


31600710 




* IN 


THIS TABLE WILL BF TRANSMITTED. 


31600720 




* 

* 










31600730 














31600740 


05E8 0000 


XSPFC DC 




/OOOO 


X=00 




31600750 


05F9 0054 


DC 




/0054 


CHARACTER 


: COUNT 


31600760 


05EA 1002 


DC 




/1002 






31600770 


05EB AAAA 


DC 




/AAAA 






31600780 


05EC AAAA 


DC 




/AAAA 






31600790 


05ED AAAA 


OC 




/AAAA 






31600800 


05EE AAAA 


nc 




/AAAA 






31600810 


05EF AAAA 


DC 




/AAAA 






31600820 


05F0 AAAA 


DC 




/AAAA 






31600830 


05F1 AAAA 


DC 




/AAAA 






31600840 


n5F2 AAAA 


DC 




/AAAA 






31600850 


05F3 AAAA 


OC 




/AAAA 






31600860 


05F4 AAAA 


OC 




/AAAA 






31600870 


05F5 AAAA 


OC 




/AAAA 






31600880 


05F6 AAAA 


OC 




/AAAA 






31600890 


05F7 AAAA 


OC 




/AAAA 






31600900 


05F8 AAAA 


DC 




/AAAA 






31600910 


05F9 AAAA 


DC 




/AAAA 






31600920 


05FA AAAA 


DC 




/AAAA 






31600930 


05FB AAAA 


DC 




/AAAA 






31600940 


05FC AAAA 


DC 




/AAAA 






31600950 


05FD AAAA 


OC 




/AAAA 






31600960 


05FE AAAA 


DC 




/AAAA 






31600970 


05FF AAAA 


DC 




/AAAA 






31600980 


0600 AAAA 


DC 




/AAAA 






31600990 


0601 AAAA 


OC 




/AAAA 






31601000 


0602 AAAA 


DC 




/AAAA 






31601010 


0603 AAAA 


. DC 




/AAAA 






31601020 


0604 AAAA 


OC 




/AAAA 






31601030 


0605 AAAA 


DC 




/AAAA 






31601040 


0606 AAAA 


DC 




/AAAA 






31601050 


0607 AAAA 


DC 




/AAAA 






31601060 


0608 AAAA 


OC 




/AAAA 






31601070 


0609 AAAA 


DC 




/AAAA 






31601080 


060A AAAA 


DC 




/AAAA 






31601090 


0608 AAAA 


DC 




/AAAA 






31601100 


060C AAAA 


DC 




/AAAA 






31601110 


060D AAAA 


OC 




/AAAA 






31601120 


060E AAAA 


OC 




/AAAA 






31601130 


060F AAAA 


DC 




/AAAA 






31601140 


0610 AAAA 


DC 




/AAAA 






31601150 


0611 AAAA 


OC 




/AAAA 






31601160 


0612 AAAA 


DC 




/AAAA 






31601170 


0613 1003 


DC 




/1 00 3 






31601180 


0614 0C08 


BSS 




8 






31601190 


061C FFFF 


DIAL DC 




/FFFF 


DIAL-UP SWITCH 


31601200 


0610 0010 


IDRSP OC 




16 


CHARACTER 


COUNT FOR ID 


31601?10 


06 1 F 000 8 


EBC 




-1130BSCAPTPOIAG. 




31601220 


0626 7000 


DC 

* 




/7000 






31601230 
31601240 




♦*«**«*******************^****^^^^^^^^^^^^^^ 


31601250 




* 




INITIALIZE AND START 




31601260 




************************* ******^^^^^^^^^^^^^ 


31601270 




* 










31601280 


062 7 4480 0160 


BGIN BSI 


I 


BEGIN 






31601290 


062 9 1 05DC 


DC 




Pin 


PCT ADDRESS 


31601300 




♦ 










31601310 


062A 1 6700 0E33 


STRT LOX 


L3 


INT 






31601320 


062C 6FC0 01 R9 


STX 


L3 


ILl-l 






31601330 


062F 6300 


LDX 


3 





SET TO START AT 


31601340 


062F 6BAD 


STX 


3 


RIO 


ROUTINE ONE 


31601350 


0630 1 6F0O 13R8 


STX 


L3 


RTBSY 


RESET INT 


RTN BUSY INO 


31501360 


0632 1 6F00 1187 


STX 


L3 


$BSY 


CLEAR BSY 


SWITCH 


31601370 
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0634 1 6F00 1128 



0636 C480 0167 
0638 '^818 
063P 7006 

063A 1 6700 0636 
063C 1 6F00 05E5 
063F 4480 0161 

0640 0813 

0641 1004 

0642 4828 

0643 70F2 

0644 6C80 0167 
0646 1 6700 0657 
0648 6F00 OIBB 
064A 6700 OFOO 

064C 0805 



064D 





73FF 


064 E 





70FE 


064F 





6B04 


0650 





70E5 


0652 




0000 


0652 


1 


0656 


0653 





0900 


0654 





0004 


0655 





OFOl 


0656 





0900 



0657 0000 

0658 08FB 







0659 
065A 



1010 

D480 0167 
065C 1 4C40 065E 
065E C0F5 
065F 1 4C18 0664 

0661 6311 

0662 1 6F00 093A 



0664 
0666 
066 8 
066A 
066B 
0660 
066F 
0671 
06 72 
0674 
06 76 



1 C400 
1 0400 
1 0400 

lOOA 

1 D400 

6700 

1 6F00 

1005 

1 ECOO 
1 0400 
1 4C10 



13DC 
1425 
05F1 

13CB 
IFFF 
13C2 

05F0 

I3cn 

067C 



* 
ZYES 



Srx L3 $IBSY CLEAR BSY SWITCH 
CHECK FOR MEMORY SPEED 



LD I LQGBY 
BSC t- 
MDX ZOKAY 



* 
ZOKAY 



ZSHFT 
ZDSM 

ZCODE 

* 

* 
ZINT 



LDX 
STX 
BSI 

XIO 
SLA 
BSC 
MDX 
STX 
LDX 
STX 
LDX 

XIO 

MOX 
MOX 
STX 
MOX 

BSS 

DC 

DC 

DC 

DC 

DC 



DC 

XIO 

SLA 

STO 

BOSC 

LD 

BSC 

LDX 

STX 



L3 ZYFS 
L3 MLSCF 
I START 

ZOSH 
4 

ez 

ZYES 
I LOGBY 
L3 ZINT 
L3 RQTY 
L3 /OFOO 

ZSHFT 

3 -1 

*-2 
3 ZOSW 
ZYES 

E 

ZCODE 
/0900 
/0004 
/OFOl 
/0900 



GET TYPEWRITER USER SW 
IS TYPEWRITER IN USE 

* NO 

GET MLSCF ENTER AND GO 

* TO MONITOR 



SENSE TYPEWRITER OSH 

IS TYPEWRITFR BUSY 

* YES 

SET USER SWITCH 

GET INTR RTN ADRS AND 

♦ SET IN MONITOR 
GET TIME CONSTANT 

SHIFT RIBBON FOR TIMING 

REDUCE COUNT 

* 

SET MEMORY SW FOR 2 MIC 
GO WAIT FOR INTR 



SHIFT CODE AORS 
TYPEWRITER lOCC 
ZER/ IS 2 MIC MEMORY 
SENSE DSW lOCC 
SHIFT TO RED RIBBON 



CONSOLE INTR ROUTINE 



*-* 

ZOSW 

16 
I LOGBY 
L * 

ZOSW 
L CNTRL,*- 

3 17 
L3 XPDLl+1 



* 
***** 

* 
***** 

* 
* 

* 
*- 



INTR ENTRY 

RESET DEVICE 

CLEAR ACC AND USER 

* SWITCH 

RESET INTR LEVEL 

BR IF 2 MIC 

SET DELAY FOR 3.6 MIC 



ROUTINE SEQUENCE CONTROL 

THIS ROUTINE CHECKS PROGRAM OPTIONS 
AND CONTROLS THF SEQUENCE IN WHICH 
TEST ROUTINES ARF EXECUTED. 



0673 6318 



CNTRL LD 
STO 
LD 
SLA 
STO 
LDX 
STX 
SLA 
OR 
STO 
BSC 

* 

LDX 



L SYSYN 
L SELCT 
L SW2 

10 
L IDFLG 
L3 /IFFE 
L3 TOP 

5 
L SWl 
L npTIN 
L CNOO,- 

3 24 



INITIAL SELECT 



SAVE ID INDICATOR 

SET HIGH CORE LIMIT 
CHECK OPTION SWITCH 

SAVE RTN NO AND OPTION 
BR IF RFT XMITTER 



31601380 

31601390 

31601400 

31601410 

31601420 

31601430 

31601440 

31601450 

31601460 

31601470 

31601480 

31601490 

31601500 

31601510 

31601520 

31601530 

31601540 

31601550 

31601560 

31601570 

31601580 

31601590 

31601600 

31601610 

31601620 

31601630 

31601640 

31601650 

31601660 

31601670 

31601680 

31601690 

31601700 

31601710 

31601720 

31601730 

31601740 

31601750 

31601760 

31601770 

31601780 

31601790 

31601800 

31601810 

31601820 

31601830 

31601840 

31601850 

31601860 

31601870 

31601880 

31601890 

31601900 

31601910 

31601920 

31601930 

31601940 

31601950 

31601960 

31601970 

31601980 

31601990 

31602000 

31602010 

31602020 

316020 30 

31602040 

31602050 



0679 1 6F00 050D 
067B 7015 

067C 1 C400 05FO 
067F 1 4C08 068A 

0680 1 0400 0500 

0682 9034 

0683 1 4C08 0691 

0685 1810 

0686 1 D400 05E0 
0688 1 0400 05D0 

068A 1 7401 0500 

068C 1 C400 050D 
. 06 8E 9029 

068F 44B0 0164 

0691 1 6780 050D 
0693 1 C700 069E 
0695 1 0400 050E 
0697 D400 0165 
0699 1 6700 06CE 
069B I 6F00 05E5 
0690 4480 0161 



069F 




06FD 


06A0 




0704 


06 A 1 




070B 


06A2 




0716 


06A3 




071E 


06A4 




0725 


06A5 




0720 


06A6 




0734 


06A7 




073B 


06A8 




0743 


06A9 




074B 


06AA 




075 3 


06A8 




0755 


06AC 




0757 


06AD 




0759 


06AE 




075B 


06AF 




0750 


06B0 




075F 


06B1 




0761 


06B2 




0763 


0683 




0765 


06B4 




0767 


06B5 




0771 


0686 




077B 


06B7 





0018 


06B8 





0013 



* 
CNOO 

* 
CNIO 



* 
CN20 



* 
CN30 



STX 
MDX 

LD 
BSC 

STO 

S 

BSC 

SRA 
STO 
STO 

MOX 
LD 
S 
BSI 

LDX 

LD 

STO 

STO 

LDX 

STX 

BSI 



L3 RID 
CN30 

L SWl 

L CN20,£, 

L RIO 

RIDCK 
L CN30,£ 

16 
L SWl 
L RID 

L RIO, 61 
L RID 

RTNOM 
I END,-Z 

13 RID 
L3 RTTBL-1 
L RAD 
L RTNSW 
L3 CLEAR 
L3 MLSCF 
I START 



SELECT RTN 18 

BR IF NO RTN SELECTED 
SAVE NEW RTN NUMBER 
BR IF VALID RTN 



IF INVALID RTN 
GO TO RTN ONE 

ADVANCE TO NEXT RTN 
CHECK FDR END OF 
NORMAL SEQUENCE 
END PROGRAM 



FETCH RTN AODRS 

STORE RTN AOOR 

SET RTN START SWITCH 

SET MONITOR RETURN 
GO TO MONITOR 



ROUTINE ADDRESS TABLE 



RTTBL DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



NRTN 



DC 



06B9 0000 
06BA 1 C480 06R9 
068C 1888 
06B0 1 C400 0625 
06BF 1808 



LRTN 

* 

RIDCK 
RTNOM DC 

* 

*******4>« 

* 
* 
*******4c* 

* 

XMTID OC 
LD 
SRT 
LD 
SRA 



RTNl 

RTN2 

RTN3 

RTN4 

RTN5 

RTN6 

RTN7 

RTN8 

RTN9 

RTN A 

RTNB 

RTNC 

RTND 

RTNE 

RTNF 

RTNIO 

RTNll 

RTN12 

RTN13 

RTN14 

RTN15 

RTN16 

RTN17 

RTNl 8 



XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
XMIT RFT 
RFT RECEI 



X=00 
X=00 
X=00 
X=00 
X=00 
X=00 
X=00 
X=00 

x=oo 
x=oo 

X=0<1 

X=02 

X=04 

X=12 

X=13 

X=14 

X=15 

X=16 

X=19 

X«20 

X=21 

X=22 

SPECIAL 

VER RTN 



TM=02 
TM=04 
TM=12 
TM=13 
TM=14 
TM=15 
TM=16 
TM=19 
TM=20 
TN=21 
TM=22 



LRTN-RTTBLSl 
NRTN-RTTBLGl 

COMBINE ENQ OR ACKO WITH ID 
HEADER AND REQUEST XMRCV 
***«****#***»*^***^^^^^^^^^^^^^^^^^^ 



*-* 
I XMTID 

B 
L I0RSP4-8 

8 



ENQ OR ACKO CMD 
LAST ID HEADER CHAR 



31602060 

31602070 

31602080 

31602090 

31602100 

31602110 

31602120 

31602130 

31602140 

31602150 

31602160 

31602170 

31602180 

31602190 

31602200 

31602210 

31602220 

31602230 

31602240 

31602250 

31602260 

31602270 

31602280 

31602290 

31602300 

31602310 

31602320 

31602330 

31602340 

31602350 

31602360 

31602370 

31602380 

31602390 

31602400 

31602410 

31602420 

31602430 

31602440 

31602450 

31602460 

31602470 

31602480 

31602490 

31602500 

31602510 

31602520 

31602530 

31602540 

31602550 

31602560 

31602570 

31602580 

31602590 

31602600 

31602610 

31602620 

31602630 

31602640 

31602650 

31602660 

31602670 

31602680 

31602690 

31602700 

31602710 

31602720 

31602730 



DATE 
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06CO 





1808 




RTE 




24 


06C1 


1 


D400 


062'5 


STO 


L 


IDRSP*8 


06C3 





E3F7 




AND 


3 


HOOOl-T 


06C4 





F3eF 




FOR 


.3 


HOOll-T 


06C5 




0400 


061D 


STO 


L 


IDRSP 


06C7 




4400 


09FC 


BSI 


L 


XMRCV 


06C9 




8610 




DC 




IDRSPE/i 


06CA 




7404 


06 B 9 


MDX 


L 


XMTID,4 


06CC 




4C80 


0689 


BSC 


I 


XMTID 



COMBINE CMO WITH ID CHAR 
AND SAVE 



ENQ =16 
ACK=17 
ACKO 



OR CHAR CNT 

AND SAVE 

XMIT ENQ OR 

IDRSPE/8000 AND RECEIVE ACK OR RFT 

INCREMENT TO RETURN EXIT 

RETURN 
* 

* CLEAR END OF TEST PRINT TABLE 

XR3#C0NSTANT TABLE ADDRS 
INITIALIZE ACKO/ACKl 
CLEAR END OF 
TEST 
MESSAGE 
TABLE 



XR3=C0NSTANT TABLE ADDRS 
RESET ERROR IND 
RESET TEST MSG XMIT IND 
RESET TEST MSG RCV IND 



* WAIT FOR DATA SET READY 



06CF 


1 


6700 


1424 


CLEAR LOX 


L3 


T 


0600 


1 


4400 


0864 


BSI 


L 


INITL 


060? 





6314 




LDX 


3 


20 


0603 





1010 




SLA 




16 


06D4 


1 


D700 


142C 


STO 


L3 


TABLE-1 


06D6 





73FF 




MDX 


3 


-1 


0607 





70FC 




MDX 




*-4 


06D8 


1 


0400 


1505 


STO 


L 


ENTBL 


06DA 


1 


D400 


15D6 


STO 


L 


ENTBL^l 


06 DC 


1 


6700 


1424 


LDX 


L3 


T 


06DE 





03A6 




STO 


3 


ERRNO-T 


060F 





03A2 




STO 


3 


TMXMI-T 


06E0 





D^Al 




STO 


3 


TMRCI-T 


06E1 





C3Ae 




LO 


3 


ENAOR-T 


06E2 





D3A0 




STO 


3 


ENPNT-T 


06E3 





D39F 




STO 


3 


CNTPT-T 


06E4 





D3AC 




STO 


3 


ENPT2-T 



06E5 





C3FB 




GTRDY 


LD 


3 


H7C06-T 


06E6 





0398 






STO 


3 


WTCNT-T 


06E7 





OBBC 






XIO 


3 


ENDOP-T 


06E8 





0RC6 






XIO 


3 


STREO-T 


06E9 





OBOO 






XIO 


3 


SENSE-T 


06EA 





1808 






SRA 




8 


06EB 


1 


4C84 


05DF 


♦ 


BSC 


I 


RAD.E 


06ED 


1 


74FF 


13BC 


MDX 


L 


WTCNT,-1 


06FF 





7004 






MDX 




*+4 


06F0 





6201 






LDX 


2 


I 


06F1 


1 


4400 


0fl6E 




BSI 


L 


TYPIT 


06F3 





70F1 






MDX 




GTRDY 



06F4 1 6700 06FA 

06F6 I 6F00 05F5 

06F8 4480 0161 

06FA 1 6700 14?^ 
06FC 70FA 



O'SFD 1010 

06FE 1 4400 OB'JB 

0700 1 4400 0899 

070? C C3F5 

0703 70nD 



LDX L3 CKRDY 
STX L3 MLSCF 
BSI I START 



SET DELAY COUNTER 
END SCA OPERATION 
START READ 
SENSE SCA nSM 
GO TO SELECTED ROUTINE 
IF DATA SET READY 

OECRE COUNT BY ONE 

BR IF COUNT NOT ZERO 

XR2=MSG NUMBER 

GO PRINT MSG 

GO CK READY AGAIN 



SET MONITOR RETURN 
GO TO MONITOR 



XR3#C0NSTANT TBL ADDP 



CKRDY LDX L3 T 

MDX GTRDY&2 

* TFST ROUTINE 1 

* 

RTNl SLA 16 X VALUE 00 

BSI L GNRFT GO GENERATE RFT MSG 

BSI L XMRFT GO XMIT RFT MSG 

LD 3 H0002-T TEST MSG NO. 02 
MDX PTN3-I-6 

* 



31602740 

31602750 

31602760 

31602770 

31602780 

31602790 

31602800 

31602810 

31602820 

31602830 

31602840 

31602850 

31602860 

31602370 

31602880 

31602890 

31602900 

31602910 

31602920 

31602930 

31602940 

31602950 

31602960 

31602970 

31602980 

31602990 

31603000 

31603010 

31603020 

31603030 

31603040 

31603050 

31603060 

31603070 

31603080 

31603090 

31603100 

31603110 

31603120 

31603130 

31603140 

31603150 

31603160 

31603170 

31603180 

31603190 

31603200 

31603210 

31603220 

31603230 

31603240 

31603250 

31603260 

31603270 

31603280 

31603290 

31603300 

31603310 

31603320 

31603330 

31603340 

31603350 

31603360 

31603370 

31603380 

31603390 

31603400 

31603410 



* TEST ROUTINE 2 

* 

X VALUE 00 
GO GENERATE RFT MSG 
GO XMIT RFT MSG 
TEST MSG NO. 04 



* TEST ROUTINE 3 

* 



0704 





1010 




RTN2 


SLA 


16 


0705 


1 


4400 


0B5B 




BSI 


L GNRFT 


0707 


1 


4400 


0899 




BSI 


L XMRFT 


0709 





C3C6 






LD 


3 H0004- 


070A 





7006 






MDX 


RTN3+6 



070B 


1010 




RTN3 


SLA 




16 


070C 


I 4400 


0B5B 




BSI 


L 


GNRFT 


070E 


1 4400 


0899 




BSI 


L 


XMRFT 


0710 


C004 




* 


LD 




D12 


0711 


1 4400 


OBAE 


BSI 


L 


GNTM 


0713 


1 4C00 


08FA 




BSC 


L 


XMTMl 


0715 


OOOC 




D12 


DC 




/OOOC 



X VALUE 00 
GO GENERATE RFT MSG 
GO XMIT RFT MSG 
TEST HSG NO. 12 

GO GENERATE TEST MSG 
GO XMIT TEST MSGS 



* TEST ROUTINE 4 



0716 1010 


RTN4 


SLA 




16 


0717 1 4400 0B5B 




BSI 


L 


GNRFT 


0719 I 4400 0899 




BSI 


L 


XMRFT 


0718 COOl 




LO 




013 


071C 70F4 




NDX 




RTN3*6 


071D 0000 


013 

* 


DC 




/OOOD 



071E 1010 


RTN5 


SLA 




16 


071F 1 4400 0B5B 




BSI 


L 


GNRFT 


0721 1 4400 0899 




BSI 


L 


XMRFT 


0723 C3BC 




LO 


3 


D14-T 


0724 70EC 




MDX 




RTN3*6 



GO GENERATE RFT HS6 
GO KNIT RFT MSG 
TEST HSG NO. 13 



**•♦****************•*•*♦****•♦**«*♦*♦•♦♦*»» 

* TEST ROUTINE 5 
*******•**♦********♦♦♦*•******•***♦***•*♦»«♦ 

X VALUE 00 
GO GENERATE RFT HSG 
GO XMIT RFT MSG 
TEST HSG NO. 14 

* TEST ROUTINE 6 
********♦♦»*******♦*»**********••**♦***»*»** 

X VALUE 00 
GO GENERATE RFT MSG 
GO XMIT RFT MSG 
TEST HSG NO. 15 



* TEST ROUTINE 7 

X VALUE 00 
GO GENERATE RFT MSG 
GO XMIT RFT MSG 
TEST MSG NO. 16 

* TEST ROUTINE 8 

* 



0725 1010 


RTN6 


SLA 




16 


0726 1 4400 0B5B 




BSI 


L 


GNRFT 


0728 1 4400 0899 




BSI 


L 


XMRFT 


072A COOl 




LD 




D15 


072B 70E5 




MDX 




RTN3+I 


072C OOOF 


015 


DC 




/OOOF 



072D 


1010 


RTN7 


SLA 




16 


072E 


1 4400 0B5R 




BSI 


L 


GNRFT 


0730 


1 4400 0899 




BSI 


L 


XMRFT 


0732 


C3CF 




LO 


3 


D16-T 


0733 


70DD 




MDX 




RTN3+( 



31603420 

31603430 

31603440 

31603450 

31603460 

31603470 

31603480 

31603490 

31603500 

31603510 

31603520 

31603530 

31603540 

31603550 

31603560 

31603570 

31603580 

31603590 

31603600 

31603610 

31603620 

31603630 

31603640 

31603650 

31603660 

31603670 

31603680 

31603690 

31603700 

31603710 

31603720 

31603730 

31603740 

31603T50 

316037*0 

31603T70 

316037B0 

31603790 

31603800 

31603810 

31603820 

31603830 

31603840 

31603850 

31603860 

31603870 

31603880 

31603890 

31603900 

31603910 

31603920 

31603930 

31603940 

31603950 

31603960 

31603970 

31603980 

31603990 

31604000 

31604010 

31604020 

31604030 

31604040 

31604050 

31604060 

31604070 

31604080 

31604090 
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0734 





1010 




RTNa 


SLA 




0736 


1 


4400 


0B5B 




RSI 


L 


0737 


1 


4400 


0899 




BSI 


L 


0739 





0300 






LD 




073A 





7006 






MDX 





X VALUE 00 
GO GENERATE RET HSG 
GO XMIT RFT MSG 
TEST HSG NO. 19 



16 

GNRFT 
XMRFT 
ni9-T 
RTN3+6 

* TEST ROUTINE 9 

*******^:^ic^^**il*ill*^*-tf:(l'^^^^,*^^iti^:i^i,if7):il!::Hli:f ************ 

X VALUE 00 
GO GENERATE RFT MSG 
GO XMIT RFT MSG 
TEST MSG NO. 20 



*********************************:^**^^it,^^^^m******* 
* TEST ROUTINE A 

*****************^**^^^t:^t************************* 



073B 





1010 




RTN9 


SLA 




16 


073C 


1 


4400 


0B5B 




fiSI 


L 


GNRFT 


073E 


1 


4400 


0899 




BSI 


L 


XMRFT 


0740 





COOl 






LD 




020 


0741 





70CF 






MDX 




RTN3+6 


0742 





0014 




02 


DC 




/0014 



0743 





1010 




RTNA 


SLA 




16 


0744 


I 


4400 


0B5B 




BSI 


L 


GNRFT 


746 


1 


4400 


0899 




BSI 


L 


XMRFT 


0748 





COOl 






LD 




D21 


0749 





70C7 






MDX 




RTN3+6 


074A 





0015 




D21 


DC 




/0015 



074B 





1010 




RTNB 


SLA 




16 


074C 


1 


4400 


0B5B 




BSI 


L 


GNRFT 


074E 


1 


4400 


0899 




BSI 


L 


XMRFT 


0750 





COOl 






LD 




022 


0751 





70BF 






MDX 




RTN3+6 


0752 





0016 




D22 


DC 




/0016 



0753 C3E5 

0754 7013 



0755 C3C6 

0756 7011 



0757 COBO 

0758 700F 



0759 C0C3 
075A 7000 



0758 C3RC 
075C C 7r.0B 



0750 COCF 
075F 7009 



n75F C3CF 
0760 7007 



X VALUE 00 
GO GENERATE RFT MSG 
GO XMIT RFT MSG 
TEST MSG NO. 21 



*************************************************** 

* TEST ROUTINE B 

***********************^*^t*1m^:tt^i1^^fi^ti^l^i#^^^^^c^i^^,:^^^^:^! 

X VALUE 00 
GO GENERATE RFT MSG 
GO XMIT RFT MSG 
TEST MSG NO. 22 



**if**************^*i^^t'***************************** 

* TEST ROUTINE C 

****************************1,**:t*iti*^1^^^^^^^ti^^ititi^^i^ 

RTNC LD 3 H0002-T X VALUE 02 

MDX RTN16+I 

***-*:*****tf:***************************************** 

* TEST ROUTINE 

*****************^1f**^:^lt:********-ti*i^tt*************** 

RTND LD 3 H0004-T X VALUE 04 

MDX RTN16+1 

*************if*m*********************************** 

* TEST ROUTINE E 
*************************************************^i^ 

RTNE LD 012 X VALUE 12 
MDX RTN16+1 

*********************************i^***^*t:^iitii^*^:if***** 

* TEST ROUTINE F 

************************ti^^*^**^1f*:t:**************** 

RTNF LD D13 X VALUE 13 

MDX RTN16+1 

********l)!*****ilr**ni**ilt**:t:*************************** 

* TEST ROUTINE 10 

*************************************************** 
RTNIO LD 3 D14-T X VALUE 14 

MOX RTN16+1 

* TEST ROUTINE 11 

RTNll LD 015 X VALUE 15 

MDX RTN16+1 

* TEST ROUTINE 12 
*************************************************** 

PTN12 LD 3 D16-T X VALUE 16 

MDX RTN16+1 

if1(1(1C^i(*t(******************************************* 



31604100 
31604110 
31604120 
31604130 
31604140 
31604150 
31604160 
31604170 
31604180 
31604190 
31604200 
31604210 
31604220 
31604230 
31604240 
31604250 
31604260 
31604270 
31604280 
31604290 
31604300 
31604310 
31604320 
31604330 
31604340 
31604350 
31604360 
31604370 
31604380 
31604390 
31604400 
31604410 
31604420 
31604430 
31604440 
31604450 
31604460 
31604470 
31604480 
31604490 
31604500 
31604510 
31604520 
31604530 
31604540 
31604550 
31604560 
31604570 
31604580 
31604590 
31604600 
31604610 
31604620 
31604630 
31604640 
31604650 
31604660 
31604670 
31604680 
31604690 
31604700 
31604710 
31604720 
31604730 
31604740 
31604750 
31604760 
31604770 



0761 C3D0 
76 2 7005 



0763 CODE 

0764 7003 



0765 C0E4 

0766 7001 



* TEST ROUTINE 13 

***********1HHf*****************^*******-^*****1f*%1f-^^ 

RTN13 LD 3 019-T X VALUE 19 

MOX RTN16*1 

*************************************i^i^.■^■l^%•^■^^■l^%^■^^f^ 

* TEST ROUTINE 14 
*****l^**********1^K******^li**^e^^***^1^1^1^1^^^■^^■^i^.1^^■^■^^^il.^1^ 

RTN14 LD 020 X VALUE 20 

MDX RTN16+1 

********************************************1iit:^ifi:^tt,ti 

* TEST ROUTINE 15 
*************************************************** 

RTN15 LD 021 X VALUE 21 

MDX RTN16+1 

**********^c^i^^,*^^^*:^^m***************************** 

* TEST ROUTINE 16 
*************************************************i^* 



076 7 





COEA 




RTN16 


LD 




0768 




4400 


0B5B 




BSI 


L 


076A 




4400 


0899 




BSI 


L 


076C 




4400 


09FC 




BSI 


L 


076E 




1406 






DC 




76F 




4C00 


0946 




BSC 


L 



X VALUE 22 
GO GENERATE RFT MSG 
GO XMIT RFT MSG 
TRANSMIT EOT 



D22 
GNRFT 
XMRFT 
XMRCV 
EOTCT 

RCVTM GO RECEIVE TEST HSGS 

*************************************************** 

* TEST ROUTINE 17 

***********************************************ti**^ 

GET X VALUE 

BR IF NOT 00 

GO GENERATE RFT MSG 

GO XMIT RFT MSG 



***********************t:*************************** 

* TEST ROUTINE 18 

*************************************************** 



0771 


I 


C400 


05E8 


RTN17 


LO 


L 


XSPEC 


0773 


1 


4C20 


0768 




BSC 


L 


RTN16+1,Z 


0775 


1 


4400 


0B5B 




BSI 


L 


GNRFT 


0777 


1 


4400 


0899 




BSI 


L 


XMRFT 


0779 





1010 






SLA 




16 


077 A 





7096 






MOX 




RTN3+6 



077B 1 4400 09FC 
077D 8000 
077E C31F 
077F F3E8 
0780 1 4C20 078A 

0782 C3CA 

0783 D397 

0784 C3F0 

0785 03A8 
786 C303 

0787 1 4C2B 0810 
07P9 7009 

078A 6100 

0788 6202 
078C 1 4400 0821 
078E C303 
078F 1 4C28 06E5 
0791 1 4C00 06D2 

0793 C3A7 

0794 1 4428 06B9 

0796 1010 

0797 1 4400 09FC 
0799 1 9409 
079A C390 
079B F3F6 
079C 1 4C18 07B9 

079E 1 7400 13A9 
07A0 C 701A 



RTN18 BSI 
DC 
LD 
EOR 
BSC 

* 

LD 

STO 

LD 

STO 

LO 

BSC 

MDX 

♦ 

NOENO LDX 
LOX 
BSI 
LD 
BSC 
BSC 

* 

XMACK LD 
BSI 
SLA 

* 

BSI 

OC 

LD 

EOR 

BSC 

* 

MDX 
MDX 



XNRCV 
/8000 
RAREACl- 
ENQ-T 
NOENO. Z 

H0007-T 

RETRY-T 

D25-T 

REWAK-T 

ENQSW-T 



RECEIVE 



BR IF NOT ENQ RECEIVED 



SET RETRY=7 



SET MACK CTR = 25 
CHECK FOR X=99 MODE 

EXIT8+2,Z* BR IF X=99 NODE 

XMACK 





2 

CKRTR 

ENOSW-T 

GTRDY,Z+ 

CLEARe4 

lOFLG-T 

XMTID.ZE 

/lO 

XMRCV 

LSTAKE/8000 

BUFFR-T 

HFFFF-T 

TMOT.t- 

MDSWT 
TEXTR 



XR2=MSG NUMBER 

GO CHECK RETRY COUNT 

BR IF X=99 MODE 



10 REQUIRED FLAG 

GO XMIT ID IF REQUESTED 

ACK CMO IF NEEDED 

TRANS ACK WITHOUT ID 
AND RECEIVE RFT 



BR IF RECV TIMEOUT 

SKIP IF NO TEXT RCVD 
BR IF TEXT RECEIVED 



31604780 
31604790 
31604800 
31604810 
31604820 
31604830 
31604840 
31604850 
31604860 
31604870 
31604880 
31604890 
31604900 
31604910 
31604920 
31604930 
31604940 
31604950 
31604960 
31604970 
31604980 
31604990 
31605000 
31605O10 
31605020 
31605030 
31605040 
31605050 
31605060 
31605070 
31605080 
31605090 
31605100 
31605110 
31605120 
31605130 
31605140 
31605150 
31605160 
31605170 
31605180 
31605190 
31605200 
31605210 
31605220 
31605230 
31605240 
31605250 
31605260 
31605270 
31605280 
31605290 
31605300 
31605310 
31605320 
31605330 
31605340 
31605350 
31605360 
31605370 
31605380 
31605390 
31605400 
31605410 
31605420 
31605430 
31605440 
31605450 
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07M 





C31F 




in 


3 RARFA&l-T 


07A2 


C 


F3EB 




EOR 


3 ENQ-T 


OTftT 


1 


Afia 


07B5 


BSC 


L ENORCa- 



07AS 1 4400 087^ 



BSI 



EOTCK 



07A7 


C 6100 






LDX 


1 


/n 


07Aa 


C 6 2C3 






LDX 


2 


3 


07A'^ 


4077 






BSI 




CKRTR 


07AA 


1 4400 


09Fr 


RCENO 


BSI 


L 


XMRCV 


07AC 


8000 






no 




/8000 


07An 


C31F 






LD 


3 


RAREAEl-T 


07AE 


F3r8 






EOR 


3 


FNO-T 


07AE 


1 4C18 


0793 




BSC 


L 


XMACK,£- 



07B1 1 4400 0879 



BSI 



EOTCK 



07B3 





610F 






LDX 


1 


/E 


07B4 


c 


7 OF 3 




* 
FNQRC 


MOX 




RCFNO-2 


OTB^ 





610B 




LOX 


1 


/B 


07B6 





6203 






LDX 


2 


3 


07B7 





4069 






BSI 




CKRTR 


07B8 





70DA 






MDX 




XMACK 


0789 





6 IOC 




TMOT 


LDX 


1 


/C 


07BA 





70ED 




- ^ 


MDX 




RCENQ-2 


07BB 





1810 




TEXTR 


SRA 




16 


07BC 





D3A7 






STO 


3 


lOFLG-T 


07BD 





C386 






LD 


3 


ERR-T 


07BE 


1 


4C1B 


07C2 


•^ 


BSC 


L 


**Zf*- 


07C0 





610F 






LOX 


1 


/F 


07C1 





7051 




* 


MDX 




XMNAK 


07C2 





C31F 




LD 


3 


RAREACl-T 


07C3 





F3DF 






FOR 


3 


SOHPC-T 


07C4 


I 


4C18 


07C8 


* 


8SC 


L 


*+2,+- 


07C6 





6110 




LDX 


1 


/lO 


07C7 





7C51 




^ 


MDX 




BDRFT 


07C8 





C3B8 






LD 


3 


SYS¥N-T 


07C9 





0301 






STO 


3 


SFLCT-T 


07CA 





CB22 






LOD 


3 


RARFA+4-T 


07CB 





1084 






SLT 




4 


07CC 





188C 






SRT 




12 


7CD 


1 


4C18 


07DR 




BSC 


L 


NOESC, +- 


7CF 





93F7 






S 


3 


HOOOl-T 


0700 


1 


4C20 


07D6 




BSC 


L 


FSC2,Z 


0702 





1088 






SLT 




8 


0703 


c 


1008 






SLA 




8 


0704 





EBOO 






OR 


^ 


KSYN-T 


0705 





7001 






MDX 




ESC2+1 


706 





1090 




ESC? 


SLT 




16 


707 





D301 






STO 


3 


SELCT-T 


0708 





C321 




NOESC 


LO 


3 


RAREA+3-T 


0709 


1 


4400 


085A 




BSI 


L 


DTR 


0708 





030F 






STO 


3 


TABIE+6-T 


07nc 





930? 






S 


3 


n99-T 


0700 


1 


4C0f' 


n7Fl 


* 


BSC 


L 


**?,+ 


070F 





6112 




LDX 


1 


/12 


07F0 





703 8 






MDX 




BO RET 



BR IF FNO RECEIVED 
GO CK FOR EOT RCVD 



XR2=MESSAGE NUMBER 
GO TO CK RETRY 
RECEIVE 



BR IF ENO RECEIVED 
GO CK FOR EOT RECVO 



XR2=MFSSAGE NUMBER 
GO TO CK RETRY 



RESET ID REO FLAG 
BR IF NO TEXT ERRORS 



07F1 C3?0 



LD 



BR IF RFT MESSAGE 



INITIALIZE SELECT LOG. 
GET N CHARACTER 
TRUNCATE ZONE 
POSITION N CHARACTER 
BR IF N IS ZERO 
CHECK FOR TWO SEL CHAR 
BR IF TWO SEL CHAR 
BRING IN ONE SEL CHAR 
POSITION SEL CHAR 
ADD SYN CHAR 
GO SET SEL CHAR 
BRING IN 2 SEL CHAP 
SET SELECT SEQUENCE 
GET Y VALUE FROM RFT 
CONVERT TO BINARY 
PUT IN PRINT TABLE 

BR IF Y NOT OVFR 99 



3 RARFAE2-T GET X FROM RFT MSG 



31605460 

31605470 

31605480 

31605490 

31605500 

31605510 

31605520 

31605530 

31605540 

31605550 

31605560 

31605570 

31605580 

31605590 

31605600 

31605610 

31605620 

31605630 

31605640 

31605650 

31605660 

31605670 

31605680 

31605690 

31605700 

31605710 

31605720 

31605730 

31605740 

31605750 

31605760 

31605770 

31605780 

31605790 

31605800 

31605810 

31605820 

31605830 

31605840 

31605850 

31605860 

31605870 

31605880 

31605890 

31605900 

31605910 

31605920 

31605930 

31605940 

31605950 

31605960 

31605970 

31605980 

31605990 

31606000 

31606010 

31606020 

31606030 

31606040 

31606050 

31606060 

31606070 

316060 80 

31606090 

31606100 

31606110 

31606120 

31606130 



07E2 





4077 






BSI 




DTB 


07E3 





D30E 






STO 


3 


TABLE+5-T 


7E4 





93D2 






S 


3 


099-T 


07E5 


1 


4C08 


07E9 


* 


BSC 


L 


*+2,+ 


07E7 





6111 




LDX 


I 


/ll 


07E8 





7030 




^ 


MDX 




BDRFT 


07E9 




4C20 


07F2 




BSC 




GETX.Z 


07EB 





COOO 






LD 




* 


07FC 




D400 


09EB 




STO 




EOTSW 


07EE 





0302 






STO 


3 


SX99-T 


07EF 





407E 






BSI 




ALTNT 


07F0 




4C00 


09CC 




BSC 




END2 


07F2 




C400 


1432 


GETX 


LO 




TABLE+5 


07E4 





D302 






STO 


3 


SX99-T 


07F5 




D400 


09EB 




STO 




EOTSW 


07F7 




4C18 


081B 


* 


-BSC 




EXITS, +- 


07F9 




4400 


OBAE 


BSI 




GNTM 


07FB 




4072 






BSI 




ALTNT 


07FC 




4400 


09FC 


XMAK2 


BSI 




XNRCV 


07FE 




9409 






DC 




LST*KE/80( 


07FF 





C31F 






LO 


3 


RAREAei-T 


0800 





F3E3 






EOR 


3 


EOT-T 


0801 


1 


4C18 


08E7 




BSC 


L 


XMTH,+- 



0803 4075 

0804 C31F 

0805 F3E8 

0806 I 4C20 080C 

0808 6114 

0809 6203 
080A 4016 
0808 70F0 



080C 

oeoD 

O80E 
080F 
0811 



O 6115 
6203 

4012 

1 4400 09FC 
8000 



0812 70EC 

0813 6203 

0814 400C 

0815 C3F4 

0816 D3E6 

0817 1 4C00 0793 

0819 6206 
OeiA 70F9 

081B C30F 
081C D3A5 
081D COOO 
081E 03A1 
08 IF 1 4C00 0976 



0821 0000 

0822 1 6000 13CA 
0824 1 6FQ0 13CF 
0826 1 C400 05F1 



BSI 

LD 

EOR 

BSC 

LDX 
LOX 
BSI 

HOX 

* 

LOX 

LDX 

BSI 

BSI 

OC 

MDX 

XMNAK LDX 

BSI 

. LD 

STO 

BSC 

* 

BDRFT LOX 
MDX 

* 

EXIT8 LD 
STO 
LD 

STO 
BSC 

♦ 

* 

CKRTR DC 
STX 
STX 
LD 



EOTCK 

3 RAREACl-T 
3 ENQ-T 
L ♦♦4,Z 

1 /14 

2 3 
CKRTR 
XMAK2 



/15 

3 

CKRTR 

XMRCV 

/8000 

XMAK2C3 



2 3 
CKRTR 

3 NAK-T 

3 LSTAKCl-T 
L XMACK 

2 6 

XMNAK+1 



CONVERT TO BINARY 
PUT IN PRINT TABLE 

BR IF X NOT OVER 99 



BR IF NOT X=99 

SET EOT SW 

SET 2780 MODE INDICATOR 

ALTERNATE ACKS 

GO CHECK FOR EOT CHAR 

GET X VALUE 

RESET 2760 SWITCH 

RESET 2780 EOT SWITCH 

BR IF X=00 

GO GENERATE TEST MSG 

ALTERNATE ACKS 

XMIT ACKNOWLEDGEMENT 



BR IF EOT RECEIVED 
GO CK FOR DISCONNECT 

BR IF NOT ENQ RECEIVED 



XR2=NESSAGE NUMBER 
GO TO CK RETRY 



XR2=MESSAGE NUMBER 
GO TO CK RETRY 
RECEIVE 



XR2=HESSAGE NUMBER 
GO TO CK RETRY 
SET UP TO 
XMIT NAK 



XR2=MESSAGE NUMBER 



3 TABLE+6-T GET Y VALUE 



3 YCNT-T 

* 
3 TMRCI-T 
L RTMSG 



SET Y COUNTER 

SET TEST MSG RECV IND 
GO TO RECEIVE TEST MSGS 



CHECK RETRY COUNTER 



♦ -* 

LI ERRNO 
L2 TYPE 
L SW2 



STORE ERROR NUMBER 
SAVE MESSAGE NUMBER 



31606140 

31606150 

31606160 

31606170 

31606180 

31606190 

31606200 

31606210 

31606220 

31606230 

31606240 

31606250 

31606260 

31606270 

31606280 

31606290 

31606300 

31606310 

31606320 

31606330 

31606340 

31606350 

31606360 

31606370 

31606380 

31606390 

31606400 

31606410 

31606420 

31606430 

31606440 

31606450 

3I606«60 

31606470 

31606480 

31606490 

31606500 

31606510 

31606520 

31606530 

31606540 

31606550 

31606560 

31606570 

31606580 

31606590 

31606600 

31606610 

31606620 

31606630 

31606640 

31606650 

31606660 

31606670 

31606680 

31606690 

31606700 

31606710 

31606720 

31606730 

3.1606740 

31606750 

31606760 

31606770 

31606780 

31606790 

31606800 

31606810 



DATE 
EC NO. 



r'inCT69 
571066 



01JUN70 
571 OQ 7 



PROG ID 
PAGE 



0316-0 
5 



DATE 
EC NO. 



010CT69 
571066 



01JUN70 
571097 



PROG 10 
PAGE 



0316-0 
5A 



IBM MAINTENANCF DIAGNOSTIC PROGRAM FOR THF 1130 SYSTFM 
1130 8SC PT-TO-PT C ?770/?7SO — 8K 



1130 



PART NO. 2243977 
PAGE 6 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1130 BSC PT-TO-PT E 2770/?780 — 8K 



1130 



PART NO. 22^^3977 
PAGE 6A 



UH?8 lOOF 




SLA 


15 


0829 1 ECOO 05F0 




OR 


L SWl 


082R F3A9 




FOR 


3 OPTIN-T 


082C 1 4C20 0624 


^ 


BSC 


L STRT.Z 


082E 1 7400 13A8 




MDX 


L MSWAK 


0830 700A 




MDX 


WACKR 


0831 C3B1 




LO 


3 MSG4-T 


0832 1 4400 00F7 




BSI 


L STALP 


0834 C397 




to 


3 RETRY-T 


0835 93E7 




S 


3 HOOOl-T 


0836 I 4C08 0R40 


4c 


BSC 


L ERREX, 6 


0838 0397 




STO 


3 RETRY-T 


0839 1 4C80 0821 


* 

WACKR 


RSC 


I CKRTR 


083B C3A8 


LD 


3 REWAK-T 


083C 93E7 




S 


3 HOOOl-T 


0830 03A8 




STO 


3 REWAK-T 


0e3E 1 4CB0 0821 


4c 


BSC 


I CKRTR, Z- 


0840 C303 


ERREX 


LO 


3 ENQSW-T 


0841 1 4C28 0852 




BSC 


L eND99,Z* 


0843 C3A6 




LD 


3 ERRNO-T 


0844 1 4C18 0a4E 


* 


BSC 


L ERRNX, ♦- 


0846 1 4400 OADB 




BSI 


L DIAGP 


0848 1 6680 13CE 




LDX 


12 TYPE 


084A 1 4400 OAFE 




BSI 


L ERPRT 


084C I 4C00 09F4 


^ 


BSC 


L ENTS2 


084E 1 4400 0A6E 


ERRNX 


BSI 


L TYPIT 


0850 1 4C00 06CE 




BSC 


L CLEAR 


0852 6200 


END99 


LDX 


2 


0853 1 4400 0A6E 




BSI 


L TYPIT 


0855 1010 




SLA 


16 


0856 D302 




STO 


3 SX99-T 


0857 D303 




STO 


3 ENaSW-T 


0858 1 4C00 09FC 




BSC 


L ENTST 



BR IF OPTION CHANGE 

WAS LAST ACK A WACK 
YES, SFE IF « 25 
GET HSG ADDRS 
GO STORE IN PRINT TBL 

DECRE RETRY BY ONE 
BR IF RETRY ZERO 



RETURN 



REDUCE WACK CTR BY 1 
EXIT IF WACK COUNT NOT 



BR IF X=99 MODW 

BR IF NO ERROR 

GO PRINT OIAG MSG 
XR2=MESSAGE NUMBER 
GO PRINT ERROR MSG 
END ROUTINE 

GO PRINT MESSAGE 
RESTART ROUTINE 

PRINT X=99 ABORT HSG 

RESET X=99 MODE 
RESET ENQ SWITCH 
PRINT END HSG 

* 

* CONVERT 2 EBCDIC DECIMAL DIGITS 

* TO BINARY 



085A 





0000 


085B 





E3F9 


085C 





0399 


0850 





1808 


085E 





A3F1 


085F 





1090 


0860 





8399 


0861 





E3F7 


0862 


1 


4C80 0P5A 



0TB 



DC 

AND 

STO 

SRA 

M 

SLT 

A 

AND 

BSC 



♦-* 

HOFOF-T 

TEHP-T 

8 

HOOOA-T 

16 

TEMP-T 

HOOFF-T 

0TB 



REMOVE BITS 0-3 8-11 



RIGHT JUSTIFY HI 
MULT BY DEC 10 

ADD LO DIGIT 
SAVE BITS 8-15 
RETURN 



DIGIT 



* INITIALIZE POSITIVE ACKNOWLEDGEMENT 

* TO ACKO AND SET RETRY TO 7. 



0864 0000 

0865 C3CA 

0866 D397 

0867 C3F0 

0868 D3A8 

0869 CBD4 
n86A 0BD6 
0P6B D3E6 



INITL DC 
LO 
STO 
LO 
STO 
LOO 
STD 
STO 



*-* 
3 H0007-T 
3 RETRY-T 
3 025-T 
3 REWAK-T 
3 ACKS-T 
3 POSAK-T 
3 LSTAKei-T 



SET RETRY TO 7 

RESET WACK TO 25 
INITIALIZE 
POSITIVE 

ACKNOWLEDGEMENTS 



31606820 

31606830 

31606840 

31606850 

31606860 

31606870 

31606880 

31606890 

31606900 

31606910 

31606920 

31606930 

31606940 

31606950 

31606960 

31606970 

31606980 

31606990 

31607000 

31607010 

31607020 

31607030 

31607040 

31607050 

31607060 

31607070 

31607080 

31607090 

31607100 

31607110 

31607120 

31607130 

31607140 

31607150 

31607160 

31607170 

31607180 

31607190 

31607200 

31607210 

31607220 

31607230 

31607240 

31607250 

31607260 

31607270 

31607280 

31607290 

31607300 

31607310 

31607320 

31607330 

31607340 

31607350 

31607360 

31607370 

316073 80 

31607390 

31607400 

31607410 

31607420 

31607430 

31607440 

31607450 

31607460 

31607470 

31607480 

31607490 



086C 1 4C80 0864 



BSC I INITL 



RETURN 



* ALTERNATE POSITIVE ACKNOWLEDGEMENT 

♦ AND SET RETRY TO 7. 

* 



ALTERNATE 
POSITIVE 

ACKNOMLFOGFMENTS 



086F 0000 


ALTNT OC 


*-* 


086F CBD6 


LOD 


3 POSAK-T 


0870 18D0 


RTE 


16 


0871 DBD6 


STD 


3 POSAK-T 


0872 D3E6 


STO 


3 LSTAK+l- 


0873 C3CA 


LO 


3 H0007-T 


0874 D397 


STO 


3 RETRY-T 


0875 C3F0 


LD 


3 D25-T 


0876 D3A8 


STO 


3 RFWAK-T 


0877 1 4Ce0 086E 


BSC 


I ALTNT 



SET RETRY TO 7 

RESET WACK TO 25 
RHTURN 



088A 1 4C80 0879 



088C 
0880 
088F 
0891 



6207 

1 C400 09EB 
1 4C28 09F4 
7088 



0892 0B02 

0893 1 C400 09EB 
0895 1 4C28 09F4 

0897 6208 

0898 70B1 



0899 0000 
0e9A 1010 
0898 D3A4 

089C C3A7 
0890 1 4428 06B9 
089F 1020 

08A0 1 4400 09FC 
08A2 1 940B 
OeA3 C31F 
08A4 F3E8 
08A5 1 4C20 08AF 



* CHECK FOR EOT OR OLE EOT RECEIVED 



BR IF NO TTD 
PRINT.TTO RCVD 
CLEAR TTD FtAG 

BR IF EOT RECEIVED 

BR IF DISCONNECT RCVD 
RETURN 

BRANCH IF EOT SW ON 

RESET SCA 

BRANCH IF EOT SW ON 



0879 


0000 




EOTCK 


OC 




*-* 


087A 


C307 






LD 


3 


TTDSW-T 


087B 


1 4C10 


0880 




BSC 


L 


TTO,- 


087D 


6208 






LDX 


2 


S 


087E 


1 4400 


0A6E 




BSI 


L 


TYPIT 


0880 


1010 




TTD 


SLA 




16 


0881 


D307 






STO 


3 


TTOSW-T 


0882 


C31F 






LD 


3 


RAREAei-T 


0383 


F3E3 






EOR 


3 


EOT-T 


0884 


1 4C18 


088C 


* 


BSC 


L 


EOTRCE- 


0886 


C31F 




LO 


3 


RAREACl-T 


0887 


F3EA 






EOR 


3 


DLEOT-T 


0888 


1 4C18 


0892 




BSC 


L 


DISCN.e- 



BSC 

* 

EOTRC LDX 
LD 
BSC 
MDX 

DISCN XIO 
LD 
BSC 

LDX 
MDX 

* 



L 

L 



EOTCK 

7 

EOTSW 
ENTS2,*Z 
ERREX+10 

RESET-T 

EOTSW 

ENTS2,*Z 

8 

ERREX+10 



* TRANSMIT RET MESSAGE 

* 



XMRFT 



* 
XMENO 



DC 

SLA 

STD 

LD 

BSI 

SLA 

BSI 

DC 

LD 

EOR 

BSC 



*-* 

16 

TOIND-T 

IDFLG-T 

XMTID,Z£ 

/2D 



RESET TIMEOUT IND 

ID HEADER REQUIRED FLAG 
GO XMIT ID IF REQUESTED 
ENO CMD IF NEEDED 



XMRCV 

ENQCTe/8000 

RAREAGl-T 

ENQ-T 

XMENO. Z BR 



XMIT ENQ AND 

RECEIVE RESPONSE 



IF NOT ENQ RECVO 



31607500 

31607510 

31607520 

31607530 

31607540 

31607550 

31607560 

31607570 

31607580 

31607590 

31607600 

31607610 

31607620 

31607630 

31607640 

31607650 

31607660 

31607670 

31607680 

31607690 

31607700 

31607710 

31607720 

31607730 

31607740 

31607750 

31607760 

31607-770 

31607780 

31607790 

31607800 

31607810 

31607820 

31607830 

31607840 

31607850 

31607860 

31607870 

31607860 

31607890 

31607900 

31607910 

31607920 

31607930 

31607940 

31607950 

31607960 

31607970 

31607980 

31607990 

31608000 

31608010 

31608020 

31608030 

31608040 

31608050 

31608060 

31608070 

31608080 

31608090 

31608100 

31608110 

31608120 

31608130 

31608140 

31608150 

31608160 

31608170 
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08A7 C 6100 

08A8 62CA 

08Ag 1 4400 0821 

08AB 1 4400 GAFF 

08AD 1 4C00 06CE 

08AF C31F 
0880 F3n6 
08B1 1 4C18 0SB9 

08B3 6100 
08B4 6203 
0885 1 4400 0821 
08B7 1 4C00 0602 



08B9 
08BA 
08B6 



03A7 
40B3 
4400 09FC 



08B0 1 9445 
08BE 40BA 





1 



08BF 
08C0 
08C1 



C390 
F3F6 
4C18 0807 



08C3 C31F 
08C4 f 3D6 
08C5 1 4'C98 0899 

08C7 C31F 
0808 F3D7 
08C9 I 4C18 080B 

08CB C31F 
08CC F3E4 
08CD 1 4C18 08E2 



Lnx 

LOX 
BSI 
BSI 
BSC 

* 

XMENO LO 
FOR 
BSC 

* 

LOX 
LOX 
BSI 

BSC 
* 

STO 
CTINU BSI 
BSI 
DC 
BSI 
LO 
EOR 
BSC 
* 

LD 

EOR 
BSC 

* 

LD 

EOR 

BSC 

LD 

EOR 

BSC 



1 

2 /A XR2=MFSSAGF NUMBER 
L CKRTR GO CHECK RETRY 

L ERPRT GO TO PRINT MESSAGE 

L CLEAR RESTART ROUTINE 

3 RAREASl-T 
3 POSAK-T 

L CTINU-1,£- BR IF CORRECT ACK RCVD 

1 

2 3 

L CKRTR 

L CLEAR64 RESTART ROUTINE 

3 lOFLG-T RESET ID FLAG 
ALTNT ALTERNATE ACKS 

L XHRCV XMIT RFT MSG AND 

RFTTMS/8000 RECEIVED RESPONSE 

EOTCK 

3 BUFFR-T 

3 HFFFF-T 

L ERRTO.t- 



60 CK FOR EOT RECVD 
BR IF TIMEOUT 



3 RAREA£1-T 
3 POSAK-T 
I XMRFT.e- 

3 RAREAEl-T 
3 POSAKCl-T 
L MRACK.E- 

3 RAREAei-T 
3 NAK-T 
L NAKRC.E- 



BR IF CORRECT ACK RCVO 



BR IF WRONG ALTERNATE ACK 



BR IF NAK RECEIVED 



08CF 





6118 




08D0 





6202 




0801 


1 


4400 


0821 


08D3 


1 


4400 


09FC 


08D5 


1 


940B 




08D6 





70E7 




08D7 





6119 




08D8 


1 


6D00 


13C8 


080A 





70F5 





OeOB 611A 
08DC C3A4 
08DD 1 4C18 OSDO 

08DF 1010 
08E0 03A4 
08E1 7001 

08E2 611B 
08E3 6202 
08E4 1 4400 0821 
08F6 7004 



08F7 1 4400 0864 

0BE9 1 C400 05F1 
08EB IOCS 

08EC I 4C28 0937 



LDX 1 /18 

XENQ2 LOX 2 2 

BSI L CKRTR 

BSI L XHRCV 
DC 

MDX 

* 

ERRTO LDX 1 /19 

STX LI TOIND 

HOX XENQ2 

* 

WRACK LOX 1 /lA 

LO 3 TOINO-T 

BSC L XEN02,£- 
* 

SLA 16 

STO 3 TOIND-T 

MOX *+l 

* 

NAKRC LDX 1 /IB 

LDX 2 2 

BSI L CKRTR GO CK RETRY 

MOX CTlNU+1 

* 

********* *»****^^^^*^^;^^^^^^,^^^^^^^^^^^^^^^ 

* TRANSMIT TEST MfSSAGFS 

* 

XMTM BSI L INITL INITIALIZE ACKO/ACKl 

LD L SM2 

SLA 1 1 

BSC L XPDLY,+Z BR IF TERMINAL MODE 



GO TO CHECK RETRY 
XMIT ENQ AND 

ENPCTE/8000 RECEIVE RESPONSE 

CTINUE4 



SET TIMEOUT IND 

BR IF TIMEOUT INO ZERO 
RESET TIMEOUT INO 



31608180 

31608190 

31608200 

31608210 

31608220 

31608230 

31608240 

31608250 

31*08260 

31608270 

31608280 

31608290 

31608300 

31608310 

31608320 

31608330 

31608340 

31608350 

31608360 

31608370 

31608380 

31608390 

31608400 

31608410 

31608420 

31608430 

31608440 

31608450 

31608460 

31608470 

31608480 

31608490 

31608500 

31608510 

31608520 

31608530 

31608540 

31608550 

31608560 

31608570 

31608580 

31608590 

31608600 

31608610 

31608620 

31608630 

31608640 

31608650 

31608660 

31608670 

31608680 

31608690 

31608700 

31608710 

31608720 

31608730 

31608740 

31608750 

31608760 

31608770 

31608780 

31608790 

31608800 

31608810 

31608820 

31608830 

31608840 

31608850 



08EE 1 4400 09FC 

08F0 1 940B 

08F1 C31F 

08F2 F3D6 

08F3 1 4C18 08FA 

OSES 611C 
08F6 6203 
08F7 1 4400 0821 
08F9 70EE 



OBFA 
08FB 
08FC 
OBFO 
08FE 
0900 



COOO 

D3A2 

C30F 

D3A5 

4400 086E 

C3A5 



0901 1 4C08 09EC 



0903 
0904 
0905 
0906 
0907 
0908 
090A 
090B 



93E7 
D3A5 
C390 
EBFA 
0002 

4400 09FC 
0000 
4400 0879 



0900 C390 
090E F3F6 
090F 1 4C20 0915 

0911 1 7401 1434 

0913 611E 

0914 701C 

0915 C31F 

0916 F3E4 

0917 1 4C20 091D 

0919 1 7401 1435 
091B 611D 
091C 7014 

091D C31F 
091E F3D7 
091F 1 4C18 08FE 

0921 C31F 

0922 F3D6 

0923 1 4C18 08FE 

0925 C31F 

0926 F308 

0927 1 4C20 092E 

0929 1010 
092A D3A5 
092B COOO 
092C D306 
092D 70D0 
092E 1 7401 1436 

0930 6120 

0931 1 6000 13CA 

0933 C3B1 

0934 1 4400 0OF7 

0936 70C7 

0937 06D2 



XMTM2 BSI 
DC 
LD 

EOR 
BSC 

♦ 

LDX 
LOX 
BSI 
MOX 

* 

XMTMl LD 
STO 
LO 
STO 
BSI 

TSMSG LD 
BSC 

S 

STO 

LO 

OR 

STO 

BSI 

DC 

BSI 

LO 

EOR 

BSC 

MDX 
LDX 
MOX 

LD 

EOR 

BSC 

MOX 
LOX 

MOX 

* 

LD 

EOR 

BSC 

LD 

EOR 

BSC 

LO 
EOR 

BSC 

SLA 

STO 

LD 

STO 

MDX 

ADBAD MDX 
LDX 

* 

CKY STX 
LD 
BSI 
MDX 

XPDLY XIO 



L XMRCV XMIT ENO AND 

ENOCTE/8000 RECEIVE RESPONSE 

3 RAREAEl-T 

3 POSAK-T 
L XMTMl, £- 



BR IF CORRECT ACK 



1 /IC 

2 3 

L CKRTR 
XMTMEl 



CK RETRY CTR 
XMIT ENQ AGAIN 



3 THXMI-T SET TEST MSG XMIT IMO 
3 TABLE+6-T GET Y VALUE 



3 VCNT-T 
L ALTNT 

3 YCNT-T 
L ENTST,* 

3 HOOOl-T 
3 YCNT-T 
3 TMPMT-T 
3 H800O-T 
*£2 
L XMRCV 

*-• 
L EOTCK 

3 BUEFR-T 
3 HFFFF-T 

L *e4*z 



SET Y COUNT 
ALTERNATE ACKS 

BR IF Y=00 

DECRE Y COUNT BY ONE 



XMIT TEST NSC AND 

RECEIVE RESPONSE 
CO CK F(» EOT RECVO 



BR IF NO TIMEOUT 



L TABLECT.ei AOO ONE TO TNOUT COUNT 
1 /IE 

CKY 



3 RAREACl-T 
3 NAK-T 
L •£4,2 



BR IF NOT NAK RCVO 



L TABLECS.Cl ADD ONE TO NAK COUNT 
1 /lO 
CKY 

3 RAREACl-T 
3 POSAKEl-T 
L TSMSG-2,*- BR IF ACK 

3 RAREA61-T 
3 POSAK-T 
L TSMSG-2,*- BR IF CORRECT ACK 

3 RAREA*l-T 
3 RVI-T 
L ADBAD, Z 
16 
3 YCNT-T 

3 RVISW-T 
TSMSG-2 



BR IF NOT RVI 
SET Y COUNT=00 



SET RVI RECEIVED SWITCH 
TERMINATE TEST 
L TABLE+9,+1 AOO 1 TO INVALID RESP CT 
1 /20 



LI ERRNO 
3 MSG4-T 

L STALP 
TSMSG-2 
3 RESET-T 



STORE ERROR NUMBER 



RESET BSCA 



31608860 

31608870 

31608880 

31608890 

31608900 

31608910 

31608920 

316089 30 

31608940 

31608950 

31608960 

31608970 

31608980 

31608990 

31609000 

31609010 

31609020 

31609030 

31609040 

31609050 

31609060 

31609070 

31609080 

31609090 

31609100 

31609110 

31609120 

31609110 

31609140 

31609tS0 

31609160 

316Q9IT0 

31609100 

31609190 

31609200 

31609210 

31609220 

3160*2Se 

31609240 

31609290 

31609260 

316092T0 

31609200 

31609290 

31609300 

31609310 

31609320 

31609330 

31609340 

31609350 

31609360 

31609370 

31609380 

31609390 

3i609400 

31609410 

31609420 

31609430 

31609440 

31609450 

31609460 

31609470 

31609480 

31609490 

31609500 

31609510 

316095 20 

31609530 
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0938 OBCE 

0939 6700 OOIB 
093B 1810 
093C 1 8400 140B 
093E I 4C10 093C 

0940 73FF 

0941 70F9 

0942 1 6700 1424 
0944 1 4C00 08EE 



XPDLl 



0946 
0947 
0948 
0949 
094A 
094C 
094 E 



C30F 

D3A5 

COOO 

03A1 

4400 0S64 

4400 09FC 

8000 



094F O C31F 

0950 O F3E8 

0951 I 4Ct8 0978 



0953 
0955 
0956 
095T 
0959 
095A 
095B 
0950 
095E 
095F 
0960 
0961 
0962 
0963 
0965 
0967 
0968 
096 A 
096B 
0960 
096E 



«400 
6IZ1 
6202 
%400 
CJE4 
»3E6 
4400 
9409 
CBD6 
1800 
DB06 
D3E6 
70EC 
6D00 
4400 
C3B1 
4400 
C302 
4C28 
C3A5 
4C08 



0879 
0821 
09f-"C 



13CA 
86E 

OOF 7 

0972 

09C9 



0970 93E7 

0971 D3A5 

0972 1 4400 09FC 

0974 8000 

0975 700F 

0976 1 4400 086F 

0978 1810 

0979 0303 
097A C30? 
097B 1 4C28 0982 
097D C3A5 
097E 1 4C08 09CC 

0980 93E7 
0991 D3A5 
0982 1 4400 09FC 

0984 I 9409 

0985 C390 

0986 F3F6 

0987 1 4C20 099C 



XIO 

LOX 

SRA 

A 

BSC 

MOX 

MDX 

LDX 

BSC 



3 
L3 

L 
L 



L3 
L 



SNSRS-T 

27 

16 

HOOOl 

*-4,- 

-1 

XPDtY+4 

T 

XMTM2 



SENSE £ RST OSH 



DECR. COUNT 



RESTORE IX 3 
RETURN TO XMTM 



* RECEIVE TEST MESSAGES 

* 

3 TABtE+6-T 
3 YCNT-T 



RCVTM LD 

STO 
RCVX 



GET Y VALUE 

STORE IN Y COUNTER 



RCVY 



RCVTI 



RCVZ 



LD 

STO 

BSI 

BSI 

DC 

LO 

ECIR 

BSC 

BSI 

L0« 

LOX 

BSt 

LD 

STO 

BSI 

DC 

LOO 

RTE 

STO 

STO 

MDX 

STX 

BSI 

LD 

BSI 

LD 

BSC 

LO 

BSC 

S 

STO 

BSI 

DC 
MOX 



RTMSG BSI 
SRA 
STO 
LD 
BSC 
LD 
BSC 



RTH 



RTMSl 



RCVA 



S 

STO 

BSI 

DC 

LD 

EDR 

BSC 



I 

L 

3 
3 



3 
3 

LI 
L 

3 

L 

3 
L 

3 

L 

3 
3 



TMRCI-T 
INITL 

XMRCV 

/80OO 

RARe«61-T 

ENQ-r 

RTMSGCZ.e- 

EOTCK 

/21 

2 

CKRTR 

NAK-T 

LSTAK61-T 

XMRCV 

LSTAKe/SOOO 

POSAR-T 

16 

POSAK-T 

LSTAKGl-T 

RCVTI 

ERRNO 

ALTNT 

MSG4-T 

STAtP 

SX99-T 

♦♦5,2+ 

YCNT-T 

EMOl.t 

HOOOl-T 

YCNT-T 

XMRCV 

/8000 

RCVA 

ALTNT 

16 

ENQSH-T 

SX99-T 

**5,l* 

YCNT-T 

END2,6 



SET TEST MSG RECV INO 
INITIALIZE ACKO/ftCKl 
RECEIVE 



BR IF EMO RCVO 



60 CHECK FOR EOT RCVO 



CHECK RE1«V CTR 



ROTATE ACKS 

GO CHECK FOR ENO 
STORE ERROR NUMBER 
ALTERNATE ACKS 



BR IF X=99 



BR IF Y COUNT ZERO 



DECRE Y COUNT BY ONE 



RECEIVE 



ALTERNATE ACKS 

RESET ENQ SH 
LOAD X99 SWITCH 
BR IF X=9g 

BR IF Y COUNT ZERO 



HOOOl-T 

YCNT-T 

XMRCV 

LSTAKe/8000 

BUFFR-T 

HFFFF-T 

RCVB.Z BR 



DECRE Y COUNT BY ONE 



XMIT CURRENT ACK AND 
RECEIVE TEST MSG 



IF NO TIMEOUT 



31609540 
31609550 
31609560 
31609570 
31609580 
31609590 
31609600 
31609610 
31609620 
31609630 
31609640 
31609650 
31609660 
31609670 
31609680 
31609690 
11609700 
31609710 
31609720 
31609730 
31609740 
31609TS0 
31609760 
31609770 
31609780 
31*09790 
31609800 
31609810 
31609820 
31609830 
31609840 
31609850 
316(^860 
31609870 
31609880 
316O9890 
31609900 
31609910 
31609920 
31609930 
31609940 
31609950 
31609960 
31609970 
31609980 
31609990 
31610000 
31610010 
31610020 
31610030 
31610040 
31610050 
31610060 
31610070 
31610080 
31610090 
31610100 
31610110 
31610120 
31610130 
31610140 
31610150 
31610160 
31610170 
31610180 
31610190 
31610200 
31610210 



0989 I 


7401 


1434 




MOX 


L 


TABLECT. 


CI 




098B 


6122 






LOX 


1 


/22 






098C 


C302 






LO 


3 


SX99-T 




LOAD X99 SWITCH 


098D 1 


4C10 


0963 




BSC 




RTM.- 




BR IF NOT X99 


098F 1 


7401 


099A 




MOX 




T0CT,+1 




STEP T.O. COUNT 


0991 


C008 






LO 




TOCT 




LOAD TIMEOUT COUNT 


0992 


93CA 






S 


3 


H0007-T 




CK FOR 7 S 


0993 1 


4C20 


0963 




BSC 




RTM.Z 




BR IF NOT 7 TIMEOUTS 


0995 


6203 




ENDS 


LOX 


2 


3 




LOAD MESSAGE NO. 


0996 1 


4400 


OAEE 




BSI 




ERPRT 




PRINT ERROR MESSAGE 


0998 I 


4C00 


09EC 




BSC 




ENTST 




ENO TEST 


099A 


0000 




TOCT 


DC 




*-* 




SUCCESSIVE T.O. COUNT 


099B 


0000 




NAKCT 

* 
RCVB 


OC 




*-* 




SUCCESSIVE NAK COUNT 


099C 1 


7400 


13A9 


MOX 




MOSMT 






099E 


7006 






MOX 




*C6 




BR IF TEXT WAS RCVO 


099F 1 


4400 


0879 




BSI 




EOTCK 




GO CK FOR EOT RCVO 


09A1 


6123 






LOX 


1 


/23 






09A2 1 


7401 


1435 




mx 




TABLE£8, 


£1 




09A4 


70BE 




* 


MOX 




RTM 






09A5 


C386 




LO 


3 


ERR-T 






09A6 1 


4C18 


09BE 


♦ 


BSC 




GOMSG. &- 




BR IF NO ERRORS IN TE 


09A8 1 


4400 


086E 


BSI 




ALTNT 






09AA 


C3E4 






LO 


3 


NAK-T 




SET UP TO 


09AB 


03E6 






STO 


3 


LSTAK*1- 


■T 


XMIT NAK 


09AC 1 


7401 


1435 




MOX 




TABLE&e, 


&1 




09AE 


C3B1 






LO 


3 


MSG4-T 






09AF 1 


4400 


00F7 




BSI 




STALP 






09B1 


6124 






LOX 


1 


/24 






09B2 1 


6D00 


13CA 




STX 


LI 


ERRNO 






09B4 


C302 






LO 


3 


SX99-T 






09B5 I 


4C10 


0978 


' 


BSC 




RTMSG+2. 


- 


BR IF NOT 2780 


09B7 1 


7401 


099B 




MOX 




NAKCT, ♦! 




STEP NAK COUNTER 


09B9 


COEl 






LO 




NAKCT 




LOAD NAK COUNT 


09BA 


93CA 






S 


3 


H0007-T 




CHECK FOR 7 CONSEC NA 


09BB 1 


4C20 


0978 




BSC 


L 


RTMSG*2, 


Z 


BR IF NOT 7 NAKS 


09BD 


70D7 




* 
GOMSG 


MDX 




END8 






09BE 


1810 




SRA 




16 






098F 


OOOA 






STO 




TOCT 




RESET T.O. COUNT 


09C0 


OODA 






STO 




NAKCT 




RESET NAK COUNT 


09C1 


C302 




( 


LO 


3 


SX99-T 






09C2 I 


4C10 


09C6 




BSC 


L 


N0T99,- 




BR IF NOT X99 MODE 


09C4 


COOO 






LD 




* 






09C5 


0025 






STO 




EOTSW 




SET 2780 EOT SW 


09C6 1 


7401 


1436 


NOT 99 


MDX 


L 


TABLE+9, 


♦ 1 




09C8 


70AD 




* 
ENDl 


MOX 




RTMSG 






09C9 


4032 




BSI 




XMRCV 




RECEIVE EOT 


09CA 


8000 






DC 




/8000 






09CB 


7002 




4t 


MDX 




*E2 






09CC 


402 F 




END2 


BSI 




XMRCV 




XMIT CURRENT ACK AND 


09CD 1 


9409 






OC 




LSTAKt/8000 RECEIVE EOT 


09CE 


C31F 






LD 


3 


RAREA£1- 


■T 




09CF 


F3E3 






EOR 


3 


EOT-T 






09D0 1 


4C18 


09nF 


^ 


BSC 


L 


END3,+- 




BR IF EOT RECEIVED 


0902 


C31F 






LD 


3 


RAREA+l- 


■T 




0903 


F3EA 






EOR 


3 


DLEOT-T 




OLE EOT RECEIVED 


09D4 1 


4C18 


09F7 


•k 


BSC 


L 


ENTS2+3, 


+- 


*YES, BRANCH 


09D6 


6125 






LDX 


1 


/25 






09D7 1 


6000 


13CA 




STX 


LI 


ERRNO 






09D9 


C3BI 






LD 


3 


MSG4-T 







31610220 
31610230 
31610240 
31610250 
31610260 
31610270 
31610280 
31610290 
31610300 
31610310 
31610320 
31610330 
31610340 
31610350 
31610360 
31610370 
31610380 
31610390 
31610400 
31610410 
31610420 
31610430 
31610440 
31610450 
31610460 
31610470 
31610480 
31610490 
31610500 
31610510 
31610520 
31610530 
31610540 
31610550 
31610560 
31610570 
31610580 
31610590 
31610600 
31610610 
31610620 
31610630 
31610640 
31610650 
31610660 
31610670 
31610680 
31610690 
31610700 
31610710 
31610720 
31610730 
31610740 
31610750 
31610760 
31610770 
31610780 
31610790 
31610800 
31610810 
31610820 
31610830 
31610840 
31610850 
31610860 
31610870 
31610880 
31610890 
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09DA 
090C 
09Df: 
09nF 
09EO 
09E2 
09E3 
09F4 
09E5 
09E6 
09E8 
09E9 
09EB 



1 4400 0DF7 
1 4400 0AO8 
7015 

COOB 

1 4C10 0060 
1810 

D007 
COOO 

D303 

1 C400 0742 

D397 

1 4C00 077P. 
0000 



L STALP 
L DIAGP 

ENTS2 

EOTSH 
L ENPRT,- 

16 

EOTSW 

3 ENOSW-T 
L 020 

3 RETRY-T 
L RTN18 
♦-♦ 



09EC 1 7400 061C 
09EE 7003 



BSI 

BSI 

MOX 
END3 LD 

BSC 

SRA 

STO 

LD 

STO 

LD 

STO 

BSC 
EOTSW DC 
♦ 

* END OF TEST 

ENTST MDX L DIAL SKIP IF DIAL-UP 
MDX •C3 

* 

TRANSMIT OLE EOT 



TRANSMIT EOT 



LOAD EOT SWITCH 
BR IF EOT SW OFF 

RESFT EOT SWITCH 

SET ENQ MONITOR SH 

SET RETRY TO 20 

GO WAIT FOR 2780 ENO 

2T80 SWITCH 



09EF 
09F0 
09F1 



1 



400C 
1400 
7005 


* 

* 
ENTS2 

* 


BSI 
DC 

MDX 




XMRCV 
OEOTC 
*+5 


09F2 
09 F3 




1 


4009 
1406 


BSI 
DC 




XMRCV 
EOTCT 


09F4 
09F6 


1 




7400 06 IC 
7003 


MOX 
MOX 


L 


DIAL 
♦♦3 


09F7 
09F8 
09F9 
09FA 






1 


0BD2 
6204 
4074 
4C00 0D6O 


XIO 
LDX 
BSI 
BSC 


3 
2 

L 


RE SET- 
4 

TYPIT 
ENPRT 



SKIP IF DIAL-UP 



RESET SCA 

XR2=ttESSAGE NUMBER 

PRINT END MESSAGE 

w 

* PROCESS TRANSMIT/RECEIVE CALL 

* ^ *N0 WAIT FOR COMPLETION OF OPERATION 

* 





09FC 0000 
09FD 1 C480 09FC 
09FF 1 7401 09FC 
OAOl D39A 
0A02 E3FC 
0A03 D392 
0A04 1 4400 0A2F 
0A06 1 4400 OADB 


XMRCV 

4> 


DC 
LD 

MOX 
STO 
AND 
STO 
BSI 
BSI 


I 
L 

3 
3 
3 

L 
L 


*-* 

XMRCV 

XMRCV, tl 

REO-T 

H7FFF-T 

FCODE-T 

GO 

01 AGP 




OAOe C3FC 
0A09 0398 


WAIT 

* 

* 
RETRN 

* 


LD 

STO 


3 
3 


H7FFF-T 
MTCNT-T 




OAOA C384 
0A06 1 4C20 0a?7 
OAOO C38E 
OAOE 1 4CA0 09FC 
OAIO 1 6700 0A16 
0A12 1 6F00 05F5 
0A14 4480 0161 


LD 

BSC 

LO 

BSC 

LDX 

STX 

BSI 


3 
L 

3 
I 

L3 
L3 
I 


MSWAK-T 

MAKER,? 

MSENO-T 

XMRCV, Z 

RETRN 

MLSCF 

START 




0A16 1 6700 14?A 
CA18 OBDC 
0A19 1007 
OAIA I 4C2R OAIF 


LDX 
XIO 
SLA 

BSC 


L3 
3 

L 


T 

SENSE-T 
7 
*+3,Z+ 




OAIC C 6201 
OAID 1 4400 OAFF 


LOX 
BSI 


2 
L 


1 

FRPRT 


DATE 
FC NO. 


01OCT69 C1JUN70 
571066 ^71097 











GET XHIT/RECV REQUEST 



REMOVE BIT 

SET FUNCTION FOR XMIT/REC 

START XMIT OR RECV 



SET INT WAIT COUNT 



BRANCH IF WACK RECEIVED 
CK FOR ENO XMIT/RECV 
BR IF MSG END 

SET MONITOR RETURN 
GO TO MONITOR 

RESTORE XR3 
SENSE SCA OSW 



PRINT ERROR MSG 



31510900 

31610910 

31610920 

31610930 

31610940 

31610950 

31610960 

31610970 

31610980 

31610990 

31611000 

31611010 

3161 1020 

31611030 

31611040 

31611050 

31611060 

31611070 

31611080 

31611090 

31611100 

31611110 

31611120 

31611130 

31611140 

31611150 

31611160 

31611170 

31611180 

31611190 

3t«11200 

31611210 

31611220 

31611230 

31611240 

31611250 

31611260 

31611270 

31611280 

31611290 

31611300 

31611310 

31611320 

31611330 

31611340 

31611350 

31611360 

31611370 

31611380 

31611390 

31611400 

3I6U410 

31611420 

31611430 

31611440 

31611450 

31611460 

31611470 

31611480 

31511490 

31611500 

31511510 

31611520 

31611530 

31611540 

31511550 

31611560 

31611570 



PROG ID 

PAGE 



OAIF 1 74FF 13BC 
0A21 70E8 
0A22 6209 
0A23 1 4400 OAEE 
0A25 1 4C00 09F4 

0A27 6116 
0A28 6200 
0A29 1 4400 0821 
0A2B 1 C400 08F0 
0A2D 7003 



MOX 
MDX 
LDX 
BSI 
BSC 

MAKER LDX 
LOX 
BSI 
LD 
MDX 



L MTCNT,-1 
WAIT&2 
2 9 

- ERPRT 

- ENTS2 

1 715 

2 
CKRTR 
XMTM2*2 
XMRCV+5 



DECRE WAIT CNT BY ONE 
BR IF COUNT NOT ZERO 

PRINT ERROR MSG 
END ROUTINE 



CHECK HACK RETRY CTR 
ENQ RESPONSE REQUEST 
SET UP TO SEND ENO 



* START TRANSMIT/RECEIVE OPERATION 

A. 



0A2E 
0A2F 
0A30 
0A31 
0A32 
0A34 
0A35 



0000 

4029 

5300 

1010 

0700 13A7 

73FF 

70FC 



GO 



0A36 1 6700 1424 
0A38 D31F 
0A39 OBBA 
0A3A C392 
0A3B 1 4C20 0A4B 



0A3D 
0A3E I 
0A40 1 
0A42 
0A43 1 
0A45 
0A46 
0A47 
0A4e 



0A49 I 



0A4B 
0A4C 
0A40 
0A4E 
0A4F 
0A50 
0A51 
0A53 
0A54 
0A55 
0A56 



0A57 1 



C3B0 

4400 0DF7 
6600 1442 
7201 

6E00 13B7 
COOO 
0394 
OBBC 
0BC6 
4CeO 0A2E 

03A3 

83E7 

D393 

C3C6 

0391 

C3AF 

4400 0DF7 

COOO 

D394 

OBBC 

OBBE 

4C80 0A2E 



0A59 0000 
0A5A I 6700 1424 
0A5C 1 C400 05EI 
0A5E lOOC 
0A5F I 4C28 0A64 

0A61 C3AD 
0A62 1 4C20 0A67 



DC 

BSI 

LDX 

SLA 

STO 

MOX 

MDX 

LOX 

STO 

XIO 

LO 

BSC 

LD 

BSI 

LOJ( 

MDX 

STX 

LO 

STO 

XIO 

XIO 

BSC 

STO 

A 

STO 

LD 

STO 

LO 

BSI 

LO 

STO 

XIO 

XIO 

BSC 



* 

CKOPN DC 
LOX 
LD 
SLA 
BSC 

* 

LO 
BSC 



♦ ' 
XMIT 



*-* 

CKOPN 
3 13 

16 
L3 TT-1 
3 -1 

*-4 

L3 T 
3 RAREAi^l- 
3 SYNRG-T 
3 FCOOE-T 

L XNIT.Z 

3 MSG3-T 
L STALP 
L2 RAREA 

2 ei 

L2 POIMT 

* 

RTBSY-T 
ENOOP-T 
STREO-T 
GO 



3 
3 

3 



I 



lOAR-T 

HOOOl-T 

POIMT-T 

H0004-T 

SYNC-T 

MSG2-T 

STALP 

RTBSV-T 
ENDOP-T 
STSYM-T 
GO 



RESET 
THIRTEEN 

INDICATORS 



XR3#C0NSTANT TABLE AODRS 

SYN TO SYNC REG 

CK FUNCTION 

BR IF XMIT FUNCTION 



POINT TO RECEIVE AREA 

SET RTN BUSY INO 
END SCA OPERATION 
START READ 
RETURN TO CALLIIIG RTH 



POINT TO XNIT AREA 
SET XMIT SYNS INO 



SET RTN BUSY INO 
ENO -SCA OPERATION 
START MRITE 
RETURN TO CALLING RTN 



************♦*********♦*•♦*»♦♦»** 
SAVE OR DELETE LAST MESSAGE 



*-* 
L3 T 
L SW2 

12 
L *E3,Z£ 

3 NOERR-1 
L *&3,Z 



CK OPTION SWITCH 

BR IF PRINT ALL TEXT ON 

BR IF NO ERROR 



0316-0 
9 



DATE 
EC NO. 



010CT69 
5 71066 



01JUN70 
571097 



31611580 

316U590 

31611600 

31611610 

31611620 

31611630 

31511640 

31611550 

31611660 

31611670 

316116B0 

31611690 

31611700 

31611710 

31611720 

31611730 

31611740 

31611750 

31611760 

31611770 

31611780 

31611790 

31611800 

31611810 

31611820 

31611830 

31611840 

31611450 

31611860 

3161 18T0 

31611880 

31611890 

31611900 

31611910 

31611920 

31611930 

31611940 

31611950 

31611960 

31611970 

31611980 

31*11990 

31612000 

31612010 

31612020 

31612030 

31612040 

31612050 

31612060 

31612070 

31612080 

31612090 

31612100 

31612110 

31612120 

31612130 

31612140 

31612150 

31612160 

31612170 

31612180 

31612190 

31512200 

31612210 

31512220 

31512230 

31512240 

31612250 
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0A64 


C3A0 






to 


3 


ENPNT-T 


0A65 


D3AC 






STO 


3 


ENPT2-T 


0A66 


7002 




* 


MOX 




*e2 


0A67 


C3AC 




LD 


3 


ENPT2-T 


0A68 


D3A0 




♦ 


STO 


3 


ENPNT-T 


0A69 


1010 




StA 




16 


0A6A 


1 0480 


13C4 




STO 


I 


ENPNT 


0A6C 


1 4C80 


0A59 




BSC 


I 


CKOPN 





0A6E 





0000 


TYPIT 


DC 


*-* 




0A6F 




6E00 1420 




STX 


L2 TABLE 




0A71 




C600 0A7E 




LD 


L2 AMSGS 




0A73 





030C 




STO 


3 TABLE 




0A74 




4400 1039 




BSI 


L »XLOG 




0A76 




6700 1424 




LDX 


L3 T 




0A78 





1010 




SLA 


16 




0A79 




4400 ODEO 




BSI 


L PRTDL 




0A7B 





030C 




STO 


3 TABLE 




CATC 




4C80 0A6E 


* 
AHSGS 


BSC 


I TYPIT 




0A7E 




0A87 


DC 


A 1 700 




0A7F 




0A95 




DC 


A1701 




0A80 




0A9F 




DC 


A1702 




0A81 




0AA4 




DC 


A1703 




0AB2 




0B37 




DC 


E1708 




0A83 




OAAA 




DC 


A1705 




0A8* 




OABB 




DC 


A 1706 




0A85 




OACC 




DC 


A1707 




0A86 




0A06 


4t 


DC 


A1708 




0A87 





96C2 


A1700 


DC 


/'96C2 




0A8S 





EOEO 




DC 


/EOEO 




0A89 





213E 




DC 


/213E 




0A8A 





1A52 




DC 


/iA52 




0A8B 





629E 




DC 


/629E 




0A8C 





8076 




DC 


/8076 




0A8D 





5221 




DC 


/5221 




0A8E 





3676 




DC 


/3676 




0A8F 





6621 




DC 


/6621 




0A90 





2 276 




DC 


/2276 




0A91 





21FC 




DC 


/21FC 




0A92 





2172 




DC 


/2172 




0A93 





2276 




DC 


/2276 




0A94 





FFFF 




DC 


/FFFF 




DA 95 





723E 


A1701 


DC 


/723E 




0A96 





5A36 




DC 


/5A36 




0A97 





2132 




DC 


/2132 




0A98 





3F9E 




DC 


/3E9E 




0A99 





3E21 




DC 


/3E21 




0A9A 





9A36 




DC 


/9A36 




0A9B 





9EZ1 




DC 


/9E21 




0A9C 





6232 




DC 


/6232 




0A9D 





A621 




DC 


/A621 




0A9E 





FFFF 


A1702 


DC 


/FFFF 




0A9F 





7252 


DC 


/7252 




OAAO 





7621 




DC 


/7621 




OAAl 





3676 




DC 


/3676 




0AA2 





6621 




DC 


/6621 




0AA3 





FFFF 


* 
A1703 


DC 


/FFFF 




0AA4 





7652 


DC 


/7652 


DATE 


010CT69 01JUN70 








EC NO. 


571066 571097 









SAVE LAST MESSAGE 



DELETE LAST MESSAGE 



* PRINT STATUS MESSAGE 

* 
'PIT DC *-* 

STX L2 TABLE 
LD L2 AMSGS 

T 



STORE HSG NUMBER 
GET MSG ADDRS 
STORE MSG ADOR 
CHECK WHICH PRINTER 
RESTORE XR3 

CHECK FOR 1132 DELAY 

RETURN 

X=99 ABORT 

MAKE DATA SET READY 

MON ENO 

NO ANS ENO 

DISCONNECT 



RVI RCVD 
TTO RCVD 

X= 
99 

A 
BO 
RT 
.N 


EN 
Q 
IN 

1 

M 
IN 

TERMINATOR 
HA 
KE 

D 
AT 
A 

SE 
T 

RO 
Y 
TERMINATOR 

MO 

N 

FN 



TERMINATOR 

NO 



31612260 
31612270 
31612280 
31612290 
31612300 
31612310 
31612320 
31612330 
31612340 
31612350 
31612360 
31612370 
31612380 
31612390 
31612400 
31612410 
31612420 
31612430 
31612440 
31612450 
31612460 
31612470 
31612480 
31612490 
31612500 
31612510 
31612520 
31612530 
31612540 
31612550 
31612560 
31612570 
31612580 
31612590 
31612600 
31612610 
31612620 
31612630 
31612640 
31612650 
31612660 
31612670 
31612680 
31612690 
31612700 
31612710 
31612720 
31612730 
31612740 
31612750 
31612760 
31612770 
31612780 
31612790 
31612800 
31612810 
31612820 
31612830 
31612840 
31612850 
31612860 
31612870 
31612880 
31612890 
31612900 
31612910 
31612920 
31612930 



PROG 10 
PAGE 



0AA5 





213E 


0AA6 





769A 


0AA7 





2136 


0AA8 





7666 


0AA9 





FFFF 


OAAA 





9621 


OAAB 





2121 


OAAC 





2121 


OAAO 





A621 


OAAE 





2121 


OAAF 





2121 


OABO 





9E72 


OABl 





52B2 


0AB2 





9E21 


0AB3 





763 E 


0AB4 





5A21 


0AB5 





2121 


0AB6 





2276 


0AB7 





B621 


OABB 





6236 


0AB9 





9A56 


OABA 





FFFF 


OABB 





9621 


OABC 





2121 


OABD 





2121 


OABE 





A621 


OABF 





2121 


OACO 





2121 


OACl 





9E72 


0AC2 





52B2 


0AC3 





9E21 


0AC4 





9221 


0AC5 





3662 


0AC6 





6221 


0AC7 





92BC 


0AC8 





5221 


0AC9 





3662 


OACA 





6221 


OACB 





FFFF 


OACC 





62B6 


OACD 





2221 


OACE 





621E 


OACF 





B632 


OADO 





8036 


OADl 





529E 


0A02 





219A 


0AD3 





3676 


0A04 





9E21 


0AO5 





FFFF 


0AD6 





9E9E 


0A07 





3221 


0AD8 





621E 


0AO9 





B632 


OADA 





FFFF 



OADB 0000 
OADC 1 C400 05E1 
OADE lOOE 
OAOF 1 4C90 OAOB 

OAEl C3A6 
0AE2 1 4C98 OADB 



DC 


/213E 


A 


DC 


/769A 


NS 


DC 


/2136 


E 


DC 


/7666 


NO 


DC 

* 

A 1705 DC 


/FFFF 


TERMINATOR 


/9621 


X 


DC 


/2121 




DC 


/2121 




DC 


/A621 


Y 


DC 


/2121 




DC 


/2121 




DC 


/9E72 


TM 


DC 


/52B2 


OU 


DC 


/9E21 


T 


DC 


/763E 


NA 


DC 


/5A21 


K • 


DC 


/2121 




DC 


/2276 


IN 


DC 


/B621 


V 


DC 


/6236 


RE 


OC 


/9A56 


SP 


DC 


/FFFF 


TERMINATOR 


AI706 DC 


/9621 


X 


DC 


/2121 




DC 


/2121 




OC 


/A621 


Y 


OC 


/2121 




OC 


/2121 




OC 


/9E72 


TM 


OC 


/52B2 


OU 


OC 


/9E21 


T 


OC 


/9221 


W 


' OC 


/3662 


ER 


OC 


/6221 


R, 


OC 


/92BC 


H/ 


DC 


/5221 





OC 


/3662 


ER 


OC 


/6221 


R 


OC 


/FFFF 


TERMINATOR 


A1707 OC 


/62B6 


RV 


OC 


/2221 


I 


DC 


/621E 


RC 


OC 


/B632 


VD 


DC 


/8036 


.E 


OC 


/529E 


OT 


DC 


/219A 


S 


OC 


/3676 


EN 


DC 


/9E21 


T 


DC 


/FFFF 


TERMINATOR 


A1708 DC 


/9E9E 


TT 


DC 


/3221 





DC 


/621E 


RC 


OC 


/B632 


VD 


DC 


/FFFF 


TERMINATOR 


IHi^^^t:**************************** 


* 


PRINT DIAGNOSTIC MESSAGE 


«4'**«4<**4>4>'»«**4<««*4<«4'4<4:****4>*4<*4>*4>««#****«:*« 


01 AGP DC 


*-* 




LD 


L SW2 


CK OPTION SWT 


SLA 


14 




BSC 
LD 


1 DIAGP,- 


BR IF NOT OIAG PRNT 


3 ERRNO-T 


GET ERROR NUMBER 


BSC 


I DIAGP,*- 


BR IF NO ERROR 



0316-0 
10 



DATE 
EC NO. 



01OCT69 
571066 



01JUN70 
571097 



31612940 
31612950 
31612960 
31612970 
31612980 
31612990 
31613000 
31613010 
31613020 
31613030 
31613040 
31613050 
31613060 
31613070 
31613080 
31613090 
31613100 
31613110 
31613120 
31613130 
31613140 
31613150 
31613160 
31613170 
31613180 
31613190 
31613200 
31613210 
31613220 
31613230 
31613240 
31613250 
31613260 
31613270 
316132B0 
31613290 
31613300 
31613310 
31613320 
31613330 
31613340 
31613350 
31613360 
31613370 
31613380 
31613390 
31613400 
31613410 
31613420 
31613430 
31613440 
31613450 
31613460 
31613470 
31613480 
31613490 
31613500 
31613510 
31613520 
31613530 
31613540 
31613550 
31613560 
31613570 
31613580 
31613590 
31613600 
31613610 
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0AF4 





D309 




0AF5 


I 


44nc 


1052 


0AE7 


1 


6700 


1424 


0AE9 


1 


4400 


ODFO 


OAFfi 


c 


1010 




OAFC 





D-5A6 





OAEn 70F4 



OAEF C 
GAFF 1 
OAFl 1 
nAF3 
0AF4 1 
0AF6 1 
0AF8 1 
OAFA 
OAFS 
OAFC 1 



0000 

6E00 142D 

C600 OAFE 
D30C 

4400 1052 

6700 1424 

4400 oneo 

1010 
D30C 
4C80 OAFE 



STO 
BSI 
LOX 
RSI 
SLA 
STO 
MOX 
* 

ERPRT 



3 
L 

L3 
L 



TA8LE-T 

$ELOG 

T 

PRTOL 

16 

ERRNO-T 

*-12 



CHECK WHICH PRINTER 

RESTORE XR3 

CHFCK FOR 1132 DELAY 

SET ERROR NO. TO ZERO 



>:♦***♦ 



PRINT FRROR MESSAGE 



OAFE 
OAFF 
OBOO 
OBOl 
0B02 
0B03 
0B04 
0B05 
0B06 
0B07 
0B08 



1 0BO9 
1 OBOF 
1 0B17 
1 OBin 
1 0B23 
1 0627 
1 0B2B 
1 0B32 
1 0B37 
1 0B3D 
1 0B42 



* 
EMSGS 



0B09 D8F4 
OBOA 2192 
OBOB 3E1F 
OeOC 5A9A 
OBOD 2162 
OBOE FFFF 



OBOF 





323E 


OBIO 





9E3E 


OBll 





219A 


0B12 





369E 


0R13 





2176 


0B14 





6232 


0R15 





A621 


0B16 





FFFF 


OB 17 





0421 


OP 18 





9E62 


0B19 





2236 


ORIA 





9A21 


OBIB 





9F21 


08 IC 





FFFF 


OBID 





0421 


OBIE. 





9E62 


OBIF 





2236 


0B20 





9A21 


0R21 





6221 



0B22 FFFF 

0B23 2276 
'^R24 B621 



* 
E1700 



* 
E1701 



F1702 



DC 

STX 

LD 

STO 

BSI 

LOX 

BSI 

SLA 

STO 

BSC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

OC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
OC 
DC 
DC 
OC 
OC 
OC 

OC 
OC 

DC 
DC 
DC 

DC 



F1703 OC 
DC 
OC 
OC 
DC 
DC 

* 

El 704 OC 
OC 



*-♦ 
L2 TABLE 
L? EMSGS 

TABLE+3-T 

$FLOG 

T 

PRTDL 

16 

TAflLE+3-T 

ERPRT 



3 
L 

L3 
L 



STORE MSG NUMBER 

GET MSG AODR 

STORE MSG AOOR 

CHECK WHICH PRINTER 

RESTORE XR3 

CHECK FOR 1132 DELAY 



E1700 25 WACKS R 

El 701 DATA SET NRDV 

E1702 7 TRIES T 

E1703 7 TRIPS R 

E1704 INV X 

E1705 INV Y 

E1706 INV RET RCVO 

E1707 EOT RCVO 

El 708 DISCONNECT 

E1709 NO INTRP 

E170A CONTENTION 

/D8F4 25 
/2192 W 

/3F1E AC 

/5A9A KS 
/2162 R 

/FFFF TERMINATOR 

/323E DA 

/9E3E TA 

/219A S 

/369E ET 

/2176 N 

/6232 RO 

/A621 Y 

/FFFF TERMINATOR 

/D421 7 

/9F62 TR 

/2236 IE 

/9A21 S 

/9F21 T 

/FFPF TERMINATOR 

/D421 7 

/9E62 TR 

/2236 IF 

/9A?1 S 

/6221 R 

/FFFF TERMINATOR 

/2276 IN 

/B621 V 



31613620 

31613630 

31613640 

31613650 

31613660 

31613670 

31613680 

31613690 

31613700 

31613710 

31613720 

31613730 

31613740 

31613750 

31613760 

31613770 

31613780 

31613790 

31613800 

31613810 

31613820 

31613830 

31613840 

31613850 

31613860 

31613870 

31613880 

31613890 

31613900 

31613910 

31613920 

31613930 

31613940 

31613950 

31613960 

31613970 

31613980 

31613990 

31614000 

31614010 

31614020 

31614030 

31614040 

31614050 

31614060 

31614070 

31614080 

31614090 

31614100 

31614110 

31614120 

31614130 

31614140 

31614150 

31614160 

31614170 

31614180 

31614190 

31614200 

31614210 

31614220 

31614230 

31614240 

31614250 

31614260 

31614270 

31614280 

31614290 



0B25 9621 
0B26 FFFF 



0B27 





2276 


0B?8 





B621 


0B29 





A621 


0B2A 





FFFF 


0B2B 





2276 


0B2C 





B621 


0B20 





6212 


0B2E 





9E21 


0B2F 





621E 



0B30 8632 
0B31 FFFF 



0B32 





3652 


0B33 





9E21 


0834 





621E 


0B35 





B632 


0B36 





FFFF 


0B37 





3222 


0B38 





9A1E 


0B39 





5276 


0B3A 





7636 


0B3B 





1E9E 


0B3C 





FFFF 



0B3D 7652 
0B3E 2122 
0B3F 769E 
0640 6256 
0B4i FFFF 



0842 
0B43 
0B44 
0B45 
0B46 
0B47 



1E52 
769E 
3676 
9E22 
5276 
FFFF 



0B48 9E22 

0B49 7236 

084A 52B2 

0B4B 9E21 

0B4C FFFF 

0B4D 0303 

0B4E 9672 

0B4F 229E 

0B50 FFFF 

0B51 0303 

0B52 6236 

0B53 1EB6 

0B54 FFFF 

0B55 3662 
0B56 6221 
0B57 FFFF 

0858 1E52 
0B59 6236 
0B5A FFFF 





DC 


/9621 




OC 


/FFFF 


* 






E1705 DC 


/2276 




OC 


/B621 




OC 


/A621 




OC 


/FFFF 


* 






E1706 DC 


/2276 




DC 


/B621 




DC 


/6212 




OC 


/9E21 




DC 


/621E 




DC 


/B632 




DC 


/FFFF 


* 






E1707 OC 


/3652 




DC 


/9E21 




OC 


/621E 




DC 


/B632 




DC 


/FFFF 


* 






E1708 


1 OC 


/3222 




DC 


/9ftlE 




DC 


/521b 




DC 


/7636 




DC 


/1E9E 




DC 


/FFFF 


* 






E1709 


DC 


/7652 




DC 


/2122 




DC 


/769F 




DC 


/6256 


4: 


OC 


/FFFF 


E170A 


DC 


/1E52 




DC 


/769E 




DC 


/361b 




DC 


/9E22 




OC 


/521b 




OC 


/FFFF 


« 








TQHSG 


OC 


/9E22 




DC 


/123b 




DC 


/52B2 




DC 


/9E21 




OC 


/FFFF 


♦ 






XMMSG 


DC 


/0303 




DC 


/9672 




DC 


/Z29B 


■if. 


OC 


/FFFF 


RCHSG 


OC 


/0303 




DC 


/6236 




DC 


/IEB6 


■^ 


OC 


/FFFF 


ERMSG 


OC 


/3662 




DC 


/6221 




OC 


/FFFF 


*t- 






ENCOR 


DC 


/1E52 




DC 


/6236 




DC 


/FFFF 



TERMINATOR 

IN 

V 

Y 

TERMINATOR 

IN 

V 

RF 

T 

RC 

VD 

TERMINATOR 

EO 

T 

RC 

VD 

TERMINATOR 

01 
SC 

ON 
NE 
CT 
TERMINATOR 

NO 
I 
NT 
RP 
TERMINATOR 

CO 

NT 
EN 
Tl 
ON 
TERMINATOR 



********^***^c**^HL^n:^:^^^ii::^:^^^^l^,^^, 



TI 

ME 

OU 

T 

TERMINATOR 



XM 
IT 

TERMINATOR 



RE 
CV 
TERMINATOR 

ER 

R 

TERMINATOR 

CO 
RE 
TERMINATOR 



31614300 

31614310 

31614320 

31614330 

31614340 

31614350 

31614360 

31614370 

31614380 

31614390 

31614400 

31614410 

31614420 

31614430 

31614440 

31614450 

31614460 

31614470 

31614480 

31614490 

31614500 

31614510 

31614520 

31614530 

31614540 

31614550 

31614560 

31614570 

31614580 

31614590 

31614600 

31614610 

31614620 

31614630 

31614640 

31614650 

31614660 

31614670 

31614680 

31614690 

31614700 

31614710 

31614720 

31614730 

31614740 

31614750 

31614760 

31614770 

31614780 

31614790 

31614800 

31614810 

31614820 

31614830 

31614340 

31614850 

31614860 

31614870 

31614880 

31614890 

31614900 

31614910 

31614920 

31614930 

31614940 

31614950 

31614960 

31614970 
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*♦♦** 


**♦♦* 


***' 


le^*1fiHf1f^1fif^i^ittf1H^it:**r^it****t^***m* 


3161A9B0 










* 






GENERATE REQUEST FOR TEST MESSAGE 


31614990 










***************i*-^1f**t'********i*******i*****-if** 


31615000 










* 












31615010 


0R5B 





0000 




GNRFT 


OC 




*-* 






31615020 


0B5C 





030E 






STO 


3 


TABLE+5- 


-T 


STORF X VALUE 


31615030 


0B5D 


1 


4C28 


0B9E 




BSC 


L 


XERR.Z* 




BR IF INVALID X VALUE 


31615040 


0B5F 





93D2 






S 


3 


D99-T 






31615050 


0660 


1 


4C30 


0B9E 


* 


BSC 


L 


XFRR,-Z 




BR IF INVALID X VALUE 


31615060 
31615070 


0662 





83D2 






A 


3 


D99-T 






31615080 


0663 





4041 






BSI 




BTD 




CONVERT TO EBCDIC 


31615090 


0B64 





0323 




* 


STO 


3 


RFTTM+2- 


-T 


PUT IN RFT MSG 


31615100 
31615110 


0B65 


I 


C400 


05E2 




LO 


L 


SW3 




GET Y VALUE 


31615120 


0B67 





D30F 






STO 


3 


TABLE+6- 


-T 




31615130 


0668 


I 


4C08 


OBAO 




BSC 


L 


YERR,+ 




BR IF INVALID Y VALUE 


31615140 


0B6A 





9302 






S 


3 


099-T 






31615150 


0668 


1 


4C30 


OBAO 


♦ 


BSC 


L 


YERR,-Z 




BR IF INVALID Y VALUE 


31615160 
31615170 


0660 





8302 






A 


3 


D99-T 






31615180 


0B6E 





4036 






BSI 




BTD 




CONVERT TO EBCDIC 


31615190 


066F 





0324 






STO 


3 


RFTTM+3- 


•T 


PUT IN RFT MSG 


31615200 


0B70 





C3DF 






LD 


3 


SOHPC-T 






31615210 


0B71 





D322 




* 


STO 


3 


RFTTM+1- 


■T 


PUT SDH T IN RFT 


31615220 
31615230 


0B72 





C3CA 






LD 


3 


H0007-T 




SET RFT CHARACTER 


31615240 


0B73 





0396 






STO 


3 


CNTA-T 




COUNT TO 7 


31615250 


OB 74 





C3F2 






LD 


3 


HFOOO-T 






31615260 


0B75 





0325 




* 


STO 


3 


RFTTM»4- 


-T 


SET N FIELD TO ZERO 


31615270 
31615280 


OB 76 





C30E 






LD 


3 


TABLE+5- 


■T 


GET X VALUE 


31615290 


0B77 





93E7 






S 


3 


HOOOl-T 






31615300 


0878 


1 


4C18 


0B82 


» 


BSC 


L 


XDNE,£- 




BR IF X=01 


31615310 
31615320 


0B7A 





C3F3 






LD 


3 


HF002-T 






31615330 


0B7B 





032 5 






STO 


3 


RFTTM+4- 


T 


PUT N ZERO STX IN RFT 


31615340 


067 C 





C3DE 






LD 


3 


ETX-T 






31615350 


0670 





0326 






STO 


3 


RFTTM+5- 


■T 


PUT ETX IN RFT MSG 


31615360 


0B7E 


1 


7402 


138E 




MOX 


L 


CNTA,£2 




ADO 2 TO COUNT 


31615370 


0680 





C39B 






LO 


3 


CNTA-T 






31615380 


0B81 





7019 




* 


MDX 




EXITA+5 






31615390 
31615400 


0B82 


1 


C400 


05E9 


XONE 


LO 


L 


XSPEC+1 




GET CHAR COUNT 


31615410 


0684 





039C 






STO 


3 


CNT8-T 






31615420 


0B85 





6300 






LDX 


3 









31615430 


0B86 


1 


C700 


05EA 




LO 


L3 


XSPEC+2 




GET 2 CHARACTERS 


31615440 


0B88 





1890 






SRT 




16 




PUT IN 


31615450 


0B89 





1010 






SLA 




16 






31615460 


0B8A 





1088 






SLT 




8 




PUT 1ST CHAR IN ACC 


31615470 


0B8B 


1 


FFOO 


1449 




OR 


L3 


RFTTM+4 




COMBINE WITH LAST CHAR 


31615480 


0660 


1 


0700 


1449 




STO 


L3 


RFTTM+4 




PUT IN RFT 


31615490 


0B8F 





7301 






MOX 


3 


1 




ADD ONE TO XR3 


31615500 


0B90 





1090 






SLT 




16 




PUT 2N0 CHAR IN ACC 


31615510 


069 1 


1 


0700 


1449 




STO 


L3 


RETTMS4 




STORF IN RFT MSG 


31615520 


0B93 


1 


74FE 


13C0 




MOX 


L 


eNTB,-2 




DECRE COUNT BY TWO 


31615530 


0B95 





70F0 




* 


HDX 




X0NES4 




BR IF COUNT NOT ZERO 


31615540 
31615550 


0B96 


1 


6700 


1424 


EXITA 


LDX 


L3 


T 




RESTORE XR3 


31615560 


0B98 


1 


C400 


05E9 




LO 


L 


XSPEC+1 






31615570 


0B9A 





8396 






A 


3 


CNTA-T 






31615580 


0B98 





0321 






STQ 


3 


RFTTM-T 




STO RFT CHAR COUNT 


31615S90 


0B9C 


1 


4C80 


0B5R 


* 


BSC 


I 


GNRFT 




RETURN 


31615600 
31615610 


OROE 





6204 




XFCP 


LDX 


7 


4 




XR2=MESSAGF NUMBER 


31615670 


OR9F 





7001 




* 


MOX 




YERR+1 






31615630 
31615640 


OBAO 





6205 




YERR 


LOX 


2 


5 




XR2=MESSAGE NUMBER 


31615650 



OBAl 1 4400 OAEE 
0BA3 4480 0164 



BSI 
BSI 



ERPRT 
END 



GO PRINT MSG 
END PROGRAM 



0BA5 





0000 


0BA6 





1890 


0BA7 





ABFl 


0BA8 





1088 


0BA9 





1808 


OBAA 





1088 


OBAB 





EBF4 



OBAC 1 4C80 0BA5 



OBAE 0000 
OBAF 1 4C20 06B7 

OBBl 1 6700 05E9 
0BB3 1 6F00 13C1 
0BB5 1 4C00 0048. 

08B7 0399 
0BB8 93E7 
0BB9 I 4C20 0BD2 



* CONVERT BINARY TO 2 EBCDIC 

* DECIMAL DIGITS 
******************************************** 

* 
BTD 



DIVIDE BY DEC 10 
PUT HI ORDER DIGIT IN 
ACC 4-7 AND LOW ORDER 
DIGIT IN ACC 12-15 
ADD ZONE BITS 
RETURN 



* GENERATE TEST MESSAGE 

* 



DC 


*-* 


SRT 


16 


D 


3 HOOOA-T 


SLT 


8 


SRA 


8 


SLT 


8 


OR 


3 HFOFO-T 


BSC 


I BTD 



OBBB 

OBBC 

OBBD 

OBBE 

OBBF 

OBCl 

0BC3 

0BC4 

0BC6 

0BC7 

0BC9 

OBCA 1 

OBCC 

OBCO 

OBCE 1 

OBOO 

OBDl 



C387 
93CA 
D39B 
032 1 

6700 1445 
6F00 13C1 
6300 

C700 1446 
1890 

C700 1447 
18C8 

D700 1446 
1688 
7301 

74FE 13BF 
70F6 
7052 



0602 93E7 
0BD3 I 4C20 OBEA 



OflDS 
0BD6 
0BD7 
0BD8 
0B09 
OBDA 
OBDB 
OBDC 
OBOO 
OBOF 
OBEl 
ORE? 
0BF4 
0eE5 
0BE7 



C3BE 
0321 

93C6 
D39B 
C3E0 
0322 
C3E7 
6300 

D700 1447 
8400 141C 
7301 

74FE 13BF 
70F8 

1 C400 1405 
1 D700 1447 



GNTM 



XNOTZ 



* 
XNOTl 



SET02 



OC 
BSC 

LOX 
STX 
BSC 

STO 

s 

BSC 

LD 

S 

STO 

STO 

LDX 

STX 

LDX 

LO 

SRT 

LD 

RTE 

STO 

SRT 

HDX 

MDX 

MDX 

MDX 

S 
BSC 

LD 

STO 
S 

STO 

LD 

STO 

LD 

LDX 

STO 

A 

MDX 

MDX 

MDX 

LD 

STO 



L3 
L3 

L 

3 
3 



♦-* 
XNOTZ.Z 

XSPEC+1 

TMPNT 

EXITB+4 

TEMP-T 

HOOOl-T 
XNOTl, Z 



3 
3 
3 
3 
L3 
L3 
3 



L3 



COUNT-T 

H0007-T 

CNTA-T 

RFTTM-T 

RFTTM 

TMPNT 



L3 RAREA+4 
16 

L3 RAREA+5 
8 

RFTTMEl 
B 
1 

CNTA,-2 
*-lO 
EXITC 

HOOOl-T 
XN0T2,Z 



D260-T 

RFTTM-T 

H0004-T 

CNTA-T 

OLSTX-T 

RFTTM+1-T 

HOOOl-T 



L3 RFTTM+2 

L H0202 
3 1 

L CNTA,-2 
*-8 

L OLETX 

L3 RFTTM+2 



3 
3 
3 
3 
3 
3 
3 
3 



BR IF X NOT ZERO 

SET TEST MESSAGE 
LOCATION INDICATOR 



SAVE X VALUE 

BR IF X NOT ONE 

GET CHAR RECVD COUNT 
SUBTRACT 7 
STORE IN COUNTER A 
STORE IN TEST MSG AREA 
SET TEST MESSAGE 
LOCATION INDICATOR 

GET 2" CHARACTERS 

PUT IN Q 

GET NEXT 2 CHARACTERS 

STO 2 CHAR IN TEST MSG 



DECRE COUNT BY 2 



EXIT IF LAST CHAR 



BR IF X NOT 2 

SET TEST MESSAGE 
CHAR COUNT TO 260 

SET COUNTER A TO 256 
GET Dte STX CHARACTERS 
PUT IN TEST MSG 
GET 1ST 2 TEXT CHARS 

STORE IN TEST MSG 
ADD TWO TO EACH CHAR 

DECRE COUNT BY TWO 
BR IF NOT LAST CHAR 
GET OLE ETX CHARS 
STORE IN TEST MSG 



31615660 

31615670 

31615680 

31615690 

31615700 

31615710 

31615720 

31615730 

31615740 

31615750 

31615760 

31615770 

31615780 

31615790 

31615800 

31615810 

31615820 

31615830 

31615840 

31615850 

31615860 

31615870 

31615880 

31615890 

31615900 

31615910 

31615920 

31619930 

31615940 

31615950 

31615960 

31615970 

31615980 

31615990 

31616000 

31616010 

31616020 

31616030 

31616040 

31616050 

31616060 

31616070 

31616080 

31616090 

31616100 

31616110 

31616120 

31616130 

31616140 

31616150 

31616160 

31616170 

31616180 

31616190 

31616200 

31616210 

31616220 

31616230 

31616240 

31616250 

31616260 

31616270 

31616280 

31616290 

31616300 

31616310 

31616320 

31616330 
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OBPq 703A 

OBEA C 93E5 
OBER 1 4C20 
OREO C04? 
08EE 0321 
OBEF 93C0 
OBFO 93E5 
OBFl n39B 


0C32 


MDX 

* 

XN0T2 S 

BSC 

LD 

STO 

S 

S 

STO 


EXITC 

3 H0002-T 
L XN0T4,Z 
0249 
3 RFTTM-T 
3 H0003-T 
3 H0002-T 
3 CNTA-T 


BR IF X NOT 4 
SET TEST MESSAGE 
CHAR COUNT TO 249 

SET COUNTER TO 244 


31616340 
31616350 
31616360 
31616370 
31616380 
31616390 
31616400 
31616410 
31616420 
31616430 
31616440 
31616450 
31616460 
31616470 


0C3B D321 
0C3C 1 C400 0D4C 
0C3E 0322 
0C3F 6212 
0C40 6 300 
0C41 1 C700 0D4F 
0C43 1 D7C0 1449 
0C45 7301 


STO 
LD 
STO 
LDX 
LDX 
X12 LD 
STO 
MDX 


3 RFTTM-T 
L STXSC 
3 RFTTM+1-T 

2 18 

3 

L3 0ATTB*1 
L3 RFTTM4-3 
3 +1 




0fiF2 €301 
0BF3 1890 
0BF4 C3F5 
0BF5 1088 






LD 
SRT 
LO 
SLT 


3 SFLCT-T 
16 

3 H0002-T 
8 


GET SELECT CHARACTER 

SEL. CHAR TO Q 

GET STX 

ADD SYN OR ESC 


0C46 72FF 
0C47 70F9 
0C48 73FF 
0C49 1 ECOO 1405 


MDX 
MDX 
MDX 
OR 


2 -1 
X12 

3 -1 

L OLETX 




08F6 0322 

f\ r^ r^ ■"■ «^ - - - - 






STO 


3 RFTTM+1-T 


PUT IN TEST MESSAGE 


0C4B 1 D700 1448 


STO 


L3 RFTTM+3 




0RF7 1090 






SLT 


16 


GET SYN OR SELECT CHAR 


31616480 


0C4D 70D6 


MDX 


EXITC 




DBFS D3?3 






STO 


3 RFTTM+2-T 


PUT IN TEST MESSAGE 


•^ A ^^ ^ \J ^T \f ^f 

31616490 


0C4E 93E7 


NOT 12 S 


3 HOOOl-T 




0BF9 C3C0 






LD 


3 H0003-T 


INITIALIZE CHARACTER 


31616500 
31616510 
31616520 
31616530 
31616540 
31616550 


0C4F 1 4C20 0C55 


BSC 


L NOT 13, Z 




OBFA D02B 






STO 


CARSV 


SAVE CHARACTER 


0C51 1 C400 0D5C 


LD 


L 04 




0BF8 D035 
OBFC 6300 
OBFO C028 




CHAR 


STO 
LDX 
LO 


SHFT 
3 

CARSV 


SET SHIFT SWITCH 

CLEAR INDEX 3 

GET LAST CHARACTER 


0C53 70E2 
0C54 0O08 
0C55 93E7 


MOX 
D8 OC 
NOT 13 S 


DSET 
8 
3 HOOOl-T 




OBFE 1 8400 


140B 




A 


L HOOOl 


BUMP CHARACTER 


0C56 1 4C20 0C73 


BSC 


L N0T14,Z 




OCOO 0025 

t^ 0^ 14 « t^ J a^ ^m. ,f^ 






STO 


CARSV 


SAVE CURRENT CHARACTER 


31616560 


OC58 C0I9 


LD 


040 




OCOl 6208 






LDX 


2 8 


LOAD CONTROL CHAR COUNT 


31616570 
31616580 
31616590 
3161660n 


0C59 0321 


STO 


3 RFTTH-T 




0C02 1 F600 
OC04 1 4C18 


0C27 
OBFD 


EXOR 


FOR 
BSC 


L2 CTLCK-1 
L CHAR,-+ 


COMPARE WITH CONTROL CHAR 
BR IF CONTROL CHAR 


0C5A C301 
0C5B 1890 


LD 
SRT 


3 SELCT-T 
16 




0C06 1 F600 


0C27 




EOR 


L2 CTLCK-1 


RESTORE CHARACTER 


0C5C C3E5 


LD 


3 H0002-T 




0C08 72FF 






MDX 


2 -1 


DECREMENT CTL CHAR COUNT 


31616610 


0C5D 1088 


SLT 


8 




0C09 70F8 






MDX 


EXOR 


CHECK NEXT CTRL CHAR 


31616620 
31616630 
31616640 
31616650 


0C5E 0322 


STO 


3 RFTTM+1-T 




OCOA DOIB 






STO 


CARSV 


SAVE CHARACTER 


0C5F 1090 


SLT 


16 




OCOB C025 






LD 


SHFT 


GET SHIFT SWITCH 


0C60 1 ECOO 0040 


OR 


L OATTB 




OCOC 1 4C18 


0C16 




BSC 


L LOBYT, +- 


BR IF THIS IS LO BYTE 


0C62 0323 


STO 


3 RFTTM+2-T 




OCOE C017 
OCOF 1008 

^^r^ « rfH ^^ r^ «^ * J 






LD 
SLA 


CARSV 
B 


GET CURRENT CHARACTER 
SHIFT TO HI BYTE POSITION 


31616660 

31616670 


0C63 6212 
0C64 6300 


LDX 
LDX 


2 18 

3 




OCIO D016 






STO 


HIBYT 


SAVE HI BYTE 


^^ .&. »^ 4k ^w. ^^ ■ \^ 

31616660 
31616690 
31616700 
31616710 
31616720 
316167^0 


0C65 1 C700 0D4E 


X14 ' LO 


L3 DATTB-H 




OCll 1010 






SLA 


16 




0C67 1 0700 1448 


STO 


L3 RFTTM+3 




0C12 DOIE 






STO 


SHFT 


CLEAR SWITCH 


0C69 7301 


MOX 


3 +1 




0C13 1 74FF 
0C15 70E7 


13BF 




MDX 
MOX 


L CNTA,-1 
CHAR 


DECREMENT CHARACTER COUNT 


0C6A 72FF 
0C6B 70F9 


MDX 
MOX 


2 -1 
X14 




0C16 COOF 




LOBYT 


LD 


CARSV 


GET CURRENT CHARACTER 


0C6C 73FF 


MDX 


3 -1 




0C17 F80F 






OR 


HIBYT 


OR IN HI BYTE 


31616740 
31616750 


0C6D 1 ECOO 1405 


OR 


L DLETX 




0C18 1 0700 


1448 




STO 


L3 RFTTM+3 


STORE IN TEST MESSAGE 


0C6F 1 0700 1448 


STO 


L3 RFTTM+3 




OCIA 7301 






MDX 


3 1 


BUMP WORD POINTER 


31616760 
31616770 
316167Rfl 


0C71 70B2 


MDX 


EXITC 




OCIB 1 7401 


0C31 




MDX 


L SHFT,+1 


TURN SWITCH ON 


0C72 0028 


040 OC 


40 




OCID 1 74FF 


13BF 




MDX 


L CNTA,-1 


DECREMENT CHAR COUNT 


0C73 93E7 


NOT 14 S 


3 HOOOl-T 




OCIF 70DD 






MDX 


CHAR 


BR IF COUNT NOT ZERO 


31616790 
31616800 
31616810 
31616820 
31616830 
31616840 
31616850 
31616860 
31616870 
31616880 
31616890 
31616900 
31616910 
31616920 
31616930 
31616940 
31616950 
31616960 
9161 ^970 


0C74 I 4C20 0C95 


BSC 


L NOTIS.Z 




0C2O 1 C400 


1402 




LD 


L FTX 


GET FTX CHARACTER 


0C76 C301 


LD 


3 SELCT-T 




0C2? 1 0700 


1448 




STO 


L3 RFTTM+3 


STORE IN TEST MESSAGE 


0C77 1890 


SRT 


16 




0C24 1 4C00 


0044 


EXITC 


BSC 


L EXITB 




0C78 C3E5 


LD 


3 H0002-T 




0C26 0000 




CARSV 


DC 


*-* 




0C79 1088 


SLT 


a 




0C27 0000 
0C28 0010 




HIBYT 
CTLCK 


oc 

DC 


*-* 
/OOIO 


OLE 


0C7A D322 
0C7B 1090 


STO 
SLT 


3 RFTTM+1-T 
16 




0C29 OOIF 
CC?A 0026 






oc 

DC 


/OOIF 
/0026 


ITB 
ETB 


0C7C D323 
0C7D C3DE 


STO 
LD 


3 RFTTM+2-T 
3 ETX-T 




0C7B 002D 






OC 


/002D 


FNO 


0C7E 1808 


SRA 


8 




0C2C 00?F 






DC 


/002F 


ACK 


0C7F EBD8 


OR 


3 SYN-T 




0C2D 0032 
Or2F 0037 






DC 
DC 


/0032 
/0037 


SYN 
EOT 


OC80 D34B 
0C81 1808 


STO 
SRA 


3 RFTTM+42-T 

8 




0C2F 0030 






DC 


/0030 


NAK 


0C82 0348 


STO 


3 RFTTM+39-T 




0C30 00F9 
0t31 0000 




0749 
SHFT 


DC 
DC 


249 
*-* 




0C83 6700 0024 
0C85 1010 


LDX 
SLA 


L3 36 

16 




0C32 9021 




XN0T4 


S 


08 




0C86 1 0700 1447 


STO 


L3 RFTTM+2 




0C33 1 4C20 ( 


3C4F 




BSC 


L N0T12,Z 


BR IF X NOT 12 


0C88 73FF 


MDX 


3 -1 




0G3 5 C3D5 






LO 


3 ACKS+l-T 


GET SLASH CHARACTER 


0C89 70FC 


MDX 


*-4 




0C36 C lOOB 




nSFT 


SLA 


8 


POSITION CHARACTER 


31616980 
31616990 
31617000 
31617010 


0C8A 1 C400 13DC 


LO 


L SYSYN 




0C37 1 ECOC 0040 




OR 


L OATTB 


GET CHARACTER A 


0C8C 1 D400 1460 


STO i 


L RFTTM+40 




0C39 0323 






STO 


3 RFTTM+2-T 


STORE IN TEST MSG 


0C8E 1 0400 146E 


STO 1 


L RFTTM+41 




0C3A C037 






LO 


040 


SET TEST MESSAGE CHARACTER 


0C90 6700 0054 
0C92 1 6F00 1445 


LDX 1 
STX 1 


L3 84 1 
L3 RFTTM 


DATE 


010CT69 01JUN70 
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EC NO. 571066 571097 







COUNT TO 40 
GET STX ESC 
STORE IN TEST MESSAGE 
SET CHAR SET COUNT 
CLEAR WORD POINTER 
GET CHARACTER SET 
STORE IN TEST MESSAGE 
STEP WORD POINTER 
DECREMENT CHAR SET COUNT 
BR IF MORE CHARACTERS 

SET ETX CHARACTER 
STORE IN TEST MESSAGE 



BR IF X NOT 13 
GET 4 CHARACTER 



BR IF X NOT 14 

SET CHAR COUNT TO 40 
GET SELECT CHARACTER 
SEL. CHAR TO Q 
GET STX 
ADD SYN OR ESC 
PUT IN TEST MESSAGE 
GET SYN OR SELECT CHAR 
GET CHARACTER A 
PUT IN TEST MESSAGE 
SET CHAR SET COUNT 
CLEAR WORD POINTER 
GET CHARACTER SET 
STORE IN TEST MESSAGE 
STEP WORD POINTER 
DECREMENT CHAR SET COUTN 
BR IF MORE CHARACTERS 

SET ETX CHARACTER 
STORE IN TEST MESSAGE 



BR IF X NOT 15 
GET SEIECT CHARACTER 
SEL. CHAR TO Q 
GET STX 
ADD SYN OR ESC 
PUT IN TEST MESSAGE 
GET SYN OR SEIECT CHAR 
PUT IN TEST MESSAGE 
GET ETK CHARACTER 
POSITION ETX 
ADD SYN CHARACTER 
SET SYN/ETX AT MSG END 
POSITION SYN 
SET 00/SYN IN MESSAGE 
PUT 36 HEX 0000 
CHARACTERS 
IN TEST MESSAGE 



PUT TWO SYN SYN 

CHARACTERS 
IN TEST MESSAGE 
PUT CHAR COUNT 

IN TEST MESSAGE 



31617020 

31617030 

31617040 

31617050 

31617060 

31617070 

31617080 

31617090 

31617100 

31617110 

31617120 

31617130 

31617140 

31617150 

31617160 

31617170 

31617180 

31617190 

31617200 

31617210 

31617220 

31617230 

31617240 

31617250 

31617260 

31617270 

3161T280 

31617290 

31617300 

31617310 

31617320 

31617330 

31617340 

31617350 

31617360 

31617370 

31617380 

31617390 

3161T400 

31617410 

31617420 

31617430 

31617440 

31617450 

31617460 

31617470 

31617480 

31617490 

31617500 

31617510 

31617520 

31617530 

31617540 

31617550 

31617560 

31617570 

31617580 

31617590 

31617600 

31617610 

31617620 

31617630 

31617640 

31617650 

31617660 

31617670 

31617680 

31617690 
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0C94 





708F 




MOX 




EXITC 




31617700 


0C95 





93E7 




NOT 15 S 


3 


HOOOl-T 




31617710 


0C96 


1 


4C20 


0CR7 


BSC 

* 


L 


XNT16,Z 


BR IF X NOT 16 


31617720 
31617730 


0C98 





C3ni 




ID 


3 


SELCT-T 


GFT SFLFCT CHARACTER 


31617740 


0C99 





laoc 




SRT 




16 


SFL. CHAR TO 


31617750 


0C9A 





C3FS 




LO 


3 


H0002-T 


GET STX 


31617760 


0C9B 





108 8 




SLT. 




a 


ADD SYN OP FSC 


31617770 


0C9C 





0322 




STO 


3 


RFTTM+l-T 


PUT IN TEST MESSAGE 


31617780 


0C9D 





1090 




SLT 




16 


GET SYN HR SELECT CHAR 


31617790 


Or9F 





FB04 




OR 


3 


KOOAA-T 


GET AA CHARACTERS 


31617800 


0C9F 





0323 




STO 


3 


RFTTM+2-T 


PUT IN TEST MESSAGE 


31617810 


OCAO 


c 


C3BS 




LO 


3 


HAA55-T 


PUT HEX AA55 IN 


31617820 


OCAl 





0337 




STO 


3 


RFTTM+22-T 


CENTER OF TEST MSG 


31617830 


OCA? 





C3B7 




LO 


3 


H5ETX-T 


PUT 55 EXT AT 


31617840 


OCA 3 





034B 




STO 


3 


RFTTM+42-T 


END OF TEST MSG 


31617850 


0CA4 





C3B4 




LO 


3 


HAAAA-T 


PUT 19 HEX AAAA 


31617860 


0CA5 





6313 




LOX 


3 


19 


CHARACTERS 


31617870 


0CA6 


1 


D700 


1447 


STO 


L3 


RFTTM+2 


IN TEST MESSAGE 


31617880 


0CA8 





73FF 




MOX 


3 


-1 




31617890 


0CA9 





70FC 




MDX 




*-4 




31617900 


OCAA 





6313 




LOX 


3 


19 


PUT 19 HEX 5555 


31617910 


OCAB 


1 


C400 


130A 


LO 


L 


H5555 


CHARACTERS 


31617920 


OCAD 


1 


0700 


145B 


STO 


L3 


RFTTM+22 


IN TEST MESSAGE 


31617930 


OCAF 


c 


73FF 




MDX 


3 


-1 




31617940 


or BO 





70FC 




MDX 




*-4 




31617950 


OCBl 





6700 


0056 


LOX 


L3 


86 


PUT CHAR COUNT 


31617960 


0CB3 


1 


6F00 


1445 


STX 


L3 


RFTTM 


IN TEST MESSAGE 


31617970 


0CB5 


1 


4C00 


0044 


BSC 


L 


EXITB 




3161T980 
31617990 


0CB7 





93C0 




XNT16 S 


3 


H0003-T 




31618000 


0CB8 


1 


4C20 


OCT 3 


BSC 

* 


L 


XNT19,Z 


BR IF X NOT 19 


31618010 
31618020 


OCBA 





C3F0 




LO 


3 


DLSTX-T 


PUT OLE STX 


31618030 


OCBB 





0322 




STO 


3 


RFTTMtl-T 


IN TEST MSG 


31618040 


OCBC 





C3E1 




LO 


3 


DLFTX-T 


PUT OLE FTX AT 


31618050 


OCBD 


1 


0400 


1408 


STO 


L 


RFTTMG147 


END OF TEST MESSAGE 


31618060 


OCBF 


c 


6700 


008C 


LOX 


L3 


140 


PUT 140 HEX 0000 


31618070 


OCCl 





1010 




SLA 




16 


CHARACTERS 


31618080 


0CC2 


1 


D700 


1446 


STO 


L3 


RFTTMEl 


IN TEST MESSAGE 


31618090 


0CC4 





73FF 




MDX 


3 


-1 




31618100 


0CC5 





70FC 




MDX 




*-4 




31618110 


0CC6 





6305 




LOX 


3 


5 


PUT 5 SYN SYN 


31618120 


0CC7 


1 


C400 


13DC 


LP 


L 


SYSYN 


CHARACTERS 


31618130 


0CC9 


1 


D700 


1402 


STO 


L3 


RFTTME141 


IN TEST MESSAGE 


31618140 


OCCB 





73FF 




MDX 


3 


-1 




31618150 


nccc 





70FC 




MOX 




*-4 




31618160 


OCCD 





6 7C0 


n 1 7 6 


LOX 


L3 


294 


PUT CHAR COUNT 


31613170 


vorcF 


1 


6F0r 


144S 


STX 


L3 


RFTT^- 


IN TEST MSG 


31618180 
31618190 


ocni 


1 


4C00 


0044 


BSC 


L 


PXITB 




31618200 


0CD3 





93E7 




XNT19 S 


3 


HOOOl-T 




31618210 


0004 


1 


4C?0 


or.F6 


BSC 


I 


XNT?n,7 


BR IF X NOT 70 


31618220 


0CD6 





COIF 




LO 




D84 


SET TEST MESSAGE 


31618230 


0CD7 


n 


0321 




STO 


3 


RFTTM-T 


CHAR COUNT TO 84 


31618240 


DC 08 





C3E0 




ID 


3 


DLSTX-T 


GET OLE STX CHARACTERS 


31618250 


0C09 





D32? 




STO 


-i 


RFTTM+l-T 


PUT IN TEST MESSAGE 


31618260 


OCDA 





6303 




LDX 


3 


8 


SFT TABLE 


31618270 


OCOB 


1 


6F00 


1 3Pr 


STX 


L3 


CNTA 


WORD COUNT 


31618280 


OCOD 





6300 




LOX 


3 





CLEAR WORD POINTER 


31618290 


OCOE 


1 


C700 


0057 


SFT20 LO 


L3 


DATTP+ir 


GET FIRST CHARACTER 


31618300 


OCEO 





lOOR 




SLA 




S 


POSITION CHARACTER 


31618310 


OCFl 


1 


0400 


0C?7 


STO 


L 


HIHYT 


SAVE CHARACTER 


31618370 


0CE3 


1 


C7C0 


on5p 


LO 


L3 


DATTP.+ll 


GET 2Nn CHARACTER 


31618330 


0CF5 





i8on 




SRA 




8 


POSITION CHARACTER 


31618340 


OCFfe 


I 


ECCO 


0C2 7 


OR 


L 


HIBYT 


GET FIRST CHARACTER 


31618350 


OCF« 


1 


07C0 


1447 


STO 


13 


RFTTM+2 


PUT IN TEST MESSAGE 


31618360 


OCFA 





7301 




MDX 


3 


+ 1 


STEP WORD POINTER 


31618370 



OCEB 1 74FF 13BF 




MOX 


L CNTA,-1 


DECR WORD COUNT 


31618380 


OCED 70F0 




MDX 


SET20 


GO GET NEXT CHAR SET 


31618390 


OCEE 6240 




LDX 


2 64 




31618400 


OCEF 1 6E00 13BF 




STX 


L2 CNTA 


SET SEQUENTIAL CHAR COUNT 


31618410 


OCFl 1 C400 140B 




LO 


L HOOOl 


PRIME CHARACTER GENERATOR 


31618420 


0CF3 1 4C00 ORPO 




BSC 


L SFT02 


GO GENERATE SEQUENTIAL 


31618430 


0CF5 0054 


084 


DC 


84 


CHARACTERS 


31618440 


0CF6 93E7 


XNT20 S 


3 HOOOl-T 




31618450 


0CF7 1 4C20 0D19 




BSC 


L XNT21,Z 


BR IF X NOT 21 


31618460 


0CF9 COIE 




LO 


0124 


SET TEST MESSAGE 


31618470 


OCFA 0321 




STO 


3 RFTTM-T 


CHAR COUNT TO 124 


31618480 


OCFB C3E0 




LO 


3 OLSTX-T 


GET OLE STX CHARACTERS 


31618490 


OCFC 0322 




STO 


3 RFTTM+l-T 


PUT IN TEST MESSAGE 


31618500 


OCFD 6312 




LOX 


3 18 


SET TABLE 


31618510 


OCFE 1 6F00 13BF 




STX 


L3 CNTA 


WORD COUNT 


31618520 


ODOO 6300 




LOX 


3 


CLEAR WORD POINTER 


31618530 


ODD! 1 C700 0D4D 


SET21 


LD 


L3 DATTB 


GET FIRST CHARACTER 


31618540 


OD03 1008 




SLA 


8 


POSITION CHARACTER 


31618550 


0004 1 D400 0C27 




STO 


L HIBYT 


SAVE CHARACTER 


31618560 


0006 1 C700 0D4E 




LD 


L3 DATTB*1 


.GET 2ND CHARACTER 


31618570 


0008 1808 




SRA 


8 


POSITION CHARACTER 


31618580 


0D09 1 ECOO 0C27 




OR 


L HIBYT 


GET FIRST CHARACTER 


31618590 


ODOB 1 D700 1447 




STO 


L3 RFTTM+2 


PUT IN TEST MESSAGE 


31618600 


ODOO 7301 




MDX 


3 *1 


STEP WORD POINTER 


31618610 


ODOE 1 74FF 13BF 




MDX 


L CNTA,-1 


DECR WORD COUNT 


31618620 


0010 70F0 




MOX 


SET21 


GO GET NEXT CHAR SET 


31618630 


ODll 6254 




tox 


2 84 




31618640 


0012 1 6E00 13BF 




STX 


L2 CNTA 


SET SEQUENTIAL CHAR COUNT 


31618650 


0D14 1 C400 140B 




LD 


L HOOOl 


PRIME CHARACTER GENERATOR 


31618660 


0D16 1 4C00 OBOn 




BSC 


L SET02 


GO GENERATE SEQUENTIAL 


31618670 


0018 007C 


0174 


DC 


124 


CHARACTERS 


31618680 


0019 93E7 


XNT21 


S 


3 HOOOl-T 




31618690 


ODIA 1 4C20 0D3C 




BSC 


L XNT?2,Z 


BR IF X NOT 2 2 


31618700 


ODIC COIF 




LD 


D148 


SET TEST MESSAGE 


31618710 


ODID D321 




STO 


3 RFTTM-T 


CHAR COUItT TO 1*8 


31618720 


OOIE C3E0 




LD 


3 DLSTX-T 


GET OLE STX CHARACTERS 


31618730 


ODIF 0322 




STO 


3 RFTTM*1-T 


PUT IN TEST MESSAGE 


31618740 


0020 6312 




LDX 


3 18 


SET TABLE 


31618750 


0021 1 6F00 13BF 




STX 


L3 CNTA 


WORD COUNT 


31618760 


0D23 6300 




LDX 


3 


CLEAR WORD POINTER 


31618770 


0024 I C700 0D4D 


SET22 

* 


LO 


L3 DATTB 


GET FIRST CHARACTER 


31618780 
31618790 


0026 1008 




SLA 


8 


POSITION CHARACTER 


31618800 


0D27 1 0400 0C27 




STO 


L HIBYT 


SAVE CHARACTER 


31618810 


0D29 1 C700 0D4E 




LD 


L3 DATTB+1 


GET 2ND CHARACTER 


31618820 


0028 1808 




SRA 


8 


POSITION CHARACTER 


31618830 


0D2C 1 ECOO 0C27 




OR 


L HIBYT 


GET FIRST CHARACTER 


31618840 


002E 1 0700 1447 




STO 


L3 RFTTM+2 


PUT IN TEST MESSAGE 


31618850 


0030 7301 




MOX 


3 4-1 


STEP MORD POINTER 


31618860 


0031 1 74FF 13BF 




MOX 


L CNTA,-1 


DECR WORD COUNT 


31618870 


0D33 70F0 




MDX 


SET22 


GET NEKT CHARACTER 


31618880 


0034 626C 




LDX 


2 108 




31618890 


0035 1 6E00 13BF 




STX 


L2 CNTA 


SET SEQUENTIAL CHAR COUNT 


31618900 


0D37 1 C400 140B 




LD 


L HOOOl 


PRIME CHARACTER GENERATOR 


31618910 


0D39 I 4C00 OBDD 




BSC 


L SET02 


GO GENERATE SEQUENTIAL 


31618920 


0D3B 0094 


D148 


DC 


148 


CHARACTERS 


31618930 


0D3C C399 


XNT22 


LD 


3 TEMP-T 


GET X VALUE 


31618940 


0D3D 1 F400 05F8 




FOR 


L XSPEC 


CK EQUAL TO SPECIAL X 


31618950 


0n3F 6113 




LDX 


1 /13 




31618960 


OD40 1 4C20 0819 




BSC 


L BORFT.Z 


BR IE NOT EQUAL 


31618970 


004? 1 4C00 OBBl 


* 


BSC 


L GNTM+3 




31618980 
31618990 


0044 1 6700 1445 


EXITB 


LDX 


L3 RFTTM 


SET TEST MESSAGE 


31619000 


0046 1 6F00 13C1 




STX 


L3 TMPNT 


LOCATION INDICATOR 


31619010 


0048 1 6700 1424 




LDX 


L3 T 


RESTORE KR3 


31619020 


0D4A 1 4C80 OBAE 




BSC 


I GNTM 


RETURN 


31619030 


004C 0227 


STXSC 


DC 


/0227 


STX/ESC 


31619040 


0D4D OOCl 


OATTB 


DC 


/OOCl 


A 


31619050 
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0D4E 





C2C3 


0D4F 





C4C5 


0D50 





C6C7 


0D51 





C8C9 


0052 





D102 


0053 





0304 


0D54 





D5D6 


0D55 





0708 


0056 





D9F2 


0D57 





E3E4 


0058 





E5E6 


0059 





E7E8 


005 A 





E9F0 


0D5B 





F1F2 


obsc 





F3F4 


0050 





F5F6 


0D5E 





F7F8 


0D5F 





F900 



0060 
0061 
006 3 
0064 
0066 
0067 
0D6 8 
0D6A 
006 B 
0060 



C306 

4C10 0066 
6207 

4400 0A6E 
1010 
0306 

7400 13C6 
7053 
7400 13C5 



7052 

006E 1 4400 0A59 

0070 1 C400 05F1 

0072 lOOC 

0073 180E 

0074 1 4C18 OnCB 
0D76 1 6700 1505 
0D78 1 6F00 13BF 

0D7A 1 C480 13RF 
0D7C 1 4C18 OOCB 

0D7E 1 4C08 0092 

0080 1 0400 13C0 

0082 63F2 

0083 1 7401 138F 
0085 1 C480 13BF 
0D87 1 0700 1440 

0089 1 74FE 13C0 
0P8R 7003 
0D8C 7301 
0080 1000 
0D8F 7014 

0D8F 7301 

0090 70F2 

0091 7011 

0092 1 F400 142r 
0094 1 0400 1430 
0096 1 C400 141F 
0098 1 D400 142F 
009A 1 4400 1039 
0n9C 403C 



04 



DC 
OC 
OC 
OC 
OC 
DC 
DC 
OC 
OC 
DC 
DC 
DC 
OC 
DC 
OC 
DC 
OC 
DC 



* 
* 

ENPRT LD 
BSC 
LOX 
' BSI 

FNTYP SLA 
STO 
MDX 
MOX 
MOX 
MOX 



POAT 



/C2C3 
/C4C5 
/C6C7 
/C8C9 
/0102 
/D3D4 
/D506 
/07D8 
/D9E2 
/E3E4 
/E5E6 
/E7E8 
/E9F0 
/FIF2 
/F3F4 
/F5F6 
/F7F8 
/F900 

************ 
PRINT END 

*********^,l,^: 

RVISW-T 

ENTYP,- 

7 

TVPIT 

16 

RVISH-T 

TMXMl 

PRTXH 

TMRCI 

PRTRC 



B 

F 
H 
J 
L 
N 
P 
R 
T 
V 
X 

z 
1 

3 
5 
7 
9 



C 

E 
G 
I 
K. 
M 

Q 
S 

u 

M 
Y 

2 
4 
6 



BSI 

LO 

SLA 

SRA 

BSC 

LOX 

STX 



GTCNT LD 
BSC 

* 



L CKOPN 
L SH2 

12 

14 
L FNOIT.e- 
L3 ENTBL 
L3 CNTA 

I CNTA 

L ENOIT.E- 



BSC L ALPH,+ 



STO 
LOX 
GTHEX MOX 
LD 
STO 
MOX 
MDX 
MDX 
NOP 
MOX 



FNX 



ALPH 



MOX 
MDX 
MDX 

AND 

STO 

LO 

STO 

BSI 

BSI 



L CNTB 

3 -14 
L CNTA.+l 
I CNTA 
L3 TABLEai9 
L CNTB, -2 
FNX 

3 1 

HEX 



3 1 

GTHEX 
HEX 

H7FFF 

TABLE+3 

H8000 

TABLE62 

SXLOG 

CKMON 



**************^^t::t,^^it:^ 

OF TEST MESSAGE 

************^,t:t:^::^^^^^^ 



BR IF NO RVI 

PRINT RVI RCVD 

CLEAR RVI FLAG 

BR IF TEST HSG XMIT IND ON 

BR IF TEST MSG REC IND ON 

CK OPTION SWITCH 

BR IF PRINT TEXT NOT ON 

GET WORD FROM END MSG TBL 
BR IF ZERO 

BR IF ALPHA MSG AOORS 

SAVE HEX CHAR COUNT 



GET 2 HEX BYTES 

PUT HEX WORD IN PRINT TBL 

DFCRE CHAR COUNT BY TWO 

ADJ LINE COUNT 

GO PRINT IF CNT ZERO 

AOJ LINE COUNT 

GO GET NEXT CHARACTER 

GO PRT IF 14 CHARS 



CHECK WHICH PRINTER 



31619060 

31619070 

31619080 

31619090 

31619100 

31619110 

31619120 

31619130 

31619140 

31619150 

31619160 

31619170 

31619180 

31619190 

31619200 

31619210 

31619220 

31619230 

31619240 

31619250 

31619260 

31619270 

31619280 

31619290 

31619300 

31619310 

31619320 

31619330 

31619 340 

31619350 

31619360 

31619370 

31619380 

31619390 

31619400 

31619410 

31619420 

31619430 

31619440 

31619450 

31619460 

31619470 

31619480 

31619490 

31619500 

31619510 

31619520 

31619530 

31619540 

31619550 

31619560 

31619570 

31619580 

31619590 

31619600 

31619610 

31619620 

31619630 

31619640 

31619650 

31619660 

31619670 

31619680 

31619690 

31619700 

31619710 

31619720 

31619730 



0D9D 1010 
0D9E 1 0400 1430 
ODAO 1 7401 13BF 
0DA2 7007 



00A3 
0DA5 
0DA7 
0DA9 
ODAA 
OOAC 
ODAO 
OOAF 
OOBl 
0OB3 
0DB4 
0DB6 



C400 

1 F400 
1 8400 

0002 

1 C400 

1800 

1 ECOO 
I D400 
1 4400 

4025 

1 C400 
1 4C30 



0003 
141A 
1422 

1420 

141E 
142F 
1039 

13C0 
0082 



0OB8 1010 

0089 1 0400 1129 

ODRB 1 7401 13BF 

ODBO 70BC 

0D8E 6205 
0D8F 7001 

OOCO 6206 
ODCl C3F0 
0DC2 D30A 
0DC3 D30B 
0DC4 1 4400 0A6E 
00C6 4012 
0DC7 1010 
0DC8 1 D400 142E 
ODCA 70A3 

ODCB 1 4400 ODEO 
ODCD 1 C400 13CD 
ODCF 1 4C28 062A 
ODDl 1 4C08 0664 

0DD3 1 9400 06fi7 
0005 1 4C18 062A 

0DD7 4480 0164 



0DD9 

ODDA 

ODDC 

ODDE 

ODEO 

ODEl 

0DE3 

0DE4 

0nE6 

0DF8 

0DE9 

OOFA 

ODEC 

ODED 

OOEF 

OOFl 

0DF2 

0DF3 

0DF5 



0000 

1 6780 
1 6F00 
4480 

0000 

1 C400 

1009 

1 4C10 
1 6700 
0BD2 
ORCF 
6700 

1810 

1 8400 
1 4C10 
73FF 

70F9 

1 6700 
1 4C80 



0009 
05E5 
0161 

05F1 

OOF 5 
1424 



0005 

140B 
ODED 



1424 
ODEO 



* 
HEX 



SLA 
STO 

MDX 
MOX 

LD 

EOR 

A 

STO 

LO 

SRA 

OR 

STO 

BSI 

BSI 

LO 

BSC 

SLA 

STO 
MOX 
MDX 



PRTXH LOX 
MOX 

* 

PRTRC LOX 
LO 
STO 
STO 
BSI 
BSI 
SLA 
STO 
MDX 

ENDIT BSI 
LD 
BSC 
BSC 

S 

BSC 



16 
L TA8LEE3 
L CNTA.ei 

GTCNT 



BSI 

CKMON DC 
LOX 
STX 
BSI 
PRTOL DC 
LD 
SLA 
BSC 
LOX 
XIO 
XIO 
LDX 

DLYl SRA 
A 

BSC 
MDX 
MOX 
LOX 

DLEX BSC 

« 

********^^:^, 

* 



3 

HFFFF 

HI 802 

*£2 

H7FFF 

*-* 

H8000 

TABLEe2 

<XLOG 

CKMON 

CNTB 

GTHEX-l,Z 



16 

L SFLSW 
L CNTA.tl 
GTCNT 

2 5 
♦£1 



SET UP 
NUMBER OF 
CHARACTERS 
TO BE 
PRINTED 



CHECK WHICH PRINTER 



- BR IF MORE HEX CHARACTERS 
CLEAR SWITCH AND ACC 



2 6 

3 HOOIF-T 
3 TABLE+1-T 
3 TABLE+2-T 

TVPIT 

CKMON 

16 

TABLE+1 

POAT 

L PRTOL 

L OPTIN 

L STRT.Z*- 

L CNTRL,* 

L RIDCK 
L STRT,+- 

I END 

*-♦ 
13 CKMON 
L3 MLSCF 
I START 

*-* 
L SW2 

9 
L DLEX,- 
L3 T 
3 RESET-T 
3 SNSRS-T 
L3 5 

16 
L HOOOl 
L *-4,- 
3 -1 
DLYl 
L3 T 
I PRTDL 



GO PRINT MSG 



CHECK FOR 1132 DELAY 

BR IF OPTION SH 15 ON 
BR IF NO RTN SEL ECTED 



1132 PRINT DELAY ROUTINE 

CHECK FOR 1132 PRINTER 
BR IF NOT 1132 PRINTER 

RESET BSCA 
SENSE AND RST DSH 
LOAD DELAY COUNT 
1132 PRINT DELAY 
DECR. COUNT 



RESTORE INDEX 3 
RETURN 



******************,^t1c*^,^i^^^^^^^^,^ 

STORE ALPHA HSG IN PRINT TABLE 



31619740 

31619750 

31619760 

31619770 

31619780 

31619790 

31619800 

31619810 

31619820 

31619830 

31619840 

31619850 

31619860 

31619870 

31619880 

31619890 

31619900 

31619910 

31619920 

31619930 

31619940 

31619950 

31619960 

31619970 

31619980 

31619990 

31620000 

31620010 

31620020 

31620030 

31620040 

31620050 

31620060 

31620070 

31620080 

31620090 

31620100 

31620110 

31620120 

31620130 

31620140 

31620150 

31620160 

31620170 

31620180 

31620190 

31620200 

31620210 

31620220 

31620230 

31620240 

31620250 

31620260 

31620270 

31620280 

31620290 

31620300 

31620310 

31620320 

31620330 

31620340 

31620350 

31620360 

31620370 

31620380 

31620390 

31620400 

31620410 



DATE 
EC NO, 



010CT69 
571066 



o^JlJ^;70 

571097 



PROG ID 
PAGE 



0316-0 
15 



DATE 
EC NO. 



C10CT69 
571066 



01JUN70 
571097 



PROG ID 
PAGE 



0316-0 
15A 
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PART NO. 
PAGE 



2243977 
I6A 



OnF7 





0000 


0DF8 





0399 


0nF9 





F3P1 


ODFA 





n?AO 


OnFB 





COFB 


CDFC 





Doon 


npFn 





C30 3 


rOFE 


1 


^C2R 


OFOO 





C3A0 


OEOl 





039F 


0F9? 


1 


7401 


CF04 





939E 


OEOS 


1 


4C30 



OE?F 



nc^ 



0E2F 



* 

STALP DC *-* 

STO 3 TEMP-T 
EOR 3 MSG4-T 
STO 3 NOFRR-T 
LO STALP 
STO STOIT 
LD 3 FNOSW-T 

BSC L nUT+7,+2 
in 3 ENPNT-T 
STO 3 CNTPT-T 

MDX L CNTPT,+1 
S 3 TOP-T 

BSC t 0UTS7,Z- 



SAVE MSG AOORS 



SET UP 
RETURN 

BR IF X=99 INITIAL 



0F07 1 4C10 r.F?9 
0E09 70in 



BSC 

MOX 



L 0UTK2,- 
OUT 



BR IF NO MORE CORE 

BR IF ONE AODRS LEFT 
BR TO STORE MSG AODRS 



* STORF HEX CHARACTER IN PRINT TABLE 



SAVE HEX CHARACTER 



OEOA 





0000 




STOIT 


nc 




*-* 


OEOB 





0399 






STO 


3 


TEMP-T 


OEOC 





C3A0 






LD 


3 


ENPNT-T 


OEOD 





939F 






S 


3 


TOP-T 


OEOE 


1 


4C30 


0E2F 




BSC 


L 


OUTET.Z 



OFIO 1 4C10 f^F29 

0E12 C39F 
0F13 F3A0 
0F14 1 4C20 0F19 

0E16 1 7401 13C4 

0F18 70F3 

0F19 1 C480 nc? 

OFIB 83F7 

one 1 0480 13C3 

OEIE 1 4C04 0F27 

r'^2P 1 74FF 1 'r4 
OF?? C C9 9 

OF??s r i'?"'^ 
nF24 1 treo i^c, 

0F26 7003 

0^77 r-^qq 

GF2B 7001 

0P?9 €367 

OE?a 1 048-1 13C4 

0F2C 1 7401 nr4 

0F2F I'HC 

or?r 1 0480 r^C4 

0F31 1 4C8C OFOA 



BSC L 0UTE2,- 



LO 

EOR 
RSC 



3 CNTPT-T 
3 ENPNT-T 
L *&3,Z 



MOX L ENPNT,ei 
MOX ST0ITe2 

LD I CNTPT 

A 3 HOOOl-T 

STQ I CNTPT 

BSC L OUT.E 



OUT 



«nx 

LO 

SPA 

OR 

Mnx 

LO 

MOX 

LO 

STO 

MDX 

SLA 

STO 

BSC 



L FNPNT,-! 
3 TFMP-T 

8 
I ENPNT 
OUT S3 

? TFMP-T 

*£1 
3 MSG5-T 
I ENPNT 
L ENPNT, ei 

16 
I FNPNT 
I STOIT 



BR IF NO MORE CORE 

BR IF ONE ADDRESS LEFT 

BR IF ALPH MSG WAS LAST 

INCRE POINTER 
BRANCH 

ADD 1 TO HEX CHAR CNT 

BR IF COUNT ODD 

PFCRF POINTER BY ONF 

PACK TWO HEX CHARACTERS 
BRANCH 

GFT CHARACTFR 
SKIP 

STO ALPH OR HFX MSG 
INCRF POINTFR BY ONE 

RETURN 



♦ INTERRUPT SERVICE ROUTINE 



SAVF XR2 

XR3#C0NSTANT TBL 
SENSE SFA nsw 
SAVF DSW 



0E3 3 





ooro 




INT 


DC 




*-* 


0F34 


1 


6F00 


1036 




STX 


L2 


FXIT+l 


0F36 


1 


6700 


l't?4 




LDX 


L3 


T 


0F38 





OBCF 






XIO 


3 


SNSRS-T 


0F39 





0395 






STO 


3 


DSW-T 


0E3A 





C394 






LD 


3 


RT8SY-T 


nF3B 


1 


4C18 


1031 




BSC 


L 


EXITl,?:- 



BR IF RTN NOT BUSY 



31620420 

31620430 

31620440 

31620450 

31620460 

31620470 

31620480 

31620490 

31620500 

31620510 

31620520 

31620530 

31620540 

31620550 

31620560 

31620570 

316205 80 

31620590 

31620600 

31620610 

31620620 

31620630 

31620640 

31620650 

31620660 

31620670 

31620680 

31620690 

31620700 

31620710 

31620720 

31620730 

31620740 

31620750 

31620760 

31620770 

31620780 

31620790 

31620800 

31620810 

31620820 

31620830 

31620840 

31620850 

31620860 

31620870 

31620880 

31620890 

31620900 

31620910 

316209 20 

31620930 

31620940 

31620950 

31620960 

31620970 

31620980 

31620990 

31621000 

31621010 

31621020 

31621030 

31621040 

31621050 

31621060 

31621070 

31621080 

31621090 



0E3D C3FC 
0E3E D398 

0E3F C392 
0F40 1 4C18 0F7C 



0F42 C395 
0E43 1003 
0F44 1 4C10 0E50 



LD 
STO 

LD 
BSC 



3 H7FFF-T 
3 WTCNT-T 

3 FCODE-T 
L RECV,S- 



RESTORF WAIT COUNT 



BR IF RECV FUNCTION 



TRANSMIT FUNCTION 



0E46 
0E47 
0E48 
0F49 

0E4A 



C385 
93C0 
4818 
OBCO 
C3E5 



nF4B D391 



0E4C 
0E4D 



0E4E 1 



C395 
1001 
4C10 1035 



0E50 C389 
0E51 1 4C20 0E6C 

0E53 C385 
0E54 93C0 
0E55 1 4C30 0F6C 

0F57 C391 
0F58 1 4C08 0E6C 

0E5A 93E7 
0E5B D391 
0E5C 1 4C18 0E67 

0F5E C385 
0E5F 93C0 
0F60 1 4C20 0E67 

0F62 C309 

0E63 C 4PA6 

nF64 0fiC2 

OF65 1 4C00 1035 

0F67 C3D8 
0068 40A1 
0F69 0BC4 
0F6& 1 4C00 1035 

0F6C C387 
0F6D 1 4C04 0E76 

0F6F 1 C480 1307 
0F71 E3F5 
0E72 0390 
0F73 1 7401 13AB 
OE75 702B 

0E76 1 C480 13B7 
0F78 1008 
0F79 1 7401 13B7 
0F7B 70F6 



LO 

SLA 

BSC 

LD 

S 

BSC 

XIO 

LO 

STO 

LD 

SLA 

BSC 

« 

WRESP LD 
BSC 

LO 
S 

BSC 
* 

LD 
BSC 

S 

STO 

BSC 

LD 

S 

BSC 

* 

LD 

8SI 

xin 

BSC 

« 

WSYNC LD 
BSI 

xin 

BSC 

CKCNT LD 
BSC 

* 

LO 
AND 
STBFP STO 
MOX 

MDX 



* 
ODD 



* 



LO 
SLA 
MDX 
MDX 



3 DSW-T 
3 
L WRESP, - 

3 MDSWT-T 
3 H0003-T 

6- 
3 TIMFR-T 
3 H0002-T 
3 SYNC-T 
3 OSW-T 

1 
L EXIT,- 

3 LSDLE-T 
L CKCNT, Z 

3 MDSWT-T 

3 H0003-T 

L CKCNT, Z- 

3 SYNC-T 
L CKCNT, £ 

3 HOOOl-T 

3 SYNC-T 

L WSYNC, e- 

3 MOSWT-T 

3 H0003-T 

L WSYNC, Z 

3 DLE-T 
STOIT 
3 WRDLE-T 
L EXIT 

3 SYN-T 
STOIT 
3 WRSYN-T 
L EXIT 

3 COUNT-T 
L ODD,E 

1 POINT 
3 HFFOO-T 
3 BUFFR-T 

L COUNT, 61 

MOXMD 

I POINT 

8 
L POINT, Gl 

STBER 



BR IF NO TIMEOUT 



SKIP NOT TRANS MODE 
START PROG TIMER 

XMIT SYNS INO TO 2 



RETURN IF NOT WR RESP 
BR IF LAST CHAR WAS OLE 

BR IF BCC TIME 

BR IF SYNS INO ZERO 
OECRE SYNS INO BY ONE 
BR IF SYNS IND ZERO 

BR IF NOT TRANS MODE 



STORE DLF IN PRINT TBL 

XMIT DIF 

RETURN 



STORE SYN IN PRINT TBL 

XMIT SYN 

RETURN 



BR IE CHAR COUNT ODD 

GET WORD FROM I/O ARFA 
MASK OUT BITS 8-15 
PUT CHAR IN BUFFER 
INCRE CHAR COUNT Gl 
GO TO CK MODE 

GET WORD FROM I/O AREA 
BITS 8-15 TO WRITE POSIT 
INCRE AOOR POINTER 61 



RECEIVE FUNCTION 



31621100 

31621110 

31621120 

31621130 

31621140 

31621150 

31621160 

31621170 

31621180 

31621190 

31621200 

31621210 

31621220 

31621230 

31621240 

31621250 

31621260 

31621270 

31621280 

31621290 

31621300 

31621310 

31621320 

31621330 

31621340 

31621350 

31621360 

31621370 

31621380 

31621390 

31621400 

31621410 

31621420 

31621430 

31621440 

31621450 

31621460 

31621470 

31621480 

31621490 

31621500 

31621510 

31621520 

31621530 

31621540 

31621550 

31621560 

31621570 

31621580 

31621590 

31621600 

31621610 

31621620 

31621630 

31621640 

31621650 

31621660 

31621670 

31621680 

31621690 

31621700 

31621710 

31621720 

31621730 

31621740 

31621750 

31621760 

31621770 



DATF 
EC NO. 



01DCT6g 
5 71066 



C1JUN7C 
571097 



PROG 10 


316-0 


DATE 


010CT69 


01JUN70 


PAGE 


16 


EC NO. 


571066 


571097 



PROG ID 
PAGE 



0316-0 
16A 
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DATE 
EC NO. 



0E7C C395 

0E7D 1003 

0E7F 1 4C10 0F87 

0E80 C3F6 

0E81 0390 

0E8? C3AE 

0F83 1 4400 0OF7 

0E85 1 4C00 10?F 



* 

RECV 



LO 3 OSW-T 

SLA 3 

8SC L READB,- 



0F87 
0E88 
0E89 1 
0E8B 
0E8C 
0E80 1 
0E8F 
0E90 1 
0E92 
0F93 
0F94 
0E96 
0E97 
0F98 
0E99 
0E9A 
0F9B 
0E9C 
0E9D 1 
0E9F 
OFAO 



0RC8 

C390 

4400 OFOA 

C390 

F?n9 

4C18 OFAl 

C305 

4C?8 0F99 

C390 

F3DD 

'fCaO OEAl 

COOO 

0305 

7008 

1810 

0305 

C390 

F3E8 

4C20 OEAl 

COOO 

0307 



LD 

STO 
LD 
BSI 
BSC 

* 

P.EAOB XIO 
LD 
BSI 
LD 
FOR 
BSC 
LD 
BSC 
LO 
EOR 
BSC 
LD 
STO 
MDX 
TTDCK SRA 
STO 
LD 
EOR 
BSC 
LD 
STO 



3 HFFFF-T 
3 BUFFR-T 
3 MSGl-T 
L STALP 
L RCFXT 



OEAl 1 6680 13A9 
0EA3 1 4E80 0EA5 
0FA5 1 OEAC 
0EA6 1 0EC5 
0EA7 1 OECD 
0EA8 1 OEDE 
0EA9 1 OFIF 
OEAA 1 0F32 
OEAB 1 0F5F 



OFAC C38B 
OFAO 1 6C00 13AF 
OFAF 4818 

OFBC OBCA 

OFPl C3<50 

0FR2 F3Ffl 

0FB3 4820 

0FB4 F3EB 

0FB5 1 4C1B OFfl 

0EB7 C390 
OrP8 F3E4 
0FB9 1 4C18 OFCl 

0F8B C390 

OrnC F30A 

OFBO 1 4C20 nF67 

OFRF 1 6C0C ITAB 



REAO-T 

BUFFR-T 

STOIT 

BUFFR-T 

DLE-T 

MDXMD,*- 

STXSW-T 

TTDCK, ♦Z 

BUFFR-T 

STX-T 

MOXMD.Z 

* 

STXSW-T 

MDXMD 

16 

STXSW-T 

BUFFR-T 

ENO-T 

MDXMD, Z 
* 

TTDSH-T 



BR IF NOT TIMEOUT 



SET TIMFnUT END 
STORE TIMEOUT MSG 
IN PRINT TBL 



READ SCA BUFFER 

STO CHAR IN PRINT TBL 
GET CHARACTER 

BR IF OLE 

BR IF LAST CHAR WAS STX 
GET CHARACTER 

BR IF NOT STX 

SET STX RCVD SWITCH 

RESET STX SWITCH 
GET CHARACTER 

BR IF NOT TTD 

SET TTD FLAG 



BRANCH TO PROPER MODE 



MDXMD LDX 
BSC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



I? MDSWT 
12 * 

NOMOO 

HEADG 

NORML 

TRANS 

8CC1 

BCC? 

ITBMO 



GET HOOF INDICATOR 
TO PROPER ROUTINE 
NO MODE SET 
XMIT/REC HEADING 
XHIT/REC NORM TEXT 
XMfT/REC TRANS TEXT 
XMIT/RFC LOW OPD BCC 
XMIT/RFC HIGK ORD BCC R2 
INT 8LK CK MODE R2 



R2= 
R2= 
R2= 
P2= 
R?= 



* 

* 

NOMOO LD 
STX 
BSC 
* 

XIO 

LD 

EOR 

8SC 

EOR 

BSC 

LO 

FOR 

BSC 

♦ 

CKWAK LO 
EOR 
BSC 
STX 



NO MODF SFT 
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3 FIRST-T 
L FIRST 

■»•- 



RETIM-T 

BUFFR-T 

ENO-T 

Z 

EOEOT-T 

DONF,£- 

BUFFR-T 

NAK-T 

OONF.E- 

BUFFP-T 
WAK-T 
CKSTXGl.Z 
MSWAK 



SET FIRST CHAR I NO 
SKIP IF IND ON 

RFSTART TIMFR 



SKIP IF FNO 

BR IF ENO OR EOT 



BR IF NAK 



BR IF NOT WACK 

SET WACK RECEIVED FLAG 



010CTf,9 
571066 



01JUN70 
571097 



31621780 

31621790 

31621800 

31621810 

31621820 

31621830 

31621840 

31621850 

31621860 

31621870 

31621880 

31621890 

31621900 

31621910 

31621920 

31621930 

31621940 

31621950 

31621960 

31621970 

31621980 

31621990 

31622000 

31622010 

31622020 

31622030 

31622040 

31622050 

31622060 

31622070 

31622080 

31622090 

31622100 

31622110 

31622120 

31622130 

31622140 

31622150 

31622160 

31622170 

31622180 

31622190 

31622200 

31622210 

31622220 

31622230 

31622240 

316??250 

31622260 

31622270 

31622280 

31622290 

31622300 

31622310 

31622320 

31622330 

31622340 

31622350 

31622360 

31622370 

31622380 

31622390 

31622400 

31622410 

31622420 

31622430 

31672440 

31622450 



PROG 10 
PAGE 
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1130 



0316-0 
17 



OFCl 1010 
0FC2 0394 
0EC3 1 4CO0 OFFE 



0FC5 1 4400 OFAD 
0EC7 1 4400 0F66 
0EC9 1 4400 OFCl 
OECB 1 4C00 OFDC 



* 
DONE 



SLA 
STO 
BSC 



OECO 1 
OECF 
OEOO 
OEOl 
0FD2 
0E03 
0FD4 
0E05 I 
0ED7 1 
0ED9 1 



4400 OFAO 

C390 

F3D9 

4820 

F3EG 

4820 

F308 

4C18 OEDB 

4400 OFCl 

4C00 OFDC 



OFDB COOO 
OFDC 0386 
OEDD 70FB 



OEOE C389 
OEOF 1 4C20 0FE9 

OEEl C390 

0FE2 F3D9 

0EE3 1 4C20 OFDC 

0FE5 COOO 

0EE6 D389 

0EE7 1 4CO0 OFEF 

0FE9 1010 
OEEA D389 
OFFB C392 
OEFC 1 4C20 OEFF 

OEFE C390 
OFEF F308 
OEFO 1 4C18 0F08 

0EF2 F30C 
0EF3 I 4C20 0FF9 

0FF5 1 4400 OFOF 
0FF7 1 4C0O 1035 

0FF9 1 4400 OFCl 

0EF8 COOO 

OEFC 0386 

OEFD 1 4C00 OFDC 

OEFF 1 C48C 13B6 
OFOl 9387 
OFO? 1 4C30 0F08 



TRANSMIT/RECEIVE HEADING TEXT 



* — . 

* 

* 

HEADG BSI 
BSI 
BSI 

BSC 

* 

* 

NORML BSI 
LO 
EOR 
BSC 
EOR 
BSC 
EOR 
BSC 
BSI 
BSC 

LD 
STO 

MDX 



16 
3 RTBSY-T 
L RDWRT 



RESET RTN BUSY IND 



CKSYN 
CKSTX 
CKENO 
BLKCK 



GO CHECK FOR SYN CHAR 
GO CHECK FOR START CHAR 
GO CHECK FOR END CHAR 
CALC BCC AND XMIT OR STO 



TRANSMIT/RECEIVE NORMAt TEXT 



CKSYN 
3 BUFFR-T 
3 OLE-T 

Z 
3 DLSTX-T 

Z 
3 SXSOH-T 

*+4,+- 

CKENO 

BLKCK 

* 
3 ERR-T 
*-5 



GO CK FOR SVN CHAR 

SKIP IF OLE CHAR 

SKIP IF OLE OR STX 

BR IF OLE STX OR STX 

GO CK FOR END CHAR 

GO TO XMIT OR STO CHAR 

SET ERROR INDICATOR 



TRANS LD 
BSC 

LD 

EOR 

BSC 

LO 

STO 

8SC 

DLESO SLA 
STO 
LD 
BSC 

LD 

EOR 

BSC 

EOR 
BSC 

BSI 
BSC 

* 

NOTDL BSI 
LD 
STO 

BSC 

♦ 

XMTOP LO 
S 
BSC 



TRANSMIT/RECEIVE TRANSPARENT TEXT 
BR IF LAST CHAR MAS OLE 



3 LSDLE-T 
L DLESQ.Z 



3 BUFFR-T 
3 DLE-T 
L BLKCK, Z 

* 

3 LSDLE-T 
L ROWRT 

16 
3 LSDLE-T 
3 FCOOE-T 
L XMTOP, Z 

3 BUFFR-T 
3 SYN-T 
L DCRCT,6- 

3 DLSYN-T 
L NOTDL, Z 

L CALBC 
L EXIT 

L CKEND 

3 ERR-T 
L BLKCK 

I FCODE 

3 COUNT-T 
L DCRCT.Z- 



BR IF NOT DLC IN BUFFER 
SET LAST OLE IND 

RESET LAST CHAR OLE IND 
BR IF XMIT FUNCTION 

BR IF SYN RECVD 

BR IF NOT OLE RECVO 
GO CALCULATE BCC 

GO CK FOR END CHAR 
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BR IF NOT LAST CHAR XMIT 



DATf 
EC NO. 



010CT69 
571066 



01JUN70 
571097 



31622460 

31622470 

31622480 

31622490 

31622500 

31622510 

31622520 

31622530 

31622540 

31622550 

31622560 

31622570 

31622580 

31622590 

31622600 

31622610 

31622620 

31622630 

31622640 

31622650 

31622660 

31622670 

31622680 

31622690 

31622700 

31622710 

31622720 

31622730 

31622740 

31622750 

31622760 

31622770 

31622780 

31622790 

31622800 

31622810 

31622820 

31622830 

31622840 

31622850 

31622860 

31622870 

31622880 

31622890 

31622900 

31622910 

31622920 

31622930 

31622940 

31622950 

31622960 

31622970 

31622980 

31622990 

31623000 

31623010 

31623020 

31623030 

31623040 

31623050 

31623060 

31623070 

31623080 

31623090 

31623100 

31623110 

31623120 

31623130 



PROG ID 
PAGE 



0316-0 
17A 



IPI^ fMhJrt.fiKCf OIA^^^nST ir PPi-",H4h' rOH THF 1110 SYSTTM 
1130 PSr PT-Tti-PT r y'"' /?T'0 — <=K 



im 
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PART Nil. 
PAGF 



-?2439r7 
18A 



CF04 


1 


440 n 


OFCl 




BSI 


L 


CKENO 


GO CK FOR END CHAR 


31623140 


CFOft 


1 


4C00 


1027 


* 


BSC 


L 


XMFXT 




31623150 
31623160 


0F08 


C 


C387 




3CRCT 


LD 


3 


COUNT-T 




31623170 


OFoq 


1 


4C04 


OFOD 




BSC 


L 


*e2,F 


BR IF COUNT 000 


31623180 


OFOB 


1 


74FF 


13B7 




HDX 


L 


POINT, -1 


DECRE ADDS POINTER -1 


31623190 


OFOO 


1 


74FF 


13AB 




MOX 


L 


COUNT, -1 


DECRE COUNT -1 


31623200 


OFOF 





C39? 






LD 


3 


FCODE-T 




31623210 


OF 10 


1 


4C20 


OFl 5 


* 


BSC 


L 


WRF.Z 


BR IF XMIT FUNCTION 


31623220 
31623230 


OF 12 





ORCA 






XIO 


3 


RETIM-T 


RESTART TIMER 


31623240 


0F13 


1 


4CG0 


1035 


* 


BSC 


L 


EXIT 




31623250 
31623260 


0F15 





0BC2 




WRF 


XIO 


3 


WRDLE-T 


XMIT OLE CHAR 


31623270 


nF16 





C3D9 






LO 


3 


OLE-T 




31623280 


0F17 





D390 






STO 


3 


BUFFR-T 




31623290 


OF 18 


1 


4400 


OFDE 




RSI 


L 


CALBC 




31623300 


OFIA 





C309 






LD 


3 


DLE-T 




31623310 


OFIR 


1 


4400 


OFOA 




BSI 


L 


STOIT 




31623320 


OFID 


1 


4C00 


1035 




BSC 


L 


EXIT 




31623330 
31623340 
31623350 




























* 






TRANSMIT/RECEIVE BCC CHARACTERS 


31623360 
31623370 


















\ 


OF IF 





620>i 




BCCl 


LOX 


2 


5 




31623380 


0F?0 


1 


6E00 


13A9 




STX 


L2 


MDSWT 


SET BCC2 IN MODE IND 


31623390 


0F22 





C392 






LO 


3 


FCOOE-T 




31623400 


0F23 


1 


4C20 


OP?A 


* 


PSC 


L 


XHBCCZ 


BR IF XMIT FUNCTION 


31623410 
31623420 


0F25 





C390 






LD 


3 


BUFFR-T 




31623430 


0F26 





1808 






SRA 




8 


SAVE LOW OROFR 8 BITS 


31623440 


0F27 


c 


D396 






STD 


■^ 


BCCR-T 


OF BLOCK CK CHAR 


31623450 


0F2e 


1 


4cno 


n^s 


* 


BSC 


L 


EXIT 




31623460 
31623470 


0F?A 





C388 




XMBCC 


LO 


3 


BCCA-T 




31623480 


0F2B 





1008 






SLA 




8 


GET LOW 8 BITS BCCA 


31623490 


0F2C 





D39G 






srn 


3 


BUFFR-T 


PUT IN BUFFFP 


31623500 


0F2D 


1 


4400 


OFOA 




RSI 


L 


STCIT 




31623510 


OF-'F 


c 


ORCr 






XIP 


3 


WPPUF-T 


XMIT BUFFFP 


31623520 


OF 3 


I 


4Cor 


1135 


J 


HSC 


L 


EXIT 




31623530 
31623540 


rr->7 





C?'^? 




Bcr ? 


LD 


i 


Fcrnr-T 




31623550 


rr3^ 


1 


4C?C 


"F/.1 


* 


s<:r 


L 


XKl ST,Z 


BR IF XMIT FUNCTinig 


3U 23560 
31673570 


OF'; 5 


r 


C39G 






LD 


3 


PUFFR-T 




31623580 


0F36 





EB96 






OR 


3 


BCCR-T 




31623590 


0F37 





D396 






STO 


3 


8CCR-T 


SAVE RECVD BCC CHAP 


31623600 


OF 3 8 





9388 






S 


3 


BCCA-T 




31623610 


0F3g 





4B2C 






BSC 




Z 


SKIP IF NO BCC ERROR 


31623620 


0F3A 





0386 






STO 


3 


ERR-T 


SET ERROR IND 


31623630 


0F3B 





D388 






STO 


3 


BCCA-T 




31623640 


0F3C 





C38F 






LD 


3 


MOSAV-T 




31623650 


0F30 


1 


4C18 


in2F 


* 


BSC 


L 


RCEXT,+- 




31623660 
31623670 


0F3F 





620^ 






LDX 


2 


6 




31623680 


0F40 


1 


6E00 


13A9 




STX 


L2 


MDSWT 




31623690 


0F42 





70En 




« 


MDX 




3CC2-2 




31623700 
31623710 


0F43 





C38D 




XML ST 


LO 


3 


PAD-T 




31623720 


0F44 


1 


4C20 


OF57 


* 


BSC 


L 


XMPAD,Z 


BR TO XMIT PAD 


31623730 
31623740 


0F46 





C388 






LO 


3 


BCCA-T 




31623750 


0F47 





E3F5 






AND 


3 


HFFOO-T 




31623760 


0F48 





D390 






STO 


3 


BUFFR-T 


PUT BCC CHAR IN BUFFR 


31623770 


0F49 


1 


4400 


OFOA 




BSI 


L 


STOIT 




31623780 


0F4R 





OBCC 






XIO 


3 


WRBUF-T 


WRITF BUFFER 


31623790 


0F4C 





C38r 






LD 


3 


KDSAV-T 




31623900 


0F4D 


1 


4C1P 


0F53 




BSC 


L 


*£4,S- 


BR IF NO ITB 


31623810 



0F4F Q 6206 
0F50 1 6E00 13A9 
0F52 7002 
0F53 1 6C00 13B1 
0F55 1 4C00 1035 

CF57 C3F5 
CF58 D390 
0F59 OBCC 
0F5A 1010 
CF5B 0390 
0F5C 1 4C00 1027 



0F5F 





404E 


0F5F 





C38F 


0F60 





D385 


0F61 





1010 


0F62 





D388 


0F63 


G 


038F 



0F64 1 4C00 OFDC 



0F66 0000 
0F67 C389 
0F68 1 4C20 0F70 

0F6A C C390 
0F6B F3D9 
0F6C 1 4C18 0F9C 

0F6E C C38C 
0F6F 1 4C20 0F97 

0F71 C390 
0F72 F3D0 
0F73 1 4C18 CFPr 

rF75 F3DB 
nF76 1 4C18 OFA^ 

0F78 C38P 
0F79 1 4C98 0F66 

0F7B D38C 
0F7C 701A 

0F7D 1010 
0F7E 0389 

0F7F C38C 
0F80 1 4C20 OFCl 

0F82 C390 
0F83 F3DD 
0F84 1 4C20 nF91 



0F86 
0F87 
0F89 



0F8C 
0F8D 



6203 

1 6E00 13A9 
C392 

0F8A 4820 
0F8B OBCO 

C38B 

1 4C18 OFDC 
0F8F 1 4C00 OFEE 





LOX 


2 


6 




STX 


L2 


MDSWT 




MOX 




*E2 




STX 


L 


PAD 




BSC 


L 


EXIT 


* 








XMPAD 


LO 


3 


HFFOO-T 




STO 


3 


BUFFR-T 




XIO 


3 


WRBUF-T 




SLA 




16 




STO 


3 


BUFFR-T 




BSC 


L 


XMEXT 


* 








ITBMO 


BSI 




CKSYN 




LO 


3 


MOSAV-T 




STO 


3 


MDSHT-T 




SLA 




16 




STO 


3 


BCCA-T 




STO 


3 


MDSAV-T 




BSC 


L 


BLKCK 



SET ITB MODE 
SET XMIT PAD INO 



SET PAD IN BUFFR 
XMIT PAD 



^ 

* 

^ 

CKSTX DC 
LO 
BSC 

* 

LO 

EOR 

BSC 

LO 
BSC 

LO 

EOR 

BSC 

FOR 
PSC 
* 

LO 
BSC 

STO 
MDX 

* 

STXCK SLA 
STO 

* 

LD 
BSC 

LO 

FOR 

BSC 

* 

LDX 

STX 

LO 

BSC 

XIO 

CKFST LD 
BSC 
BSC 

* 



CHECK FOR START OF TEXT 



*-* 
3 LSOLE-T 
L STXCK, Z 

3 BUFFR-T 
3 OLE-T 
L BFDLE,6- 

3 SECND-T 
L WTEXT,Z 

3 BUFFR-T 
3 STX-T 
L BFSTX.E- 

3 SXSOH-T 
I BFSOH,e- 

3 FIPST-T 
1 CKSTX, 6- 

3 SFCNO-T 
WTEXT 

16 
3 LSDLE-T 

3 SECND-T 
L DONE.Z 

3 BUFFR-T 
3 STX-T 
L NOSTX,Z 

2 3 

L2 MOSWT 

3 FCOOE-T 
Z 

3 TIMER-T 
3 FIRST-T 

L BLKCK, £- 

L RDWRT 



RR IF LAST CHAR OLE 



BR IF OLE IN BUFFER 



BR IF STX IN BUFFER 

BR IF SOH IN BUFFER 

BR IF SFCND WO INO ZERO 
SET SECOND WORD IND 

RESET LAST CHAR OLE INO 



BR NOT STX IN BUFFER 



SET TRANSPARENT MODE 

SKIP IF RECV FUNCTION 
START PROG TIMER 

BR IF NOT FIRST CHAR 



31623820 

31623830 

31623840 

31623850 

31623860 

31623870 

31623380 

31623890 

31623900 

31623910 

31623920 

31623930 

31623940 

31623950 

31623960 

31623970 

31623980 

31623990 

31624000 

31624010 

31624020 

31624030 

31624040 

31624050 

31624060 

31624070 

31624080 

31624090 

31624100 

31624110 

31624120 

31624130 

31624140 

31624150 

31624160 

31624170 

31624180 

31624190 

31624200 

31624210 

31624220 

31624230 

31624240 

31624250 

31624260 

31624270 

31624280 

31624290 

31624300 

31624310 

31624320 

31624330 

31624340 

31624350 

31624360 

31624370 

31624380 

31624390 

31624400 

31624410 

31624420 

31624430 

31624440 

31624450 

31624460 

31624470 

31624480 

31624490 



DATE 

EC NO. 



010CT6Q 
571066 



1JUN70 
571 0"7 



PROG ID 


0316-0 


DATE 


010CT69 


01JUN70 


PAGE 
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EC NO. 


571066 


571097 
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PAGE 
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0F91 C38B 
0F9? 1 4C20 OfCl 

0F94 COOO 
0F95 C D386 
0F96 7CF5 

nF97 f) C^92 
0F98 1 4C18 1035 

0F9A 1 4C00 OFFE 

0F9C C COOO 
0F9D D389 
0F9F 70FD 

0F9F 6202 
OFAO 1 6EO0 13A9 
0FA2 70F9 



0FA3 
0FA4 
0FA6 
0FA7 
0FA8 
0FA9 
OFAA 
OFAC 



C38P 

4C18 0F94 
1010 
D38B 
D38C 
6201 

6E00 13A9 
70E2 



OFAO 0000 
OFAE C390 
OFAF F3D8 
OFBO 1 4C20 OFBO 

0FB2 0389 
0Ffi3 C C392 
0FB4 1 4C20 OFEE 

0FB6 C38A 
0FB7 4820 
0FB8 OBCA 
0FB9 COOO 
OFBA 038A 
OFBB 1 4C00 103S 

OFBD IGIO 
OFRF D38A 
OFBF 1 4C80 OFAO 



OFCi n 0000 

OFC? C390 

0FC3 F3EC 

0FC4 4fl?C 

0FC5 r F3FD 

0FC6 1 4C18 0FD9 

0FC8 C390 

0FC9 F3E8 

OFCA 4820 

OFCB r F3ER 

OFCC I 4C20 r^Fn3 



NnSTX LD 
BSC 

SETFR LD 
STO 

MOX 

« 

WTFXT LD 

BSC 
* 

BSC 

* 

8FDLE LO 
STO 

MOX 

* 

8FSTX LDX 
STX 

MOX 

* 

BFSOH LD 
BSC 
SLA 

STO 
STO 
LDX 
STX 

MOX 

* 

* 

♦ 

* 

CKSYN DC 
LD 
EOR 
BSC 

* 

STO 

LD 

BSC 

LD 

BSC 

XIO 

LD 

STO 

BSC 

NOSYN SLA 
STO 
BSC 

* 

* 

* 

CKEND DC 
LD 
EOR 
BSC 
FOR 
BSC 

* 

LD 

EOR 
BSC 
EOR 

Hsr 

* 



3 FIRST-T 
L DONE,? 



3 FRR-T 
CKFST 

3 FCnOE-T 
L rxiT,+- 

L RDWRT 



3 LSDLE-T 
CKFST 

2 2 

L2 MDSWT 
CKFST 

3 FIRST-T 
L SETFR, £- 

16 
3 FIRST-T 
3 SFCND-T 
2 1 
L2 MDSWT 
CKFSTe3 



SFT ERROR IHD 



SET LAST CHAR DLE IND 



SET NORMAL TEXT MODE 



BR IF NOT FIRST CHAR 

RESET FIRST CHAR IND 
RESET SECOND CHAR IND 

SET HEADING MODE 



CHECK FOR SYN CHARACTER 



*-* 
3 BUFFR-T 
3 SYN-T 
L NOSYN, Z 

3 LSDLE-T 

3 FCODE-T 

L ROWRT.Z 

3 LSYN-T 

T 
3 RETIM-T 

* 

3 LSYN-T 
L EXIT 

16 
3 LSYN-T 
I CKSYN 



BR IF NOT SYN IN BUFFER 
RESET LAST CHAR DLE IND 
BR IF XMIT FUNCTION 



SKIP IF LAST CHAR NOT SYN 
RESTART TIMER 

SET LAST CHAR SYN IND 



RESET LAST CHAR SYN IND 



CHECK FOR END CHARACTER 



*-* 
3 BUFFR-T 
3 FTB-T 

2 
3 FRFTX-T 
I SET9C,C- 

3 BUFFR-T 
3 ENQ-T 

7 
3 EOEOT-T 
L *<-5,Z 



SKIP IF FTB IN BUFFER 

BR IF FTX OR FTR IN BUFFR 

SKIP IF FNQ IN BUFFR 



31624500 

31624510 

31624520 

31624530 

31624540 

316245 50 

31624560 

31624570 

31624580 

31624590 

31624600 

31624610 

31624620 

31624630 

31624640 

31624650 

31624660 

31624670 

31624680 

31624690 

31624700 

31624710 

316 24720 

31624730 

31624740 

31624750 

31624760 

31624770 

31624780 

31624790 

31624800 

31624810 

31624820 

31624830 

31624640 

31624850 

31624860 

316248 70 

31624880 

31624890 

31624900 

31624910 

31624920 

31624930 

31624940 

31624950 

31624960 

31624970 

31624980 

31624990 

31625000 

31625010 

31625020 

31625030 

31625040 

31625050 

31625060 

31625070 

31625080 

31625090 

31625100 

31625110 

31625120 

31625130 

31625140 

31625150 

31625160 

31625170 
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OFCE D394 
OFCF COOO 
OFDO 0386 
OFDl 1 4C00 OFFE 

0FD3 C390 
0FD4 F3EE 
0FD5 1 4CA0 OFCl 

0FD7 C385 
0FD8 D38F 

0FD9 6204 
OFDA 1 6E00 13A9 

OFOC 4001 
OFDD 7010 



OFOE 0000 
OFDF 6208 
OFEO C390 
OFiEl 1808 
0FE2 F388 
0FF3 1 4C04 0FF7 

0FE5 1801 
0FE6 7002 

0FE7 1801 
0FE8 F3FF 
0FE9 72FF 
OFEA 70F8 
OFEB D388 
OFEC 1 4C80 OFDE 



OFFF C392 
OFEF 1 4C20 0FF3 

OFFl C31E 
0FF2 7002 

0FF3 1 C480 13B6 
0FF5 9387 
0FF6 1 4C28 1019 

0FF8 C392 
0FF9 1 4C20 lOOB 

OFFB C387 
OFFC 1 4C04 100? 

OFFE C39C 
OFFF 1 0480 13B7 
1001 701F 

100? C390 

1003 1808 

1004 1 EC80 13R7 
1006 1 0480 13B7 
1008 1 7401 13B7 
lOOA 7016 



* 
SETBC 

* 
8LKCK 

* 



STO 
LO 
STO 
BSC 

LD 

EOR 

BSC 

LO 
STO 

LOX 
STX 

BSI 

MOX 



3 RTBSY-T 

3 FRR-T 
L RDWRT 

3 BUFFR-T 
3 ITB-T 
I CKEND, 2 

3 HDSHT-T 
3 MOSAV-T 

2 4 
L2 MDSWT 

CALBC 
RDWRT 



RESET BUSY IND 
SET ERROR IND 



SET MODE IND FOR BCC 
GO CALCULATE BCC 



CALCULATE BLOCK CHECK CHARACTER 



CALBC DC 
LDX 
LD 
SRA 
EOR 

BITCK BSC 

SRA 

MOX 

♦ 

ADPLY SRA 
EOR 

DECRE HOX 
MDX 
STO 
BSC 

* 

RDWRT LO 
BSC 



*-* 

2 8 

3 BUFFR-T 
8 

3 BCCA-T 
L ADPLY, E 

1 

DECRE 



3 POLYN-T 

2 -1 
BITCK 

3 BCCA-T 
I CALBC 



SET SHIFT COUNT TO 8 
GET CHAR FROM BUFFER 

ADO REMAINDER 



ADD POLYNOMIAL 
SKIP IF LAST SHIFT 

STORE NEM REMAINDER 



STORE RECEIVED CHARACTER OR 
TRANSMIT CHARACTER IN BUFFER 



LO 
MOX 

* 

LO 

S 

BSC 

* 

STOWR LD 
BSC 

LD 
BSC 

LD 

STO 

MOX 

* 

NEVEN LD 
SRA 
OR 
STO 
MDX 
MDX 



3 FCODE-T 
L *t2,Z 

3 RAREA-T 
*C2 

I EC ODE 

3 COUNT-T 
L CKBC1,+Z 

3 FCOOE-T 
L WRITE, 2 

3 COUNT-T 

L NEVEN, E 

3 BUFFR-T 
I POINT 
INC NT 

3 BUFFR-T 

8 
I POINT 
I POINT 
L POINT, ei 

INC NT 



BR ON FULL COUNT 



BR IF XMIT FUNCTION 



BR IF COUNT ODO 

PUT RECEIVED CHARACTER 
IN I/O AREA 



PACK TWO CHARACTERS 
PUT IN I/O AREA 
INCRE ADDR POINTER 61 



31625180 

31625190 

31625200 

31625210 

31625220 

31625230 

31625240 

31625250 

31625260 

31625270 

31625280 

31625290 

31625300 

31625310 

31625320 

31625330 

31625340 

31625350 

31625360 

31625370 

31625380 

31625390 

31625400 

31625410 

31625420 

31625430 

31625440 

31625450 

31625460 

31625470 

31625480 

31625490 

31625500 

31625510 

31625520 

31625530 

31625540 

31625550 

31625560 

31625570 

31625580 

31625590 

31625600 

31625610 

31625620 

31625630 

31625640 

31625650 

31625660 

31625670 

31625680 

31625690 

31625700 

31625710 

31625720 

31625730 

31625740 

31625750 

31625760 

31625770 

31625780 

31625790 

31625800 

31625810 

31625820 

31625830 

31625840 

31625850 



DATE 
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01J1JN7G 


EC NO. 


^71066 


57109 7 



PROG ID 
PAGE 



0316-0 
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DATE 
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0316-0 
19A 
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* 










31625860 


lOOB 





0390 




WRITE 


LO 


3 


BUFFR-T 




31625870 


noc 


1 


4400 


0!=0A 




BSI 


L 


STOIT 




31625880 


noF 





OBCC 






XIO 


3 


WRBUF-T 


WRITE BUFFER 


31625890 


lOOF 





C394 






LO 


3 


RTBSV-T 




31625900 


1010 


1 


4C20 


1035 


* 


BSC 


L 


EXIT.Z 




31625910 
31625920 


1012 


n 


6205 






LDX 


2 


5 




31625930 


1013 


1 


6E00 


nA9 




STX 


L2 


MOSWT 


SET MPOE FOR BrC2 


31625940 


1015 





COOO 






LD 




* 




31625950 


iri6 





D3RD 






STO 


3 


PAD-T 


SET XMIT PAD INO 


31625960 


1C17 





0394 






STO 


3 


RTBSY-T 


SET RTN BUSY INO 


31625970 


1018 





701C 




* 


MOX 




EXIT 




31625980 
31625990 


1C19 





C385 




CKRCl 


LD 


3 


MDSWT-T 




31626000 


ICIA 





9 3C6 






S 


3 


H0004-T 




31626010 


ICIP. 


1 


4C18 


OOFS 


* 


BSC 


L 


STOWR.e- 


BR IF MODE IND BCCl 


31626020 
31626030 


1010 





0386 






STO 


3 


ERR-T 




31626040 


lOlF 





C392 






LD 


3 


FCQDE-T 




31626050 


lOlF 


1 


4C20 


1027 


* 


BSC 


L 


XMEXT.Z 


BR IF XMIT MODE 


31626060 
31626070 


1021 


1 


7401 


13AB 


INC NT 


MDX 


L 


COUNT, 6,1 


INCRF COUNT CI 


31626080 


1023 





C394 






LO 


3 


RTBSY-T 




31626090 


1024 


1 


4C2 


1035 




BSC 


L 


FXIT.Z 




31626100 


1026 





700R 




* 


MDX 




RCEXT 




31626110 
31626120 
31 6261 30 










1^ 

* 






END TRANSMIT/RECEIVE 


31626140 










. 










316261 50 


1027 





C39A 




^ 

XMEXT 


LD 


3 


RFO-T 


GFT XMIT/RFC RFO 


J 1. \J £. \f L -^vi 

31626160 


1028 


1 


4C10 


102F 


* 


RSC 


L 


RCEXT, - 


BR IF XMIT ONLY 


31626170 
31626180 


102A 





1010 






SLA 




16 




31626190 


102R 


c 


D392 






STO 


3 


FCnOE-T 


SET RECEIVE FUNCTION 


31626200 


102C 


1 


4400 


0A2E 




BSI 


L 


GO 


START RECEIVE 


31626210 


102E 





7006 




* 


MOX 




EXIT 




31626220 
31626230 


102F 





COOO 




RCEXT 


LO 




* 




31626240 


1030 





D38F 




* 


STO 


3 


MSENO-T 


SET MSG END IND 


31626250 
31626260 


1031 





OBBC 




FXl Tl 


XIP 


3 


fNOPP-T 


ENO SCA OPrpATION 


316262 70 


1032 


r 


0BC6 






XIO 


3 


STRfn-T 


START PFAO 


31626280 


103 3 


r, 


1010 






SLA 




16 




31626290 


1034 


r 


394 






STO 


-> 


RTRSV-T 




31626300 


1035 





6600 


nnoo 


EXIT 


LDX 


L? 


*-* 




31626310 


1C37 


1 


4C8 


nr -2^ 


* 


RSC 


I 


INT 




31626320 
31626330 










***** 


******** 


*****#«**********************♦******** 


31626340 










* 










31626350 










* 






CHECK FOR PRINTER AVAILABILITY 


31626360 










♦ 










31626370 










* 






FUNCTION 


SWITCH 8=1- 1403 PRINTER 


31626380 










« 






FUNCTION 


SWITCH 9=1- 1132 PRINTER 


31626390 










J. 










31626400 










***** 


***************** 


f **************************** 


31626410 


103 9 





0000 




$XLnG 


oc 




*-* 


RTN ENTRY 


31626420 


103A 


1 


C40 


05E1 




LD 


L 


SW2 


GET FUNC 2 SW SETTINGS 


31626430 


103C 





1009 






SLA 




9 




31626440 


1030 


1 


4C02 


1045 




BSC 


L 


$XL03,C 


BCH IF 1403 PTR 


31626450 


103F 


1 


4C1C 


1040 




BSC 


L 


tXLNO,- 


BCH IF NOT 1132 


31626460 


1041 


c 


C005 






LO 




tXL32 


GET TAPLF AORS AND 


31626470 


1042 


1 


ECOO 


141F 




OR 


L 


H8000 


* OS IN BIT ZERO FOR 


31626480 


1044 


c 


0002 






STO 




$XL37 


* 113? PRINTFR 


31626490 
31626500 


1045 


1 


4400 


1 f"76 


tXLO? 


esi 


I 


*LUG 


USE LIN"^ PRINTER 


31626510 


1047 


I 


142D 




$XL3; 

* 


DC 




TARLF 


MSG TABLE ADPS 


31626520 
31626530 



1048 COFE 

1049 1001 
104A 1801 
1048 OOFB 
104C 7003 

1040 4480 0163 
104F 1 142D 

1050 1 4C80 1039 



1052 0000 

1053 1 C400 05F1 

1055 1009 

1056 1 4C02 105E 
1058 1 4C10 1066 
105A C0C5 
105B 1 FCOO 141F 
1C5D D002 

105E 1 4400 106C 

1060 1 142D 

1061 COFE 

1062 1001 

1063 1801 
1C64 DOFB 

1065 7004 

1066 4480 0162 

1068 1 14?D 

1069 OOOC 

106A 1 4C8C 1052 





LD 


$XL32 




SLA 


1 




SRA 


1 




STO 


$XL32 




MDX 


SXLGX 


* 






$XLNn 


RSI 


I LOG 




DC 


TABLF 


* 






JXLGX 


BSC 


[ IXLOG 



GET TABLE ADRS AND 

♦ REMOVE BIT ZERO 

* 

« 

GO TO EXIT 

USE CONSOLE PTR 
MSG TABLF ADRS 

RTN RETURN 
*************************************************** 
* 

* CHECK FOR PRINTER AVAILABILITY 
* 

* FUNCTION SWITCH 8=1- 1403 PRINTER 

* FUNCTION SWITCH 9=1- 1132 PRINTER 
* 

*************************************************** 
$ELOG DC *-* RTN ENTRY 

LO L SW2 GET FUNC 2 SW SETTINGS 

SLA 9 

BSC L $EL03,C BCH IF 1403 PTR 

BSC L $ELNO,- BCH IF NOT 1132 

LD $EL32 GET TABLE ADRS AND 

OR L H8000 * OR IN BIT ZERO FOR 

STO SEL32 * 1132 PRINTER 



L $FRR 
TABLF 

$EL32 

1 

1 

$EL32 

$ELGX 

I FRROR 
TABLE 


I $ELOG 



USE LINE PRINTER 
MSG TABLF ADRS 

GET TABLE AORS AND 

* REMOVE BIT ZERO 

* 

♦ 

GO TO EXIT 

USE CONSOLE PTR 
MSG TABl E ADRS 



RTN RETURN 



*EL03 BSI 
$EL32 DC 

* 

LD 
SLA 
SRA 
STO 
' MDX 
* 

$FLNO BSI 
DC 
DC 
* 

$ELGX BSC 

************************************************** 

* 

♦ 

THIS ROUTINE WILL LOG MESSAGES ON THE * 

1132 OR 1403 PRINTER * 

* 

THF PRINTER TYPE IS DEFINED BY BIT OF * 
THF MESSAGE ADDRESS IN THE CALLING SEQUENCE ♦ 

♦ 

BIT ON HILL SELECT THF 113? * 

BIT OFF WILL SELECT THE 1403 * 

* 

CONTROL IS RETURNED TO THE CALLING * 
PROGRAM UPON COMPLETION OF PRINTING THF * 
MESSAGE * 



* 
* 
* 
* 
* 
* 

* 
* 

* 
« 
* 
* 
* 



************************************************** 



* 
* 
* 
* 
« 
* 
* 
* 
* 
* 
* 



CALLING SEQUENCE 



BSI 

DC 



DC 
DC 
DC 
DC 



* 
* 

$LaG * 

AODRESSIBIT WILL SELECT PRINTER) * 

* 
* 
* 

* 
♦ 
* 



MESSAGE FORMAT 
MESSAGE NUMBER 
HEX/DECIMAL SWITCH 
DATA WORD ID 
FIRST ALPHA ADDRS 



31626540 

31626550 

31626560 

31626570 

31626580 

31626590 

31626600 

31626610 

31626620 

31626630 

31626640 

31626650 

31626660 

31626670 

31626680 

31626690 

31626700 

31626710 

31626720 

31626730 

31626740 

31626750 

31626760 

31626770 

31626780 

31626790 

31626800 

31626.810 

31626820 

31626830 

31626840 

31626850 

31626860 

31626870 

31626880 

31626890 

31626900 

31626910 

31626920 

31626930 

31626940 

31626950 

31626960 

31676970 

31626980 

31626990 

31627000 

31627010 

31627020 

31627030 

31627040 

31627050 

31627060 

31627070 

31627080 

31627090 

31627100 

31627110 

31627120 

31627130 

31627140 

31627150 

31627160 

31627170 

31627180 

31627190 

31677200 

31627210 



DATE 

FC NO. 



0]0CT6'1 
571066 



OlJUN'70 
571097 



PROG ID 


316-0 


DATE 


010CT69 


01JUN70 


PAGE 
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EC NO. 


571066 
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PROG ID 
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0316-0 
20 A 
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« 


DC 




SECOND 


ALPHA ADDRS * 


31627220 










« 






TO 15 


DATA WORDS * 


31627230 










* 








♦ 


31627240 










* 






NO OF WORDS DEFINED BY * 


31627250 










* 






BITS 1 


TO 15 OF DATA WORD ID * 


31627260 










* 








* 


31627270 










*****«**********♦****«*»»****««*»*««:* «*:»«#»;^*»<t^;^^ 


31627280 










* 










31627290 


106C 





0000 




$ERR 


DC 




♦ -* 


RTN ENTRY 


31627300 


1060 


1 


6D00 


HOB 




STX 


LI 


$XRl£l 


SAVE XR 1 


31627310 


106F 





COFC 






to 




$ERR 


GFT ENTRY AND XFER TO 


31627320 


1070 





D005 






STO 




*LOG 


* LOG ENTRY FOR RETURN 


31627330 


1071 


1 


7400 


1129 




MDX 


L 


$FLSW,0 


IS SWITCH SET 


31627340 


1073 





700B 






MOX 




$R8X£2 


« YES 


31627350 


1074 





610F 






LDX 


1 


/OOOE 


* NO 


31627360 


1075 





7007 




* 


MDX 




*RBX 


♦ 


31627370 
316273B0 


1076 





0000 




SLOG 


DC 




*-« 




31627390 


1077 


1 


6000 


1108 




STX 


LI 


$xRiei 


SAVE XRl 


31627400 


1079 


1 


7400 


1129 




MDX 


L 


$FLSH,0 


IS SWITCH SET 


31627410 


107B 





7003 






MOX 




$RBX62 


♦ YES 


31627420 


107C 





610A 






LOX 


1 


/OOOA 


♦ NO 


31627430 


1070 


1 


6000 


12C3 


tRBX 


STX 


LI 


*I0 


SET AN A OR E 


31627440 


107F 


1 


5C00 


1129 


* 


STX 


L 


$FLSH 


SET FIRST LINE SWITCH 


3162745Q 
31627460 


1081 


1 


C480 


1076 




LD 


I 


$L0G 


GET MESSAGE ADDRESS 


31627470 


1083 


1 


0400 


1162 




STO 


L 


$TMP 


SAVE IT 


31627480 


1085 


1 


4C28 


1095 




BSC 


L 


$407, &2 


BRANCH IF 1132 


31627490 


1087 


1 


6500 


127C 




LDX 


LI 


$INT 


GET INTR AORS 


31627500 


1089 





6000 


01 86 




STX 


LI 


IL4-4 


♦ AND SET IN MONITOR 


31627510 


108B 


1 


6500 


124F 




LDX 


LI 


$1403 


LOAD 1403 ADDRESS 


31627520 


108D 


1 


6000 


1125 




STX 


LI 


$PTST 


STORE FOR PRINTING 


31627530 


108F 


1 


6000 


1127 




STX 


LI 


$PR14 


TURN 1403 IND ON 


31627540 


1091 





1010 






SLA 




16 




31627550 


1092 


1 


0400 


1126 




STO 


L 


$PR11 


TURN 1132 IND. OFF 


31627560 


1094 





7000 




* 


MDX 




$OTST 




31627570 
31627580 


1095 


1 


6500 


1205 


$407 


LDX 


LI 


$1132 


LOAO 1132 ADDRESS 


31627590 


1097 


1 


6000 


1125 




STX 


LI 


$PTST 


STORE FOR PRINTING 


31627600 


1099 


1 


6000 


1126 




STX 


LI 


$PR11 


TURN 1132 INDICATOR ON 


31627610 


1098 


1 


6500 


1340 




LDX 


LI 


$INTR 


GET 1132 XFFR VECTOR 


31627620 


109D 





6000 


018A 




STX 


LI 


ILl 


AND STORE 


31627630 


109F 





1010 






SLA 




16 




31627640 


lOAO 


1 


0400 


1127 




STO 


L 


$PR14 


TURN 1403 IND. OFF 


31627650 


10A2 


1 


C400 


1162 


$OTST 


LD 


L 


$TMP 


GET ADDRESS AGAIN 


31627660 


10A4 





1001 






SLA 




1 


REMOVE HIGH ORDER BIT 


31627670 


10A5 





1801 






SRA 




1 


IF IT IS ON 


31627680 


10A6 





0001 






STO 




*E1 


STORE FOR ADDRESS 


31627690 


10A7 





6700 


0000 




LDX 


L3 


*-* 


XR3 = TABLE ADDRESS 


31627700 


10A9 


1 


CCOO 


05nc 




LDD 


L 


PIO 


LOAO PIO £ RID 


31627710 


lOAB 





0876 






STD 




$PIRI 


STORE THEM 


31627720 


10 AC 


1 


C400 


C5nE 




LD 


L 


RAD 


LOAO RAD 


31627730 


lOAE 





D075 






STO 




$RAn 


STORE IT 


31627740 


lOAF 





C300 






LD 


3 





GET MESSAGE ID 


31627750 


lOBO 





1838 






SRT 




8 


SAVF IT IN 


31627760 


lOBl 





C070 






LO 




$PIRI 


PIO TO ACCUMULATOR 


31627770 


10B2 





1088 






SLT 




8 


COMRINF PID C MID 


31627780 


10B3 





D06E 






STO 




tPini 


STORE COMBINED MESSAGE 


31627790 


10B4 





4058 






8SI 




$CLR 


CLEAR I/O AREA 


31627800 


10B5 


1 


6600 


1712 




LDX 


L2 


$I0AR-1 


XR2 = I/O AREA ADDRS 


31627810 


10B7 





C301 




$STUP 


LD 


3 


1 


LOAD HFX/DEC SWITCH 


31627820 


10B8 





18D0 






RTF 




16 


PUT IT IN 


31627830 


10B9 





C302 






LD 


3 


2 


LOAD CONTROL WORD 


31627840 


lOBA 





1001 






SLA 




1 


CHECK IF BIT ON 


31627850 


lOBB 





1801 






SRA 




1 


FOR FIRST LINF INDICAT^E 


31627860 


lOBC 





0863 






STD 




$OWI 


SAVF THEM 


31627870 


lOBO 


I 


4C02 


1 OP c 


* 


BSC 


L 


tLOGR,C 


BRANCH IF NOT FIRST LINF 


31627880 
31627890 



lOBF 1 C400 12C3 




LD 


L 


$ID 


lOCl 18D0 




RTE 




16 


10C2 1 4400 1164 




BSl 


L 


$HFX 


10C4 72FF 




MDX 


2 -1 


10C5 1010 




SLA 




16 


10C6 1 7400 1127 




MDX 


L 


$PR14,0 


I0C8 C061 




LD 




$7F7F 


10C9 1 0400 1213 




STO 


L 


$IOAR 


IOC a 1800 




RTE 




16 


lOCC 1 C400 1214 




LD 


L 


$I0AR61 


lOCE 1008 




SLA 




8 


lOCF 18C8 




RTE 




8 


1000 1 D400 1214 




STO 


L 


$IOARei 


1002 C04F 




LD 




SPIRI 


10D3 18D0 




RTE 




16 


1004 1 4400 1164 




BSI 


L 


$HEX 


10D6 C04C 




LD 




$PIR1E1 


10D7 1 4C08 lOEO 




BSC 


L 


$L0G8,+ 


10D9 18D0 




RTE 




16 


lOOA 1 4400 1164 




BSI 


L 


$HEX 


lODC €047 




LD 




$RAD 


1000 18D0 




RTE 




16 


lODE 1 4400 1164 




BSI 


L 


$HEX 


lOEO 1 6600 121F 


$L0G8 


LOX 


L2 


$I0ARE12 


10E2 C303 




LD 


3 


3 


10E3 1 D400 HAD 




STO 


L 


$CONV 


10F5 1 4420 HAD 




BSI 


L 


$CONV,Z 


10E7 C304 




LD 


3 


4 


10E8 1 4420 HAD 




BSI 


L 


$C0NV,Z 


lOEA 1 C400 HAD 




LD 


L 


$CONV 


lOEC 1 4C18 10F4 




BSC 


L 


$L0G9,+- 


lOEE 1 4480 1125 




BSI 


1 


$PTST 


lOFO 4000 




DC 




/4000 


lOFl 401E 




BSI 




$CLR 


10F2 1 6600 121F 




LDX 


L2 


$I0ARtl2 


10F4 7314 


$L0G9 


MOX 


3 


20 


10F5 6B0B 




STX 


3 


$L0G2+1 


10F6 63F1 




LOX 


3 


-15 


10F7 C828 




LOO 




SDMI 


10F8 1 4C04 1100 


$LOG0 


BSC 


L 


$L0G2,E 


lOFA C825 


$L0G1 


LDD 




SDH I 


lOFB 18C1 




RTE 




1 


lOFC D823 




STD 




$DWI 


lOFD 7301 




MDX 


3 


1 


lOFE 70F9 




MOX 




SLOGO 


lOFF 7007 




HDX 




$LENO 


1100 C700 0000 


$L0G2 


LO 


L3 


*-* 


1102 1800 




RTE 




16 


1103 1 4C04 H2R 




BSC 


L 


SOECE 


1105 405E 




BSI 




$HEX 


1106 70F3 




MOX 




$L0G1 


1107 I 4480 1125 


$LEND 


BSI 


I 


$PTST 


1109 4000 


^ 


DC 




/4000 




♦RETURN TO 


USER 


HOA 6500 OOno 


$XR1 

* 


LOX 


LI 


*-* 



GET MSG TYPE 

* PLACE IN 

* TO CONVERT 

ADJ POSITIONING REG 
GET BLANK FOR 1132 
IS IT 1132 

* NO 

MODIFY PRINT LINE 

* SAVE BLANK CODE 
GET 2N0 POSITION 
MOVE CODE OVER 

* AND REPOSITION 
STORE BACK 

LOAO PID e MIO 
PUT TH.EM IN 
CONVERT THEM 
LOAO RIO 

BRANCH IF NO RID 
P^T IT IN 
CONVERT IT 
LOAD RAD 
PUT IT IN 
CONVERT IT 
SIMULATE TAB 
FIRST ALPHA AODRS 
SET ALPHA SWITCH 
CONVERT IF ALPHA 
SECOND ALPHA ADDRS 
CONVERT IF ALPHA 

BRANCH IF NO ALPHA 

TEST WHICH PRINTER 

AND PRINT ALPHA 

CLEAR ALPHA FROM I/O AREA 

SIMULATE TAB FOR DATA 

XR3=pATA TABLE ADORS 

SAVE DATA TABLE AODRS 

COUNT FOR DATA WORDS 

GET DATA WORD ID 

BRANCH IF THERE IS A WORD 

GET DATA WORD ID AGAIN 

LOOK FOR NEXT CHAR 

PUT MODIFIED DWI BACK 

SET XR3 FOR NEXT CHAR 

CHECK AGAIN 

NO MORE - GO PRINT 

LOAO DATA WORD 

PUT IT IN 

CONVERT TO DEC 

OR HEX 

CHECK FOR MORE 

CHECH PRINTER 

AND PRINT DATA 



RESTORE XRl 



HOC 1 7401 1076 
HOE 1 4C80 1076 



1110 0000 

1111 C016 

1112 4820 

1113 70Fn 



MDX L $L0G,1 UPDATE RETURN ADDRS 

BSC I $LOG GOOD-BYE 

♦ 
* 
* 
$CLR DC *-* 

LD $IBSY 

BSC Z 

MDX *-3 



31627900 

31627910 

31627920 

31627930 

31627940 

31627950 

31627960 

31627970 

31627980 

31627990 

31628000 

31628010 

31628020 

31628030 

31628040 

31628050 

31628060 

31628070 

31628080 

31628090 

31628100 

31628110 

31628120 

31628130 

31628140 

31628150 

31628160 

31628170 

31628180 

31628190 

31628200 

31628210 

31628220 

31628230 

31628240 

31628250 

31628260 

31628270 

31628280 

31628290 

31628300 

31628310 

31628320 

31628330 

31628340 

31628350 

31628360 

31628370 

31628380 

31628390 

31628400 

31628410 

31628420 

31628430 

31628440 

31628450 

31628460 

31628470 

31628480 

31628490 

31628500 

31628510 

31628520 

31628530 

31628540 

31628550 

31628560 

31628570 
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PAGE 
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1114 
1115 
1117 
1118 



1 




1010 
74'"0 
C012 
6230 


U?7 




SLA 

MDX 

LO 

LDX 


L 
? 


16 

$PR14,0 
$7F7F 
61 


CLFAR 
SKIP 
LOAD 
CLFAR 


Tnil32 BLANKS 
IF 113? 
1403 BLANKS 


1119 


1 


0600 


1?1? 


tCLFR 


STO 


L2 


$inAR-l 


I /n ARF& 


lllR 





72FF 






MDX 


2 


-1 




TO 


UlC 





70FC 






MOX 




tCLFR 




BLANKS 


1 UD 


1 


4ceo 


1110 


towi 


BSC 


I 


tCLR 






1120 




000? 




BSS 


F 


? 






1127 




000? 




tPlRI 


BSS 




2 






1124 





0000 




$RAD 


DC 




*-« 






1125 





0000 




$PTST 


nc 




*-* 






1126 


c 


0000 




tPRll 


DC 




*-* 






1127 





0000 




tPR14 


DC 




♦-* 






1128 





0000 




$IBSY 


DC 




*-« 






1129 





0000 




SFLSW 


DC 




*-* 


FIRST LINE SWITCH 


1 12A 





7F7F 




$7F7F 


DC 




/7F7F 














* 


:****«*****«*»«^*:»;^^^;^^^^^ 










* 
« 




DECIMAL CONVERSION 


* 
ROUTINF ♦ 

* 



112B 

112C 

11 2D 

112F 

1130 

1132 

1133 

1135 

1136 

1137 

1138 

1139 

113A 

113B 

113C 

113D 

I13E 

113F 

1140 

1141 

1143 

1145 

1146 

1147 

1148 

1144 

1148 

114C 

114D 

1 14E 

1150 

1152 

1153 

1154 

1155 

1156 

1157 

1159 

1 15A 

1158 

115C 

115F 

n 5r 

1160 

1161 





I 



1 
c 
1 
















1 




rt 

1 









1 







1 

c 
c 










C033 
08?F 
6500 
C02D 
4C10 

C02n 

7400 
C0?P 
0200 
lOAO 
9024 
7203 
1800 
C04C 
7006 
1810 
A8IF 
1800 
0001 
C500 
7400 
1008 

i8oe 

OOIA 
74FF 
1810 
A812 
18D0 
DOOl 
C5 00 
7400 
1808 
1008 
E8PD 
0200 
72FF 
74FF 
70E' 
7203 
709F 
000 7 

onc/>. 

^■006 
o 6 
006 1 



1189 



1139 



1127 



oono 

1127 



11^0 



00. -n 
1 126 



1 ! 5C 



$DEC LD 
STD 
LDX 
LD 
BSC 
LD 
MDX 
LD 
STO 
SLT 
S 

MOX 
RTE 
LD 
MDX 
SRA 
D 

RTF 
STO 
LD 
MDX 
SLA 
SRA 
STO 
MDX 
SRA 
D 

RTE 
STO 
LD 
MDX 
SPA 
SLA 
OR 
STO 
MDX 
MDX 
MDX 
MDX 
MDX 
BSS 
DC 
DC 
DC 
DC 



$DEC1 



$DEC2 



$DFC3 



$uFC4 



tOFC5 



$SIX 

SET CHARACTER COUNT 

XRl = TABLE ADDRESS 

LOAD WORD TO BE CONVERTED 

BRANCH IF POSITIVE 

LOAD 1132 MINUS SIGN 

SKIP IF 1132 

LOAD 1403 MINUS SIGN 

PUT IN I/O AREA 

CLEAR 

COMPLEMENT (UMBER 

LOW ORDER FIRST 

CHARACTER TO Q 

5FT BLANK 

PUT IT AWAY 

CLEAR 

DIVIDE 

REMAINDFR TO A 



$WCNT 
LI $TABLE1 

tWCNTSl 
L $DEC1,- 

$N32 
L $PR14,0 

$N14 
2 

32 

SWCNTfil 
2 3 

16 

$TABL 

$DEC3£2 

16 

$TEN 

16 

$DFC3ei 

*-* 

$PR14,D 

3 

$TMP 

$WCNT,-1 

16 

$TFN 

16 

*0EC5f;i 

«-* 

$PR11,0 

8 



LI 

L 



tWCNT 

$TENi 

tSIX 

$N3? 

$N14 



$TMP 



-1 

tWCNT,-l 

$DFC2 

3 

tLOGI 

7 

10 

6 

/60 

/61 



LOAD CHAR 

SKIP IF 1132 

REMOVE UNUSED CHAR AND 

PUT IN RIGHT BYTF 

SAVF IT 

OECRFMFNTF kORO COUNT 

CLEAP 

DIVIDE 

REMAINDER TO A 

GET CHARACTER 

SKIP IF 1403 

REMOVE UNUSED CHARACTER 

AND PUT IN LFFT BYTF 

MAKF ONF WORD 

PUT IT IN I/n AREA 

UPDATF I/O AREA 

OFCREMFNT WORD COUNT 

GET MORE IF NOT DONF 

UPDATF I/O ARFA IF DONE 

GO BACK 



31628580 

31628590 

31628600 

31628610 

31628620 

31628630 

31628640 

31628650 

31628660 

31628670 

31628680 

31628690 

31628700 

31628710 

31628720 

31628730 

31628740 

31628750 

31628760 

31628770 

31628780 

31628790 

31628800 

31628810 

31628820 

31628830 

31628840 

316288 50 

31628860 

31628870 

3162S880 

31628890 

31628900 

31628910 

31628920 

31628930 

31628940 

31628950 

31628960 

31628970 

31628980 

31628990 

31629000 

31629010 

31629020 

31629030 

31629040 

31629050 

31629060 

31629070 

31629080 

31629090 

31629100 

31629110 

31629120 

31629130 

31629140 

31629150 

31629160 

31629170 

31629180 

31629190 

31629200 

31629210 

31629720 

31629230 

31629240 

31629250 



1162 



0002 



$TMP BSS E 2 

* * 

* HEXADECIMAL CONVERSION ROUTINE * 



1164 





0000 




$HEX 


DC 




*-♦ 




1165 





7201 






MDX 


■? 


1 


LEAVE A SPACE 


1166 


1 


6500 


1189 




LDX 


LI 


$TABL£1 




1168 





COID 






LD 




$TWO 


SET CHAR COUNT 


1169 





D0F2 






STO 




tWCNT 




116A 





1810 




$HEX1 


SRA 




16 


CLEAR ACCUMULATOR 


1168 





1084 






SLT 




4 


BRING IN NEXT CHAR 


116C 





0001 






STO 




$HEX2E1 




116D 





C500 


0000 


$HEX2 


LD 


LI 


*-* 


LOAO CHARACTER 


116F 


1 


7400 


1126 




MDX 


L 


$PR11,0 


SKIP IF 1403 


1171 





1808 






SRA 




8 


DUMP UNUSED CHAR AND 


1172 





1008 






SLA 




8 


PUT IN LEFT BYTF 


1173 





001 1 






STO 




$TMP1 


SAVF LEFT HALF 


1174 





1010 






SLA 




16 


CLEAR ACCUMULATOR 


1175 





1084 






SLT 




4 


GET NEXT CHARACTER 


1176 





DOOl 






STO 




$HEX3ei 




1177 





C500 


0000 


$HEX3 


LD 


LI 


•-* 


LOAO 1403 CHARACTER 


1179 


1 


7400 


1127 




MDX 


L 


$PR14,0 


SKIP IF 1132 


117B 





1008 






SLA 




8 


DUMP UNUSED CHAR AND 


117C 





1808 






SRA 




8 


PUT IN RIGHT BYTE 


1170 





E807 






OR 




$TMP1 


MAKE ONF WORD 


117E 





0200 






STO 


2 





PUT IT AWAY 


117F 





7201 






MDX 


2 


1 


UPDATE I/O AREA 


1180 


1 


74FF 


115C 




MDX 


L 


*HCNT,-1 


DECREMENT WORD COUNT 


1182 





70E7 






MDX 




$HEX1 


GET MORE 


1183 


1 


4C80 


1164 




BSC 


I 


$HEX 


GO BACK 


1185 





0000 




$TMP1 


DC 




*-* 




1186 





0002 




$THO 


DC 




2 




1187 





0000 




$BSY - 


DC 




♦ -♦ 





1188 





007 F 


1189 





F049 


118A 





F140 


118B 





F201 


118C 


c 


F302 


118D 





F443 


118E 





F5C4 


118F 


.0 


F645 


1190 





F746 


1191 





F807 


1192 





F908 


1193 





C164 


1194 





C225 


1195 





C326 


1196 





C467 


1197 





C568 


1198 





C629 


1199 





C72A 


119A 





C86B 


119B 





C92C 


119C 





D158 


11 90 





D219 


ii9e 





031 A 


119F 





D45B 


llAO 





051C 


llAl 





D650 


11A2 





D75E 



* * 

* 1132/1403 CONVERSION TABLE * 

* * 

♦ 

$TABL DC /007F BLANK 


1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
8 
C 
D 

F 

F 
G 
H 
I 
J 
K 
L 
M 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



/007F 

/F049 

/F140 

/F201 

/F302 

/F443 

/F504 

/F645 

/F746 

/F807 

/F908 

/C164 

/C225 

/C326 

/C467 

/C568 

/C6 29 

/C77A 

/C86B 

/C92C 

/D158 

/D219 

/031A 

/045B 

/D51C 

/D650 

/D75F 



31629260 

31629270 

31629280 

31629290 

31629300 

31629310 

31629320 

31629330 

31629340 

31679350 

31629360 

31629370 

31629380 

31629390 

31629400 

31629410 

31629420 

31629430 

31629440 

31629450 

31629460 

31629470 

31629480 

31629490 

31629500 

31629510 

31629520 

31629530 

31629540 

31629550 

31629560 

31629570 

31629580 

31629590 

31629600 

31629610 

31629620 

31629630 

31629640 

31629650 

31629660 

31629670 

31629680 

31629690 

31629700 

31629710 

31629720 

31629730 

31629740 

31629750 

31629760 

31629770 

31629780 

31629790 

31629800 

31629810 

31629820 

31629830 

31629840 

31629850 

31629860 

31629870 

31629880 

31629890 

31629900 

31679910 

31629920 

31629930 
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1 1A3 





oeiF 


11A4 





0920 


11A5 





E20D 


1IA6 





E30E 


11A7 





E44E 


HAS 





E510 


11A9 





E651 


llAA 





E752 


llAB 





E813 


11 AC 





E954 



DC 


/081F 


Q 


DC 


/0920 


R 


DC 


/E20D 


S 


DC 


• /E30E 


T 


DC 


/E44F 


U 


DC 


/F510 


V 


DC 


/E651 


w 


DC 


7E752 


X 


DC 


/E813 


Y 


DC 


/E954 


z 



* * 

* ALPHA CONVERSION ROUTINE * 

* ♦ 
************************************************** 



HAD 





0000 




$CONV 


DC 




*-* 




llAE 





0002 






STO 




$AMES61 


STORE MESSAGE ADDRESS 


llAF 





7201 






MDX 


2 


1 


LEAVE A SPACE 


1180 





C400 


0000 


tAMES 


LD 


L 


♦-* 


LOAD ALPHA WORD 


11B2 





F03A 






EOR 




$TERM 


IS IT A TERMINATOR 


11B3 




4t:98 


HAD 




BSC 




ICOMV.E- 


GO BACK IF DONE 


11B5 




C480 


llBl 




LD 




SAMESEl 


LOAD IT AGAIN 


HB7 





F034 






EOR 




$LNFD 


IS IT LINE FEED 


1188 





4820 






BSC 




Z 


SKIP IF YES 


11B9 




7005 






MDX 




$NOLF 


NO LINE FEED 


116A 




4480 


1125 




BSI 




$PTST 


GO CHECK WHICH PRINTER 


IIBC 





2 000 






DC 




/2000 


AND SKIP THE PAGE 


1180 




7401 


llBl 




MDX 




$AMES£1,1 


GET NEXT CHARACTER 


UBF 





6124 




SNOLF 


LOX 


I 


36 


SET TO STEP ACROSS TABLE 


liCO 





lOAO 






SLT 




32 


CLEAR ASO 


llCl 




C480 


llBl 




LD 




$AMESE1 


LOAD IT AGAIN 


11C3 





1888 






SRT 




8 


PUT RIGHT HALF IN Q 


11C4 





1008 






SLA 




8 


CLEAR SIGN BITS 


11C5 





1808 






SRA 




8 


MOVE TO RIGHT OF A 


11C6 





D89B 






STD 




$TMP 


PUT THEM AWAY 


11C7 





C09B 






LD 




$THPai 


GET RIGHT HALF OF CHAR 


11C8 





1808 






SRA 




8 


PUT IN RIGHT IF A 


11C9 





D099 






STO 




$TMPei 


PUT IT AEAY 


IICA 




C500 


llEE 


$LTST 


LD 


LI 


$TTBL 


GET CHAR FROM TABLE 


iicr 




F095 






EOR 




$TMP 


IS IT A HIT 


IICD 




4C18 


1101 




BSC 


L 


JLTBL.C- 


BRANCH ON A HIT 


IICF 





71FF 






MDX 




-1 


SET FOR NEXT CHARACTER 


1100 





70F9 






MDX 




$LTST 


AND TRY AGAIN 


1101 




C500 


1188 


$LTBL 


LD 


LI 


$TABL 


LOAO CHAR FROM TABLE 


11D3 




7400 


1126 




MDX 


L 


$PR11,0 


SKIP IF 1403 


11D5 





1808 






SRA 




8 


DUMP UNUSED CHAR AND 


1106 





1008 






SLA 




8 


PUT IN LEFT BYTE 


1107 





OOAD 






STO 




$TMP1 


SAVE IT 


11D8 





6124 






LOX 




36 


SET FOR COUNT 


1109 




C500 


llEF 


tRTST 


LD 


LI 


$TT8L 


GET CHARACTER FROM TABLF 


IIDB 




F087 






EOR 




tTMPEl 


IS IT A HIT 


HOC 




4C18 


UEO 




BSC 


L 


SRTBL.S- 


BRANCH ON A HIT 


IIDE 




71FF 






MDX 




-1 


SET FOR ANOTHER CHAR 


IIDF 





70F9 






MDX 




tRTST 


AND TRY AGAIN 


llEO 




C500 


1188 


$RTBL 


LD 


LI 


$TaBL 


GET CHAR FROM TABLE 


IIF? 




7400 


1127 




MDX 


L 


tPRl4,0 


SKIP IF 1132 


11E4 





1008 






SLA 




8 


DUMP UNUSED CHAR AND 


11E5 





1808 






SRA 




8 


PUT IN RIGHT BYTE 


11E6 





E89E 






OR 




$TMP1 


MAKE ONE WORD 


11E7 





0200 






STO 


2 





PUT IT IN I/O AREA 


11E8 


I 


7401 


llRl 




MDX 


L 


$AMFSei,l 


SET FOR NEXT CHAR 


llEA 





7201 






MDX 


2 


1 


STEP I/O AREA 


llEB 





70C4 






MDX 




$AMES 


GO GET ANOTHER ONE 


UEC 





0303 




$LNFD 


DC 




/0303 


LINE FFED CONSTANT 


IIFD 





FFFF 




$TERM 


DC 




/FFFF 





* * 

* TILT ROTATE TABLE * 



31629940 

31629950 

31629960 

31629970 

31629980 

31629990 

31630000 

31630010 

31630020 

31630030 

31630040 

31630050 

31630060 

31630070 

31630080 

31630090 

31630100 

31630110 

31630120 

31630130 

31630140 

31630150 

31630160 

31630170 

31630180 

31630190 

31630200 

31630210 

31630220 

31630230 

31630240 

31630250 

31630260 

31630270 

31630280 

31630290 

31630300 

31630310 

31630320 

31630330 

31630340 

31630350 

31630360 

31630370 

31630380 

31630390 

31630400 

31630410 

31630420 

31630430 

31630440 

31630450 

31630460 

31630470 

316304 80 

31630490 

31630500 

31630510 

31630520 

31630530 

31630540 

31630550 

31630560 

31630570 

31630580 

31630590 

31630600 

31630610 



***************^f*1H:****^*t**********^^i^,t:*^^tt*t,1t:^c,^ 



llEF 0021 


$TTBL DC 


/21 


SPACE 


llEF 00C4 


DC 


/C4 





IIFO 00F6 


DC 


/F6 


1 


llFl 00D8 


DC 


/D8 


2 


11F2 00D6 


DC 


/D6 


3 


11F3 OOFO 


DC 


/FO 


4 


11F4 00F4 


DC 


/F4 


5 


11F5 OODO 


DC 


/DO 


6 


11F6 00D4 


DC 


/D4 


7 


11F7 00E4 


DC 


/E4 


8 


11F8 OOEO 


DC 


/EO 


9 


11F9 003E 


DC 


/3E 


A 


UFA OOIA 


DC 


/lA 


B 


IIFB OOIE 


DC 


/IE 


c • 


HFC 0032 


DC 


/32 


D 


IIFD 0036 


DC 


/36 


E 


UFE 0012 


DC 


/12 


F. 


LIFE DQ16 


DC 


yi* 


G 


1200 0026 


DC 


/26 


H 


1201 0022 


DC 


/22 


I 


1202 007E 


DC 


/7E 


J 


1203 005A 


DC 


/5A 


K 


1204 005E 


DC 


/5E 


L 


1205 0072 


DC 


/72 


H 


1206 0076 


DC 


/76 


N 


1207 0052 


ik: 


/52 





1208 0056 


OC 


/S6 


P 


1209 0066 


DC 


/66 


Q 


120A 0062 


DC 


/62 


R 


120B 009A 


DC 


/9A 


S 


120C 009E 


DC 


/9E 


T 


120D O0B2 


OC 


/B2 


U 


120E 00B6 


DC 


/B6 


V 


120F 0092 


DC 


/92 


w 


1210 0096 


OC 


/96 


X 


1211 00A6 


DC 


/A6 


Y 


1212 00A2 


OC 


/A 2 


z 



1403 PRINT ROUTINE 



* 
* 
* 

* THIS ROUTINE WILL RESPOND TO FOUR 

* COMMANDS ON THE 1403 PRINTER 

* A SKIP TO CHANNEL 1 WILL ALSO BE 

* INITIATED ON A SENSE OF CHANNEL 12 

* THE I/O AREA FOR PRINTING IS 

* LOCATED AT $IOAR 



CONTROL 
/1 000 
/2000 
/4000 
/8000 



PARAMETERS 
SINGLE SPACE 
DOUBLE SPACE 
PRINT H/SPACE AFTER 
SKIP TO CHANNEL 1 



* 



* 
* 
* 

* 



BSI 
OC 



CALLING SEQUENCE 
$1403 
CONTROL PARAMETER 



1213 003C 
124F 0000 

1250 0867 

1251 1 4404 12AC 



$IOAR 
$1403 



BSS 
DC 
XIO 
BSI 



60 
*-* 
$DSW-1 
SNROY.E 



GET OSW 

GO TO NRDY IF NOT READY 



31630620 

31630630 

31630640 

31630650 

31630660 

31630670 

31630680 

31630690 

31630700 

31630710 

31630720 

31630730 

31630740 

31630750 

31630760 

31630770 

31630780 

31630790 

31630800 

31630810 

31630820 

31630830 

31630840 

31630850 

31630860 

31630870 

31630880 

31630890 

31630900 

31630910 

31630920 

31630930 

31630940 

31630950 

31630960 

31630970 

31630980 

31630990 

31631000 

31631010 

31631020 

31631030 

31631040 

31631050 

31631060 

31631070 

31631080 

31631090 

31631100 

31631110 

31631120 

31631130 

31631140 

31631150 

31631160 

31631170 

31631180 

31631190 

31631200 

31631210 

31631220 

31631230 

31631240 

31631250 

31631260 

31631270 

31631280 

31631290 



DATE 
EC NO. 



0inCT69 
571066 



niJUN70 
5 71097 



PROG ID 


0316-0 


DATE 


010CT69 
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EC NO. 
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57109 7 
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DATE 

EC NO. 



1753 

1257 

1258 

125A 

125B 

12 5n 

125F 

1?5F 

1260 

1261 

126 3 

176A 

1265 

1266 

1267 

1268 

1269 

126A 

126B 

126D 

126F 



1 0480 124F 
1 4C2S 1274 

1001 

1 4C2fl 1267 

1001 

1 40.28 1265 
85 A 

1802 
4 804 

70Fr. 

1 7401 1187 
0856 

C 7008 
6854 
70F6 
0850 
1801 
4804 

70FC 

1 7408 1187 
1 7401 1128 
084F 



tSINR 



tOOBL 
$WRIT 



1270 1 7401 124F 
1272 1 4C80 124F 



12 74 0843 

1275 1802 

1276 4804 

1277 70FC 

1278 1 7401 1187 
127A 0841 
127B 70F4 



* 
$RET 

* 
* 
SSKIP 



127C 

127D 

127E 

127F 

1280 

1281 

1282 

1283 

1284 

1285 

1287 

1289 

I28A 

1288 

12 8C 

128D 

128F 

129C 

1291 

1292 
1293 



0000 
0838 
282A 
0840 
D03F 
1001 
4810 
7006 

1010 

1 0400 1128 
1 7401 1187 
701E 

1001 
4810 

7005 

1 74F8 1187 
1000 

0829 
7016 



* 
* 
$INT 



$GnON 



1001 
4810 



* 

$NOOG 



1294 7013 

1295 1 74FF 




c 
1 



1297 
1298 
1799 
129A 



1187 



1000 
CC27 

looc 

4C2P 12A5 



129C COlO 
1290 1 4C18 12Aa 
129F 1010 
17A0 DOIQ 



LD 

BSC 

SLA 

BSC 

SLA 

BSC 

XIO 

SRA 

BSC 

MDX 

MDX 

XIO 

MDX 

STX 

MOX 

xin 

SRA 
BSC 

MDX 
MOX 
MDX 
XIO 

MDX 
BSC 



XIO 
SRA 
BSC 
MDX 
MDX 
XIO 
MOX 



DC 

STD 

STS 

XIO 

STO 

SLA 

BSC 

MDX 

SLA 

STO 

MDX 

MOX 

SLA 

BSC 

MDX 

MDX 

NOP 

XIO 

MOX 

SLA 

BSC 

MOX 

MDX 

NOP 

LD 

SLA 

BSC 

LD 

BSC 

SLA 

STO 



$1403 

«SKIP,ei 

1 

$WRiT,e; 
1 

*DoaL,£; 

$DSW-1 

? 

F 

$51 NG 

$BSY,1 

$SPAC-1 

*RET 

$SPA2 

$SING 

$DSW-1 

1 

E 

$WRIT 

$BSY,8 

$IBSY,1 

$PRNT 

tl403,l 
$1403 



*0SW-1 

2 

E 

$SKIP 

$BSY,1 

$CH1 

$RET 



*-* 

$A0 

$STAT 

$DSWR-1 

$WSD 

1 

$GOaN 
16 

$iBsy 

$BSY,1 

$IRET 

1 

$NnOG 
$BSY,-8 

$SPAC-1 
tIPFT 



$IRFT 
$BSY,-1 

$WSD 

12 

$CH12,£Z 

$SPA2 

$IRET,e- 

16 

$SPA2 



010CT69 
571066 



01JUN70 
571 097 



GET FUNCTION 

BRANCH IF RFSTORE 

IS IT PRINT 

BRANCH IF YES 

IS IT D0U3LF SPACE 

BRANCH IF DOUBLE SPACF 

IT MUST BE SINGLE SPACF 

IS CARRIAGE BUSY 

SKIP IF NOR 

LOOP 



SET 2 SPACE INDICATOR 



IS PRINTER BUSY 
SKIP IF NOT 
LOOP IF BUSY 



PRINT THE LINE 
ADJ RETURN ADRS 



GET OSH 

IS CARRIAGE BUSY 
SKIP IF NOT 
LOOP IF BUSY 

SKIP TO CHANNEL 1 
GO BACK 



INTERRUPT ENTRY 
SAVE ACQ 



STORE IT 

IS IT XFER COMPLETE 

SKIP IF YES 

NO 

CLEAR ACC 

CLEAR BUSY 

INTERRUPT RETURN 

IS IT PRINT COMPLETE 

SKIP IF YES 

NO 



SPACE 
RETURN IF NO ERRORS 

IS IT CARRIAGE COMPLETE 

SKIP IF YES 

NOT 1403 TRY AGAIN 



GET OSW 

IS CHANNEL 12 ON 

BRANCH IF YES 

IS 2 SPACF INO. ON 

BRANCH IF NO 

CLEAR ACr 

RESET 2 SPACE INDICATOR 



31631300 

31631310 

31631320 

31631330 

31631340 

31631350 

31631360 

31631370 

31631380 

31631390 

31631400 

31631410 

31631420 

31631430 

31631440 

31631450 

31631460 

31631470 

31631480 

31631490 

31631500 

31631510 

31631520 

31631530 

31631540 

31631550 

31631560 

31631570 

31631580 

31631590 

31631600 

31631610 

31631620 

31631630 

31631640 

31631650 

31631660 

31631670 

31631680 

31631690 

31631700 

31631710 

31631720 

31631730 

31631740 

31631750 

31631760 

31631770 

31631780 

31631790 

31631800 

31631810 

31631820 

31631830 

31631840 

31631850 

31631860 

31631870 

31631880 

31631890 

31631900 

31631910 

31631920 

31631930 

31631940 

31631950 

31631960 

31631970 
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1130 



12A1 1 7401 


1187 




MDX 


L 


$BSY,1 




12A3 0817 
12A4 7003 






XIO 

MDX 




$SPAC 
$IRET 


START NEXT S 

GO BACK 


12A5 0816 




*CH12 


XIO 




tCHl 


SKIP TO I 


12A6 1 7401 


1187 




MDX 


L 


$BSY,1 




12A8 C80D 




$IPET 


LDD 




$AQ 




12A9 2000 




SSTAT 


LOS 









12AA 1 4C80 127C 



12AC 0000 
12AD 4480 0163 
12AF 1 12C4 

12B0 0807 
12B1 4804 
12B2 70FD 
12B3 1 4C80 12AC 



1286 




0002 


12B8 





8600 


12B9 





AFOO 


12BA 





0000 


12BB 





ACOO 


12BC 


1 


12C2 


12B0 





A900 


12BE 


1 


1213 


12BF 





AOOO 


12C0 





0000 


12C1 





AFOl 


12C2 





0800 


12C3 





0000 


12C4 





0014 


12C5 





0000 


12C6 





0000 


12C7 


1 


12C9 


12C8 





0000 


12C9 




0011 


12D4 





FFFF 



1205 

1206 

1208 

12D9 

12DA 

1208 

120C 

12DE 

12E0 

12E2 

12E3 

12E5 

12F6 

12E8 

12E9 

12EB 

12ED 

12EE 



0000 

1 C400 1187 
4 82 

70FC 
085D 

1005 

i 4428 131B 

1 C480 12D5 
1 4C28 12F1 

1001 

1 4C28 12F6 

1001 

1 4C28 12FF 
401F 

7401 0027 

1 7401 
0843 
7015 



1187 



12FF 683C 



BSC I $INT RETURN TO MONITOR 

* 

$NRDY DC *-* 

BSI I LOG USE MON LOG 

DC $XXX MSG AORS 

* 



XIO 
BSC 
MDX 
BSC 



$DSW-1 
E 

*-3 
$NRDY 



GET OSW AGAIN 
SKIP IF READY 
GO. WAIT IF NOT 
GO BACK IF READY 



*************************^t:*:t,^i,^^^^^^:^^^^^,^^^,^^^^^ 



»AQ BSS 
$8600 DC 
$DSW DC 
$SPA2 DC 
SSPAC DC 
$CH1 DC 

DC 
$PRNT DC 

DC 
$WSO 
$DSHR 
$1 



$ID 

$XXX 



* 
LPTNR 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

TYPE 
DC 



2 

/8600 

/AFOO 

*-* 

/ACOO 

$1 

/A900 

$I0AR 

/AOOO 

*-* 

/AFOl 

/0800 

*-* 

20 





LPTNR 





CONSTANT FOR ERRORS 
SENSE DSH W/0 RESET 

SPACE lOCC 

lOCC 

PRINT lOCC 

SAVE DSW 

SENSE DSW W/RESET 

MSG TYPE, A OR E 
MSG NUMBER 



ALPHA MSG 



.LINE PRINTER NOT READY, 
/FFFF TERMINATOR 



* 1132 PRINT ROUTINE * 

* * 



$1132 DC 
LD 

BSC 

MOX 

XIO 

SLA 

RSI 

LD 

BSC 

SLA 

BSC 

SLA 

BSC 

BSI 

MOX 

MDX 

XIO 

MOX 



$SNG 



$OBL 



STX 



*-* 

$8SY 

Z 

$ii32ei 

$DW-1 

5 

$NRn,£Z 

$1132 

$SKP,£;z 

1 

$WRT,ez 

1 

$DBL,£Z 

$TFST 

39,1 

$BSY,1 

$SPA 

$BAK 

$SP2 



IS PRINTER BUSY 

SKIP IF NOT 

LOOP 

GET DSW 

IS PRINTER READY 

GET FUNCTION CODE 

BRANCH IF RESTORE 

IS IT PRINT 

BRANCH IF YES 

IS IT DOUBLE SPACE 

BRANCH IF YES 

TEST BUSY AND 16 IDLES 

SCAN COMPLETE INO 

SINGLE SPACE 
RETURN 

TURN ON 2 SPACE INO 
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316-0 
24 



DATE 
EC NO. 



010CT69 
571066 



01JUN70 
571097 



31631980 

31631990 

31632000 

31632010 

31632020 

31632030 

31632040 

31632050 

31632060 

31632070 

31632080 

31632090 

31632100 

31632110 

31632120 

31632130 

31632140 

31632150 

31632160 

31632170 

31632180 

31632190 

31632200 

31632210 

31632220 

31632230 

31632240 

3163^250 

31632260 

31632270 

31632280 

31632290 

31632300 

31632310 

31632320 

31632330 

31632340 

31632350 

31632360 

31632370 

31632380 

31632390 

31632400 

31632410 

31632420 

316 32430 

31632440 

31632450 

31632460 

31632470 

31632480 

31632490 

31632500 

31632510 

31632520 

31632530 

31632540 

31632550 

31632560 

31632570 

31632580 

31632590 

31632600 

31632610 

31632620 

31632630 

31632640 

31632650 
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12F0 70F7 



12F1 4016 
12F2 1 7401 
0839 
700E 



12F4 
12F5 



11R7 



12F6 
17F7 
12Fe 
12F9 
12FA 
12FB 
12FC 
12FD 
12FF 
1301 
1303 
1304 
1306 



1308 
1309 
130A 
130B 
130C 
130D 
130E 
130F 
1310 
1312 
1313 
1314 
1315 
1317 
1318 
1319 



841 
1006 
4828 
70FC 
C820 
D82F 
4015 

7401 0027 

1 7401 11R7 
1 7401 1128 

082E 

1 7401 12D5 
1 4C80 1205 



0000 

082E 

1003 

4828 

7CFC 

COID 

4828 

70FD 

4C80 1308 

0000 

1010 

61F8 

0500 0028 

7101 

70FC 

4C80 1312 



131B 0000 
131C 4480 0163 
131E 1 12C4 

131F 0818 

1320 I80A 

1321 4804 

1322 70FC 

1323 1 4C80 1318 



1326 




0002 


1328 





0030 


1329 





0010 


132A 





OCCP 


132B 





0000 


132C 





0000 


1320 





3701 


132E 





0000 


132F 





3404 


1330 





0000 


1331 





3401 


1332 





OCOO 


1333 





3480 


1334 


1 


1330 


1335 





3200 



* 
$SKP 



$WRT 



$BAK 

* 
$TEST 



MOX 

fiSI 
MOX 
XIO 
MOX 

XIU 
SLA 
BSC 
MDX 
LOD 
STO 
BSI 
MDX 
MDX 
MDX 
XIO 
MDX 
BSC 



$SNG 

$TFST 
t8SY,l 
$CHA1-1 
$BAK 

$DW-1 
6 

ez 

$WRT 

$48 

*CT48 

$EMPT 

39,1 

$BSY,1 

tIBSY.l 

$STPT-1 

$1132,1 

$1132 



GO SPACE 

TEST BUSY ANS 16 IDLES 

SKIP TO ONE 
RETURN 

GET OSW 

IS PRINTER BUSY 

SKIP IE NOT 

LOOP 



CLEAR SCAN AREA 
SCAN COMPLETE INO 
TURN ON BUSY 

START PRINTER 
ADJ RETURN ADRS 



******************:^***t'***i*******^:^^4:^^,^^^^^: 



$TSIO 



$EMPT 



$MPT 



* 
* 
$NRD 



DC 

XIO 

SLA 

BSC 

MOX 

LO 

BSC 

MDX 

BSC 

DC 

SLA 

LDX 

STO 

MDX 

MDX 

BSC 



*-♦ 
$DW-1 

3 

ez 

$TESTei 

$CT16 

EZ 

$TSID 

$TEST 

*-* 

16 
-8 



LI 40 
1 I 



$MPT 

$EMPT 



***tf'^******4f1f^itiiii 



* 

$A01 
$48 

$CT48 
$CT16 
$SP2 

$DWR 
$SWO 

$CHai 

$WHEL 

$SPA 

SQTST 

$STPT 

$EMTR 



DC 

BSI 

DC 

XIO 
SRA 
BSC 
MDX 
BSC 



BSS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

OC 

DC 



LOG 

$xxx 

$D«-1 
10 

E 

$NRn 



2 

48 

16 

*-* 

*-* 

*-* 

/3701 

♦-* 

/3404 

«-* 

/3401 
*-* 

/34ao 

$WHEL 
/3200 



GET OSW 

IS CARRIAGE BUSY 

SKIP IE NOT 

LOOP UNTIL DONE 
ARE IDLES BUSY 
SKIP IF NOT 
LOOP 
O.K. FOR CARRIAGE 

CLEAR ACC 

SET TO STEP ACROSS 

ZERO A WORD 

SET FOR NEXT WORD 

DO IT AGAIN 

ALL DONE 



USE HON LOG 
MSG ADRS 

GET OSW AFAIN 

SKIP IF READY 
NOT READY YFT 
GO BACK IF READY 



COUNTER 48 
COUNTER 16 

SENSE nSW H/RESET 
SAVE FOP nSW 
START CARRIAGE 
WMITTER CHARACTER 
SPACE lOCC 
COUNTER FOR 
START PRINTER 
READ EMITTER 
lOCC 



31632660 

31532670 

31632680 

31632690 

31632700 

31632710 

31632720 

31632730 

31632740 

31632750 

31632760 

31632770 

31632780 

31632790 

31632800 

31632810 

31632620 

31632630 

31632840 

31632850 

31632860 

31632870 

31632880 

31632890 

31632900 

31632910 

31632920 

31632930 

31632940 

31632950 

31632960 

31632970 

31632980 

31632990 

31633000 

31633010 

31633020 

31633030 

31633040 

31633050 

31633060 

31633070 

31633080 

31633090 

31633100 

31633110 

31633120 

31633130 

31633140 

31633150 

31633160 

31633170 

31633180 

31633190 

31533200 

31633210 

31633220 

31633230 

31633240 

31633250 

31633260 

31633270 

31633280 

31633290 

31633300 

31633310 

31633320 

31633330 



1336 





FFOO 


$FF 


OC 


/FFOO 


1337 





0002 


$2 


DC 


2 


1338 





0000 




OC 





1339 





3700 


$0W 


DC 


/3700 


133A 





0000 


- 


OC 





1338 





0001 


$D1 


DC 


1 


133C 





0000 




DC 





1330 





3440 


$STOP 


DC 


/3440 


133E 





0020 


$32 


DC 


32 


133F 





3402 


$STPC 


DC 


/3402 



********************** 

* 



SENSE OSW W/0 RESET 



STOP PRINTER 
STOP CARRIAGE 

* 
* 



1340 0000 




$INTR DC 




*-♦ 




1341 D8E4 






STD 




$A01 


SAVE AGO 


1342 2835 






STS 




$ATUS 


SAVE STATUS 


1343 5A36 






STX 


2 $XR2ei 




1344 08E7 






XIO 




$DWR-1 


SENSE W/RESET 


1345 DOES 






STO 




$SWD 


SAVE DSH 


1346 1 4C10 


1357 




BSC 


L 


$GON,- 


BftANCH IF NOT EMITTEI 


1348 COFl 






LO 




$CT48 


IS SCANNING COMPLETE 


1349 1 4C20 


137D 




BSC 


L 


$EMIT,Z 


READ EMITTER IF NOT 


134R 40C6 






BSI 




$EMPT 


YES CLEAR SCAN FIELD 


134C 7401 


0027 




MDX 


L 


39,1 


SCAN COMPLETE BIT 


134E 1010 






SLA 




16 


CLEAR I/O AREA 


134F 1 0400 


1128 




STO 


L 


$IBSY 


BUSY INDICATOR ' 


1351 I 74FF 


132B 




MDX 


L 


$CT16,-1 


DECREMENT COUNTER 


1353 7023 






MDX 




$IBAK 


RETURN 


1354 08E7 






XIO 




$ST0P-1 


STOP PRINTER IF DONE 


1355 080A 






XIO 




$SPA-1 


SPACE AFTER 


1356 7020 






MDX 




$IBAK 




1357 1001 




$G0N 


SLA 




1 


IS IT SKIP RESPONSE 


1358 1 4010 


1362 




BSC 


L 


SNOG,- 


BRANCH IF NOT 


135A 1007 






SLA 




7 


IS IT CHANNEL 1 


135B 1 4C10 


1377 




BSC 


L 


$IBAK,- 


RETURN IF NOT 


135D 08E0 






XIO 




$STPC-1 


STOP CARRIAGE 


135E 1 74FF 


1187 




MDX 


L 


$BSY,-1 


TURN OFF BUSY 


1360 1000 






NOP 








1361 7015 






MOX 




$IBAK 


RETURN 


1362 1001 




$N0G 


SLA 




1 


IS IT SPACE RESPONSE 


1363 4B10 






BSC 




- 


SKIP IF YES 


1364 7012 






MDX 




$IBAK 


NOT 1132, TRY AGAIN 


1365 1 74FF 


1187 




MOX 


L 


*BSY,-1 


TURN OFF BUSY 


1367 1000 






NOP 








1368 C0C5 






LO 




$SW0 


GET OSM 


1369 1 4C04 


1374 




BSC 


L 


$CA12,E 


BRANCH IF CH 12 ON 


136B COCO 






LD 




$SP2 


IS 2 SPACE IND ON 


136C 1 4C13 


1377 




BSC 


L 


$IBAK,£- 


BRANCH IF NO 


136E 1010 






SLA 




16 


CLEAR 


136F DOBC 






STO 




$SP2 


TURN OFF 2 SPACE IND 


1370 1 7401 


1187 




MOX 


L 


$BSY,1 




1372 08BD 






XIO 




$SPA-1 


START 2ND SPACE 


1373 7003 






MOX 




$IBAK 


GO BACK 


1374 1 7401 


1187 


$CA12 


MOX 


L 


$BSY,1 




1376 08B7 






XIO 




$CHA1-1 


START SKIP TO ONE 


1377 C8AF 




$IBAK 


LOD 




$A01 


RESTORE ACQ 


1378 2000 




$ATUS 


LOS 






RESTORE STATUS 


1379 6600 


0000 


$XR2 


LDX 


L2 


*-♦ 




137B 1 4C80 


1340 




BSC 


I 


SINTR 


RETURN TO MONITOR 






************^*^*1f#*»:*^:t:if****:il'*****^**^*t^^:t:^^^ 


137D 08B6 




$EMIT 


XIO 




$EMTR 


READ EMITTER 


137E COBl 






LO 




$WHEL 


LOAD EMITTER CHAR 


137F 1808 






SRA 




8 


PUT IN RIGHT HALF 


1380 E8AF 






OR 




$WHEL 


PUT IT IN LEFT HALF 


1381 DOAE 






STO 




$WHEL 


2 CHARACTERS IN WHEL 


1382 408F 






BSI 




JEMPT 


CLAR SCAN FIELD 


1383 C08A 






LD 




$32 




1384 DOID 






STO 




$EMT3£;i 


STORE FOR SCAN AREA 



31633340 

31633350 

31633360 

31633370 

31633380 

31633390 

31633400 

31633410 

31633420 

31633430 

31633440 

31633450 

31633460 

31633470 

31633480 

31533490 

31633500 

31633510 

316335 20 

31633530 

31633540 

31633550 

31633560 

31633570 

31633580 

31633590 

31633600 

31633610 

31633620 

31633630 

31633640 

31633650 

31633660 

31633670 

31633680 

31633690 

31633700 

31633710 

31633720 

31633730 

31633740 

31633750 

31633760 

31633770 

31633780 

31633790 

31633800 

31633810 

31533820 

31533830 

31633840 

31633850 

31533860 

31533870 

31633880 

31633890 

31633900 

31633910 

31633920 

31633930 

31633940 

31633950 

31633960 

31633970 

31633980 

31633990 

31634000 

31634010 
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1385 





OOAC 




STO 


$QTST 


STORE FOR + CNTR 


31634020 


13S6 





62C« 




LOX 


2 -60 


XR2 TO STEP I/O AREA 


31634030 


1387 


1 


C600 124F 


tEMTl 


LO 


L2 $IOARt60 


GET CHARACTER 


31634040 


1389 





F0A6 




EOR 


$WHEL 


COMPARE 


31634050 


138A 





80AB 




A 


$FF 


DID LEFT CHAR COMPARE 


31634060 


138P 


1 


4CC2 138E 




BSC 


L ♦ei,c 


BRANCH IF NO 


316340 70 


1380 





BRAS 




AD 


$2-1 


ADD 2 INTO Q IF YFS 


31634080 


138F 





1008 




SLA 


a 


CHECH RIGHT CHARACTER 


31634090 


138F 





4818 




BSC 


e- 


SKIP IF NO 


31634100 


1390 





88A9 




AD 


tDl-l 


ADD 1 INTO IF YES 


31634110 


1391 





7201 




MDX 


2 1 


SET FOR NEXT CHAR 


31634120 


1392 





7009 




MDX 


$FMT2 


SHIFT BITS IF NI SKIP 


31634130 


1393 


c 


1010 




SLA 


16 




31634140 


1394 





18Ca 




RTE 


8 


GET LAST BITS TO ACC 


31634150 


1395 





80A5 




A 


$01 


SCAN COMPLETE BIT 


31634160 


1396 





D400 0027 




STO 


L 39 


PUT IT AWAY 


31634170 


1398 


1 


74FF 132A 




MDX 


L $CT48,-1 


DECREMENT SCAN COUNTER 


31634180 


139A 





1000 




NOP 




IN CASE OF SKIP 


31634190 


139B 





70DB 




MOX 


$IBAK 


GO BACK 


31634200 


139C 





1082 


$EMT2 


SLT 


2 


SHIFT BITS IN Q 


31634210 


139D 


1 


74FC 1332 




MDX 


L $0TST,-4 


SKIP IF FULL MORD DONE 


31634220 


139F 





70E7 




MDX 


$EMT1 


GET NEXT TWO WORDS 


31634230 


13A0 





108F 




SLT 


14 


SHIFT TO ACC 


31634240 


13A1 





0400 0020 


tEMT3 


STO 


L 32 


PUT IN SCAN AREA 


31634250 


13A3 


1 


7401 13A2 




MDX 


L tEMT3ei,l 


INCREMENT SCAN AREA 


31634260 


13A5 


1 


7420 1332 




MOX 


L tOTST,32 


SET FOR NEXT SCAN 


31634270 


13A7 





70DF 




MDX 


$EMT1 


GET MORE WORDS 


31634280 








<c«*#«^4<^^4:*4c«4c4<««*««<c««4t4l***I»«««4:»«4L4:4t4< <<«;): *:4t 


31634290 








* 




INDICATORS, CONSTANTS, lOCCS 


31634300 








*:f ***************** *:**t'********:^********i*i^*:ti 


31634310 








* 


^ 






31634320 


13A8 




0000 


TT 


BSS 







31634330 


13A8 





0000 


MSWAK 


DC 


*-♦ 


WACK RECEIVED FLAG 


31634340 


13A9 





0000 


MDSWT 


DC 


*-* 


MODE IND 


31634350 


13AA 





0000 


ERR 


DC 


*-* 


ERROR IND 


31634360 


13AB 





0000 


COUNT 


DC 


*-* 


CHARACTER COUNT 


31634370 


13AC 





0000 


BCCA 


DC 


*~* 


BCC ACCUMULATION 


31634380 


13AD 





0000 


LSOLF 


OC 


*-* 


LAST CHAR OLE IND 


31634390 


13AE 





0000 


LSYN 


DC 


*-* 


LAST CHAR SYN IND 


31634400 


13AF 


c 


0000 


FIRST 


DC 


*-* 


FIRST CHARACTER IND 


31634410 


13B0 





0000 


SECND 


DC 


*-* 


SECOND CHARACTER IND 


31634420 


13B1 





0000 


PAD 


DC 


*-* 


XMIT PAD INDICATOR 


31634430 


13fi2 





0000 


MSENn 


DC 


*-* 


END OF MSG IND 


31634440 


13R3 





0000 


MDSAV 


nc 


*-* 




31634450 


13R4 





0000 


BUFFP 


OC 


»-* 


XMIT/REC BUFFER 


31634460 


13B5 





0000 


SYNC 


OC 


*-* 


XMIT SYNS IND 


31634470 


13R6 





0000 


FCOOE 


DC 


*-* 


FUNCTION CODE 


31634480 


13B7 





0000 


POINT 


DC 


*-* 


I/O ARFA POINTER 


31634490 


13B8 





0000 


PT3SY 


DC 


*-♦ 


ROUTINE BUSY IND 


31634500 


1389 





0000 


OSW 


DC 


*-* 


DSW STORAGE 


31634510 


13eA 





oooc 


BCCR 


DC 


*-* 


BLOCK CHECK CHAR STORAGE 


31634520 


13BB 





0000 


RETRY 


DC 


*-* 


RETRY COUNTER 


31634530 


13RC 





0000 


WTCNT 


DC 


*-* 


INTERRUPT WAIT COUNT 


31634540 


13BD 





0000 


TEMP 


DC 


*-* 


TEMPORARY STORAGE 


31634550 


13BE 





0000 


RFO 


DC 


*-* 


XMIT/REC RFQUEST IND 


31634560 


13BF 





0000 


CNTA 


DC 


*-* 


COUNTER A 


31634570 


13C0 





OOOfi 


CNTR 


DC 


*-* 


COUNTER B 


31634580 


13C1 





0000 


TMPNT 


DC 


*-* 


TEST MESSAGE LOCATOR 


31634590 


13C2 





0000 


TOP 


DC 


♦ -* 


HIGHEST AOORS TO BE USED 


31634600 


13C3 





0000 


CNTPT 


DC 


*-* 




31634610 


13C4 





0000 


FNPNT 


DC 


*-* 


TFXT TABLE POINTFR 


31634620 


13C5 





0000 


TMRCI 


DC 


*-* 


TEST MSG RECV IND 


31634630 


13C6 





0000 


TMXMI 


nc 


*-* 


TEST MSG XMIT IND 


31634640 


13C7 





0000 


lOAP 


DC 


*-* 


I/O ARFA AODRFSS 


31634650 


13C8 





ooor 


TO I NO 


DC 


*-* 


TIMODUT INDICATOR 


31634660 


13C9 





00 0'" 


YCNT 


DC 


*-* 


TEST MSG COUNT 


31634670 


13rA 





OOCO 


FRRNO 


DC 


*-* 


ERROR NUMBER 


31634680 


13C8 





ooor 


IDFLG 


OC 


*-* 


XMIT ID INFO INDICATOR 


31634690 



13CC 





0000 


REWAK 


OC 


*-♦ 


WACK RECEIVED CTR 


31634700 


13CD 





0000 


OPTIN 


DC 


*-* 






31634710 


13CE 





0000 


TYPE 


OC 


*-* 






31634720 


13CF 


1 


15D5 


ENADR 


OC 


ENTBL 






31634730 


1300 





0000 


ENPT2 


DC 


*-* 






31634740 


1301 





0000 


NOERR 


DC 


♦-* 






31634750 


13D2 




8B48 


MSGl 


OC 


TOMSGe/8000 




31634760 


13D3 




8B40 


MSG2 


OC 


XMMSG£/POO0 




31634770 


13D4 




8B51 


MSG3 


DC 


RCMSG£/8000 




31634780 


13D5 




8B55 


MSG4 


DC 


ERMSG£/8000 




31634790 


13D6 




8B58 


MSG5 


DC 


ENCORE/8000 




31634800 


13D7 





02AA 


STXAA 


DC 


/02AA 






31634810 


13D8 





AAAA 


HAAAA 


OC 


/AAAA 






31634820 


13D9 





AA55 


HAA55 


DC 


/AA55 






31634830 


130A 





5555 


H5555 


DC 


/5555 






31634840 


13DB 





5503 


H5ETX 


OC 


/5503 






31634850 


13DC 





3232 


SYSYN 


DC 


/3232 






31634860 


13DE 




0000 




BSS 1 


F 


lOCC TABLE 


31634870 


13DE 


1 


13FC 


SYNRG 


DC 


SYN 


WR SYN TO SYNC REG 


31634880 


13DF 





5104 




DC 


/5104 


lOCC 




31634890 


13E0 





OOOE 


ENDOP 


OC 


14 


END OPERATION 


31634900 


13E1 





5404 




OC 


/5404 


lOCC 




31634910 


13E2 





0104 


STSYN 


OC 


260 


START 


SYNC 


31634920 


13E3 





5410 




DC 


/5410 


lOCC 




31634930 


13E4 





0003 


TIMER 


DC 


3 


START 


PROG TIMER 


31634940 


13E5 





5420 




DC 


/5420 


lOCC 




31634950 


13E6 


1 


13FD 


WROLE 


DC 


OLE 


WRITE 


DLE 


31634960 


13E7 





5100 




DC 


/5100 


lOCC 




3 1 634.970 


13E8 


1 


13FC 


WRSYN 


DC 


SYN 


WRITE 


SYN 


31634980 


13E9 





5100 




OC 


/5100 


lOCC 




31634990 


13EA 





0004 


STREO 


DC 


4 


INITIATE READ 


31635000 


13EB 





5600 




DC 


/5600 


lOCC 




31635010 


13EC 


1 


13B4 


READ 


DC 


BUFFR 


READ CHAR TO BUFFER 


31635020 


13ED 





5200 




DC 


/5200 


lOCC 




31635030 


13EE 





0007 


RETIM 


OC 


7 


RESTART TIMER 


31635040 


13EF 





5702 




DC 


/5702 


IQCC 




31635050 


13F0 


1 


13B4 


WRBUF 


DC 


BUFFR 


WRITE 


BUFFER 


31635060 


13F1 





5100 




OC 


/5100 


lOCC 




31635070 


13F2 





0010 


SNSRS 


DC 


16 


SENSE 


AND RESET OSW 


31635080 


13F3 





5701 




DC 


/5701 


lOCC 




31635090 


13F4 





0013 


SENSE 


OC 


19 


SENSE 


DSW 


31635100 


13F5 





5700 




DC 


75700 


lOCC 




31635110 


13F6 





0063 


RESET 


DC 


99 


RESFT 


SCA 


31635120 


13F7 





5540 




DC 


/5540 


lOCC 




31635130 


13F8 





1070 


ACKS 


OC 


/1070 


OLE ACKO 


31635140 


13F9 





1061 




DC 


/1061 


OLE ACKl 


31635150 


13FA 





0000 


POSAK 


OC 


*-* 






31635160 


13FB 





0000 




DC 


*-* 






31635170 


13FC 





3200 


SYN 


OC 


/3200 


SYN CHARACTER 


31635180 


13FD 





1000 


OLE 


DC 


/IDOO 


OLE CHARACTER 


31635190 


13FE 





6B00 


HAK 


DC 


/6B00 


WACK CHARACTER 


31635200 


13FF 





0300 


SXSOH 


OC 


/0300 


STX SDH EXCLUSIVE OR 


31635210 


1400 





2200 


DLSYN 


OC 


/2200 


OLE SYN EXCLUSIVE OR 


31635220 


1401 





0200 


STX 


DC 


/0200 


STX CHARACTER 


31635230 


1402 





0300 


ETX 


DC 


/0300 


ETX CHARACTER 


31635240 


1403 





016C 


SOHPC 


DC 


/016C 


SOH Z 


CHARACTERS 


31635250 


1404 





1002 


DtSTX 


DC 


/1002 


OLE STX CHARACTERS 


31635260 


1405 





1003 


DLETX 


DC 


/1003 


OLE ETX CHARACTERS 


31635270 


1406 





0001 


EOTCT 


DC 


/OOOl 


COUNT 


FOR XMIT EOT 


31635280 


1407 





3700 


EOT 


DC 


/3700 


EOT CHARACTER 


31635290 


1408 





3D00 


NAK 


DC 


/3D00 


NAK CHARACTER 


31635300 


1409 





0002 


LSTAK 


OC 


/0002 


COUNT 


POS ACK 


31635310 


140A 





0000 




DC 


♦-* 






31635320 


140B 





0001 


FNQCT 


OC 


/OOOl 


COUNT 


FOR XMIT ENQ 


31635330 


140C 





2000 


ENQ 


OC 


/2D00 


ENQ CHARACTER 


31635340 


140D 





0002 


DFOTC 


DC 


/0002 






31635350 


140E 





1037 


DLEOT 


OC 


/1037 


DLE EOT CHARACTERS 


31635360 


140F 





lAOO 


EQEOT 


DC 


/lAOO 


ENQ EOT EXCLUSIVE OR 


31635370 
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1130 



1410 





260C 


1411 





2500 


1412 





IFOO 


140B 







1409 







13F4 







13EA 







13EE 


c 




1413 





0011 


13E0 







13F2 







13F4 







1414 





0019 


13F6 







13E2 







1415 





OOOA 


1416 





FOOO 


1417 





F002 


1418 





FOFO 


1419 





FFOO 


141A 





FFFF 


141B 





OOFF 


141C 





0202 


1410 





OFOF 


141E 





8000 


141F 





7000 


1420 





7FFF 


1421 





OOIF 


1422 





1802 


1423 





AOOl 


1424 




0000 


1424 





0032 


1425 





0000 


1426 





0000 


1427 





0000 


1428 





OOAA 


1429 





0000 


142A 





0000 


142B 


c 


0000 


142C 





107C 



1420 



0014 



1442 0000 

1442 0320 

1443 0002 



1445 



0190 



FTB 


DC 


/2600 


EBETX 


DC 


/2500 


ITB 


DC 


/IFOO 


HOOOl 


EQU 


ENOCT 


HOOO? 


EOU 


LSTAK 


H0003 


EQU 


TIMER 


H0004 


EQU 


STRED 


H0007 


EOU 


RETIM 


HOOll 


DC 


/ll 


014 


EQU 


ENOOP 


016 


EQU 


SNSRS 


D19 


EQU 


SENSE 


025 


DC 


25 


099 


EQU 


RESET 


0260 


EQU 


STSYN 


HOOOA 


nc 


/OOOA 


HFOOO 


DC 


/FOOO 


HF002 


DC 


/F002 


HFOFO 


DC 


/FOFO 


HFFOO 


DC 


/FFOO 


HFFFF 


DC 


/FFFF 


HOOFF 


DC 


/OOFF 


H02O2 


DC 


/0202 


HOFOF 


DC 


/OFOF 


H8000 


DC 


/8000 


H7000 


DC 


/7000 


H7FFF 


DC 


/7FFF 


HOOIF 


OC 


/OOIF 


H1802 


DC 


/1802 


POLYN 


DC 


/AOOl 


T 


BSS 





KSYN 


DC 


/0032 


SELCT 


OC 


*-* 


SX99 


DC 


*-♦ 


FNOSW 


DC 


*-* 


KOOAA 


DC 


/OOAA 


STXSW 


DC 


*-* 


RVISW 


DC 


*-* 


TTDSW 


OC 


*-* 


RVI 


OC 


/107C 



ETB CHARACTER 

ETB ETX EXCLUSIVE OR 



1505 0AC6 
IFDC 0627 

NO STATEMENTS 



SVN CHARACTER 
SELECT CODE LOCATION 
2780 SWITCH 
2780 SWITCH 

STX FLAG 
RVI FLAG 
TTD FLAG 



TABLE BSS 20 

BSS E 
RARE A DC 800 

BSS 2 
******************************************** 

RFTTM BSS 400 

ENT8L BSS PID+/1A00-* 
END BGIN 
FLAGGED IN THE ABOVE ASSEMBLY 



31635380 
31635390 
31635400 
31635410 
31635420 
31635430 
31635440 
31635450 
31635460 
316354T0 
31635480 
31635490 
31635500 
31635510 
31635520 
31635530 
31635540 
31635550 
31635560 
31635570 
31635580 
31635590 
31635600 
31635610 
31635620 
31635630 
31635*40 
3163S650 
31639660 
31635670 
31635680 
31635690 
31635700 
31635710 
31635720 
31635730 
31635740 
31635750 
31635760 
31635770 
31635780 
31635790 
31635800 
31635610 
31635820 
31635830 
31635840 
31635«50 
31635860 
31635870 
31635880 



$AMES 

tAQ 

$AQ1 

$ATUS 

$BAK 

$BSY 

$CA12 

$CHA1 

$CH1 

$CH12 

$CLER 

tCLR 

tCONV 

$CT16 

*CT48 

$DBL 

$DEC 

SOECl 

$DEC2 

$DEC3 

*DEC4 

»DEC5 

$DOBL 

tOSW 

SOSWR 

$DW 

»DMI 

$OWR 

$01 

$ELGX 

$FLNO 

$FLOG 

$EL03 

$EL32 

SFMIT 

tEMPT 

$EMTR 

$FMT1 

$EMT2 

$FMT3 

$ERR 

$FF 

$FLSW 

$GON 

(GOON 

$HEX 

$HFX1 

tMEX2 

$HEX3 

$IBAK 

$IBSY 

$ID 

$INT 

$INTR 

$IOAR 

$1RET 

$LEND 

$LNFD 

$LOG 

SLOGO 

$L0G1 

$L0G2 

$L0G8 

$L0G9 
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